?????????????? ?????? ? ????????? ?????????? ??????? ?????

! индуктивности и напряжения на емкости, рассчитанных в основном алгоритме.
Ys(1)=maxval(iLgr); Ys(2)=minval(iLgr)
Ys(3)=maxval(Ucgr); Ys(4)=minval(Ucgr)
! автоматическое определение масштаба по оси Y по 4-м значениям элементов
! массива Ys.
CALL SETSCL(Ys,4,'Y')
! занесение в первые два элемента массива Ys минимального и максимального
! значения переменной по оси Х — значения времени.
Ys(1)=0; Ys(2)=t(Nt);
! автоматическое определение масштаба по оси Х по 2-м значениям элементов
! массива Ys.
CALL SETSCL(Ys,2,'X')
! установка белого фона для графика, надписей черного цвета и удвоенной
! толщины линий и надписей
CALL PAGFLL(255); CALL COLOR('BLACK'); CALL LINWID(2)
CALL INCMRK(nt/20) !отмечать двадцать точек на графике
CALL MARKER(kolgr) !число символов для отметки на графиках
CALL HSYMBL(30) !ширина символов
CALL FRAME(5) !ширина бордюров, 0- без бордюров
! инициализация графика.
CALL GRAF(0,0,0,0, 0,0,0,0);
! вывод на график названия в 1-ю строку и отображение названия
CALL TITLIN(conv('Ток в индуктивности, напряжение на ёмкости'),1); CALL title;
! инициализация места, куда будут размещены легенды. Для п/программы
! инициализации легенды требуется 3 параметра: рабочий массив с общей длиной
! символов в легенде (в данном случае это массив Legbuf), количество графиков и
! максимальный размер строки в легенде.
CALL LEGINI(Legbuf, kolgr, dLeg)
! вывод в поле легенды 1-й 2-й строк.
CALL LEGLIN(Legbuf,conv('ток'),1)
CALL LEGLIN(Legbuf,conv('напряжение'),2)
! вывод сетки на график. Цифровые значения параметров соответствуют шагу сетки
! по оси У и Х.
CALL GRID(1,2)
! установка красного цвета для 1-го графика
CALL COLOR('red')
! вывод 1-го графика — тока в индуктивности. П/программа рисования кривой
! требует три параметра: массив значений по оси Х, массив значений по оси У и
! общее число точек кривой.
CALL CURVE(t, iLgr, Nt)
! вывод 2-го графика — напряжения в емкости. Цвет графика - синий
CALL COLOR('blue'); CALL CURVE(t, Ucgr, Nt)
! установка черного цвета для текста легенды
CALL COLOR('black')
! вывод заголовка легенды. В данном случае это пробел
CALL LEGTIT(' ')
! выводит всю легенду. П/программа вывода легенды на график требует задания 2-х
! параметров: имени рабочего массива легенды (в данном случае это массив Legbuf)
! и места для размещения легенды. Допустимо размещение легенды в 4-х местах,
! которые закодированы цифрами 1,2,3,4. Цифра 1 соответствует левому нижнему
! углу, остальные цифры кодируют места против часовой стрелки.
CALL LEGEND(Legbuf, 1)
! завершение режима отображения графика и работы DISLIN
156