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