Удаленный терминальный комплекс / Кузьмин И. А., Мальков М. В., Остапенко А. А. [и др.]. – Препр. ПГИ-84-09-37. – Апатиты : [б. и.], 1984. – 40 с.

7, ПОСТРОЕНИЕ ПРИКЛАДНЫХ ПРОГРАММ, 7,1. ИСПОЛЬЗОВАНИЕ ПАКЕТА ГРАФИКОВ ПРИМЕР ВЗЯТ ИЗ КНИГИ Д»,К.ХАРГРйВС "ВЕРХНЯЯ АТМОСФЕРА И солнечно-земные связи", (Введение в физику околоземной космической СРЕДЫ), М, ГИДРОМЕТЕОИЗДАТ, 19»2# СТР,3#*1, РИС ,11,9(6), ОСОБЕННОСТИ ГРАФИКА: ДВЕ КРИВЫЕ, ОДНУ КРИВУЮ ИЗОБРАЗИТЬ СПЛОШНОЙ ЛИНИЕЙ, А ВТОРУЮ - ПУНКТИРОМ, РАЗМЕТКУ ШКАЛЫ АбЦйСС СДЕЛАТЬ ЛОГАРИФМИЧЕСКОЙ, PROGRAM EXMPLE REAC Z(2®),EL1(2«),EL2(2®) INTEGER XX®/l®®®/',QXX/15®/,RXX/4/,XX INTEGER YY®/l®®®/,UYY/78/,RYY/5/»YY С ВВОД ДАННЫХ N=11 READ 1, ( Z ( n , E U ( I ) , E L 2 ( I ) , I = l,N> 1 F O R M A T ( 3E 11,5) С ЛОГАРИФМИРОВАНИЕ ДАННЫХ ПО ОСИ X , ПОСКОЛЬКУ С ПО АБЦИССЕ ЛОГАРИФМИЧЕСКАЯ ШКАЛА 00 2 1= 1, N ELl(I) =AlQGi*(EU(I>) 2 EL2(X)=AU0G1»(EL2(I) ) CALL O P E N (1) CALL FRAME (Г, l,XX«,YY®,aXX,RXX,QYY,RYY) CALL U N I T S (1,1,'L*,»L', 'Z,KM',3,®) CALL 0IGITC1,1,'L',S«,1*®> CALL D I G I T U . l , ' B L O G ' , 1,5) CALL U N I T 8 ( 1 , 1 , ' B ‘, ,L ' , I_NE, CM*«(-3)') С С ВЫВОД ПУНКТИРНОИ КРИВОЙ С CALL GRAFIC(l,l, N , E L l, Z ,l . ,5 . , 5 ® , ,i e e , , > L1 N E = 0 U SH > ) С С ВЫВОД СПЛОШНОЙ КРИВОЙ С CALL GRAFIC(1,1,N,EL2,Z,1,.5.,5#.,1®*.,'LINE=SOLID' ) YY=YY®-2®® С С ПОСТАВИМ СИММЕТРИЧНУЮ ПОДПИСЬ ПОД РИСУНКОМ С CALL GSIZES(LX,LY,3, *'_РИС,1, «ПРОФИЛЬ ЭЛЕКТРОННОЙ КОНЦЕНТРАЦИИ,') XX = XX® ♦ QXX*RXX/2 - LX/2 CALL GPRINT(1,3,XX,YY,'R', *1_РИС,1. .ПРОФИЛЬ ЭЛЕКТРОННОЙ К О Н Ц Е Н Т Р А Ц И И , ') CALL CLOSE STOP END 31