DIMENSION X(N). CHARACTER*1 S(69),PROB,ZW,OS

CHARACTER*1 S(69),PROB,ZW,OS

DATA PROB,ZW,OS/’ ’,’*’,’|’/

В текстовую переменные помещаем: PROB – пробел, ZW – символ “ * ”, OS – символ “ |”.

XMA=X(1)

XMI=X(1)

DO 2 I=1,N

XMA=AMAX1(X(I),XMA)

2 XMI=AMIN1(X(I),XMI)

A=XMA–XMI

DO 5 I=1,N

DO 6 J=1,69

6 S(J)=PROB

Заполняем текстовый массив S пробелами. Можно просто записать S(J)=’ ‘.

NZW=(X(I)-XMI)/A*68+1

NOS=–XMI/A*68+1

S(NOS)=OS

S(NZW)=ZW

Элементы массива S, номера которых рассчитаны, заменяются символами “ * ” и “ |”.

WRITE (6,7) X(I),S

FORMAT (1X,G10.4,69A1)

CONTINUE

RETURN

END

Недостатки программы вывода графиков:

Внутри цикла происходит N-ное количество раз определение номера позиции оси, что является нерациональным. Этот оператор нужно вынести до начала цикла. На каждом цикле рабочий массив заполняется пробелами. Можно это сделать однократно до начала цикла, а после печати в элемент массива , где была “*” записывать пробел. В программе желательно было бы осуществить вывод координатной сетки. Возможно написание одной подпрограммы для вывода одного, двух, трех графиков в одних координатах. Вам предоставляется возможность самостоятельно усовершенствовать подпрограмму и проявить свои способности.

Задача:

Использовать подпрограмму GRAF для вывода графика тока для цепи:

Получить 40 точек и вывести .