Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-160/cliff2.dat
There are no other files named cliff2.dat in the archive.
TITLE AN OBJECT THROWN FROM A CLIFF 00000010
* NOSTATS 00000020
* NOWARN 00000025
* NARROW 00000030
* EULER 00000040
L VY.K=INTGRL(AY.JK) 00000050
R AY.KL=GRAV 00000060
L Y.K=INTGRL(VYR.JK) 00000070
R VYR.KL=VY.K 00000080
L X.K=INTGRL(VXR.JK) 00000090
R VXR.KL=VXO 00000100
N Y=7000 00000110
N X=0 00000120
N VY=0 00000130
C VYO=0 00000140
C VXO=2000 00000150
C GRAV=-32.2 00000160
PARM DT=.01 00000170
PARM STOP=21 00000180
PARM PLTPER=1 00000190
PARM PRTPER=1 00000200
NOTE IMPACT OF GRAVITY 00000210
PRINT X,Y 00000220
PLOT X=X/Y=Y 00000230