Trailing-Edge
-
PDP-10 Archives
-
decuslib10-07
-
43,50444/para.for
There are 2 other files named para.for in the archive. Click here to see a list.
C A SAMPLE PROGRAM
C THIS PROGRAM DRAWS THE CURVES OF SIX PARABLES AND A STRAIGHT LINE
C THROUGH THE POINTS (0,-4),(0,4). FINALLY THE PEN IS MOVED 10 INCHES AHEAD.
DIMENSION X(30),Y(30)
C INITIALIZATION
CALL PLOTS(I)
C THE LINE SEGMENT
CALL OPLOT(0.,5.,-3)
CALL OPLOT(0.,-4.,3)
CALL OPLOT(0.,4.,2)
C THE CURVES
Y(1)=0.
DO 2 J=1,6
X(1)=0.01+0.6*J
DO 1 I=2,10
Y(I)=I*0.1
1 X(I)=0.01*I*I + 0.6*J
CALL OPOINT(X(1),Y(1),J,2.)
CALL OLINE (X,Y,10,1)
DO 3 I=10,2,-1
Y(I)= -I*0.1
3 X(I)=0.01*I*I + 0.6*J
2 CALL OLINE (X,Y,10,1)
C TERMINATION
CALL OPLOT (10.,-5.,-3)
CALL EXIT
END