ГРАФОР. Комплекс графических программ на фортране

Справка по фортрану

Переменные, имена которых начинаются с букв I,J,K,L,N,M, – имеют

Основные понятия

Графическая система это совокупность алгоритмов обеспечивающих для заданного описания объекта

SETBGR(N) и SETPEN(N)

Установка цвета фона и цвета пера. Цвет фона должен

Страница

прямоугольное поле на бумаге или экране дисплея, в пределах которого должны

REGION(X,Y,XL,YL,NAME,N,J)

позволяет определить на заданной странице прямоугольную область для построения образа объекта.

LIMITS(XMIN,XMAX,YMIN,YMAX)

предназначена для задания пределов изменения функции и ее аргумента.
XMIN математическое значение

MINMAX(A,N,AMN,AMX)

позволяет определить минимальное и максимальное значения в массиве чисел.
A массив

LINEO(X,Y,N)

позволяет начертить в заданной области ломаную, связывающую N точек.
B массивах

LINEMO(X,Y,N,NM,JS)

позволяет начертить в заданной области линию, связывающую N точек и пометить

BRОKEN(A1,A2,A3,A4)

задает режим проведения прерывистой линии и её характер. Все значения задаются

BRLINE(X,Y,N)

позволяет начертить непрерывную, штриховую или штрихпунктирную линию по заданной последовательности точек.

POLREG(X,Y,RIN,RFN,THО,THF,NAME,N,H,J)

определить на заданной странице полярную область для построения графиков.
X,Y координаты центра

LIMITS(RIN,RFN,THО,THF)

позволяет зафиксировать пределы изменения функции в области рисования.
RIN математическое значение

POLINE(R,TH,N,KS,NM,JS,L)

позволяет в заданной полярной области начертить кривую.
R – массив радиусов;
TH –

 RAXES(NAME,N,H,UR,KR,MR,T)

провести и разметить радиальную ось.
NAME – название оси;
|N| – количество литер:

THAXES(NAME,N,H,UT,KT,MT,R)

позволяет провести и разметить угловую ось.
NAME – название оси;
|N| – количество

Синус и косинус в декартовых координатах и кардиоида – в полярных

global

Табулирование y=sin x и z=1.5*cos x

finit
fld dword [h]
fld dword [a]
DO N,esi,4
fld st0
fst dword [x+esi]
fsincos
fmul dword [re15]
fstp dword [z+esi]
fstp dword

Табулирование r=1+sinϕ

fldpi
fidiv word [k]
mov word [k],0
DO M,esi,4
fild word [k]
fst dword [t+esi]
fmul st0,st1
fsin
fld1
fadd
fstp dword [r+esi]
add word [k],2
ENDDO
finit

Рисование декартовой области

CALL _PAGE@24,20.,15.,"Sin(x) & 1.5*Cos(x)",19,0
CALL _SETPEN@4,1
CALL _REGION@32,2.5,2.5,15.,10.," ",1,0
CALL _LIMITS@16,xmin,xmax,ymin,ymax
CALL _AXES@44," X ",3,1.,5," Y ",3,0.3,4,0
CALL _SETPEN@4,2
CALL _LINEMO@20,x,y,100,-2,10
CALL _SETPEN@4,3
CALL _BROKEN@16,0.5,0.2,0.3,0.2
CALL _BRLINE@12,x,z,100
CALL _ENDPG@4,0

Рисование полярной области

CALL _PAGE@24,15.,15.,"Кардиоида",9,0
CALL _POLREG@44,7.5,7.5,0.,6.,0.,360.," ",1,0.,0
CALL _LIMITS@16,0.,2.6,0.,360.
CALL _SETPEN@4,4
CALL _POLINE@28,r,t,M,-1,1,0,1
CALL _LIMITS@16,0.,2.6,360.,0.
CALL _SETPEN@4,5
CALL _POLINE@28,r,t,M,-1,1,0,1
CALL _SETPEN@4,6
CALL _THAXES@32," ",1,0.35,30.,1,3,2.
CALL _SETPEN@4,1
CALL _RAXES@32," ",1,0.,1.,-2,2,0.
CALL _ENDPG@4,0

Эпилог и сегмент начальных данных

CALL _for_pause," "
leave
ret
section .data
a dd -1.9
h dd 0.1
re15 dd 1.5
xmin dd -2.
xmax dd 8.2
ymin dd -1.5
ymax dd 1.5
k dw M

Неинициализированные данные (описание массивов)

section .bss
x resd N
y resd N
z resd N
r resd M
t resd M

Сравнение макросов

Си

%macro CALL 1-*.nolist
extern _%1
%ifnempty %2
%push call
%assign %$i 0
%rep %0 - 1
%rotate -1
put %1
%endrep
call _%{-1:-1}
add esp,4*(%0 - 1) +