Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0123/para.qor
There is 1 other file named para.qor 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