Trailing-Edge
-
PDP-10 Archives
-
decus_20tap5_198111
-
decus/20-0152/test4.for
There are 2 other files named test4.for in the archive. Click here to see a list.
PROGRAM TEST4
DIMENSION X(512),Y(512),IBUF(30)
DO 10 I=1,512
X(I)=ALOG10(FLOAT(I))
R=(6.2832)*FLOAT(I)/200.
Y(I)=SIN(R)
10 CONTINUE
CALL VTCLR
CALL BOUNDS(1,X,XMAX,XMIN,512,0,0,0)
CALL BOUNDS(1,Y,YMAX,YMIN,512,0,0,0)
CALL GRINIT(IBUF)
CALL GRREGN(IBUF,0,3)
CALL GRCLN(IBUF,0)
CALL GRSCAL(IBUF,XMIN,XMAX,YMIN,YMAX,0)
CALL GRFRAM(IBUF,0,227)
call vthtxt(8,23,1,' Point plot graph drawing ')
DO 50 I=1,512
I1=513-I
CALL GRPNTS(IBUF,0,X(I1),Y(I1),0)
50 CONTINUE
call vtroll(1,24)
call vtelin(2,23)
call vthtxt(8,23,1,' Now, add y-axis markers ')
CALL VTMCUR(20,1)
DO 100 I=1,10
XUSR=((FLOAT(I)/10.)*(YMAX-YMIN))+YMIN
CALL GRHLIN(IBUF,XUSR,0)
100 CONTINUE
CALL SLEEP(10)
call vtclr
CALL EXIT
END