Trailing-Edge
-
PDP-10 Archives
-
decus_20tap4_198111
-
decus/20-0123/para.for
There are 2 other files named para.for in the archive. Click here to see a list.
00100 C A SAMPLE PROGRAM
00200 C THIS PROGRAM DRAWS THE CURVES OF SIX PARABLES AND A STRAIGHT LINE
00300 C THROUGH THE POINTS (0,-4),(0,4). FINALLY THE PEN IS MOVED 10 INCHES AHEAD.
00400 DIMENSION X(30),Y(30)
00500 C INITIALIZATION
00600 CALL PLOTS(I)
00700 C THE LINE SEGMENT
00800 CALL OPLOT(0.,5.,-3)
00900 CALL OPLOT(0.,-4.,3)
01000 CALL OPLOT(0.,4.,2)
01100 C THE CURVES
01200 Y(1)=0.
01300 DO 2 J=1,6
01400 X(1)=0.01+0.6*J
01500 DO 1 I=2,10
01600 Y(I)=I*0.1
01700 1 X(I)=0.01*I*I + 0.6*J
01800 CALL OPOINT(X(1),Y(1),J,2.)
01900 CALL OLINE (X,Y,10,1)
02000 DO 3 I=10,2,-1
02100 Y(I)= -I*0.1
02200 3 X(I)=0.01*I*I + 0.6*J
02300 2 CALL OLINE (X,Y,10,1)
02400 C TERMINATION
02500 CALL OPLOT (10.,-5.,-3)
02600 CALL EXIT
02700 END