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

Подпрограмма вывода результатов на график.
В подпрограмме подсоединяется модуль convert, который предназначен
для ввода текста на русском языке при его отображении в различных
надписях на графиках. DISLIN непосредственно не поддерживает
кириллицу. Для ее отображения надо обратиться к п/программе
BASALF с параметром 'RUSSIAN'. После этого текстовые строки с латинскими
буквами преобразуются в соответствующие русские буквы.
Например, латинская v преобразуется в русскую в и т.д. Для того, чтобы
непосредственно вводить текст на русском языке, используется функция
conv('русский текст'), где 'русский текст' печатается в windows-кодировке.
Эта функция загружается модулем convert. Текст модуля приведен
после программы вывода на график.
subroutine vyvod
use obmen
use convert
! Константа dLeg соответствует максимальной длине одной надписи легенды.
integer , parameter :: dLeg=10
! объявление промежуточной символьной переменную Legbuf для вывода легенды.
!Длина символьной переменной должна быть равной произведению констант dLeg и
! kolgr. (значение kolgr объявлено в модуле obmen)
character (len=dLeg*kolgr) Legbuf
! объявление массива Ys, который понадобится для автоматического определения
! масштабов по осям.
real Ys(2*kolgr)
! позиционирование окна в центре экрана
CALL SWGOPT('center','position')
! установка ширины окна 63% от ширины экрана, и высоты окна 71% от ширины
! окна. (Здесь эти цифры определены опытным путем)
CALL SWGWTH (-63); CALL SWGDRW(0.71)
! инициализация виджетов с вертикальным расположением
CALL WGINI ('VERT', IP)
! вывод надписи
CALL WGLAB (IP, 'Результаты расчета:', ID1)
! вывод выджета для рисунка
CALL WGDRAW(ip,id_draw2)
! установка параметров виджета рисунка. Если в качестве параметра п/программы
! METAFL задана символьная переменная 'XWIN', то график выводится в окно. Если
! задан параметр 'WMF', то график выводится в графический файл с расширением
! wmf. Возможен вывод в форматы PDF, BMP, TIFF, GIF и др. При задании параметра
! 'VIRT' график выводится в виртуальный файл, сохраняемый в памяти компьютера.
CALL SETXID(id_draw2,'WIDGET'); CALL METAFL('XWIN')
! инициализация DISLIN, очистка окна рисунка
CALL DISINI; CALL ERASE
! задание отображения кириллицы в надписях графика
CALL BASALF('RUSSIAN');
! call chncrv('COLOR')
! ввод надписей по оси Х и У соответственно.
CALL name(conv('время,с'), 'X')
CALL name(conv('ток, А; напряжение, В'), 'Y')
! занесение в массив Ys минимальных и максимальных значений массивов тока в
155