Google
 

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