1PAGE 1 AN OBJECT THROWN FROM A CLIFF (C) 1978 UND
* * * * * S O U R C E L I S T I N G * * * * *
0001 TITLE AN OBJECT THROWN FROM A CLIFF
0002 * NOSTATS
0003 * NOWARN
0004 * NARROW
0005 * EULER
0006 L VY.K=INTGRL(AY.JK)
0007 R AY.KL=GRAV
0008 L Y.K=INTGRL(VYR.JK)
0009 R VYR.KL=VY.K
0010 L X.K=INTGRL(VXR.JK)
0011 R VXR.KL=VXO
0012 N Y=7000
0013 N X=0
0014 N VY=0
0015 C VYO=0
0016 C VXO=2000
0017 C GRAV=-32.2
0018 PARM DT=.01
0019 PARM STOP=21
0020 PARM PLTPER=1
0021 PARM PRTPER=1
0022 NOTE IMPACT OF GRAVITY
0023 PRINT X,Y
0024 PLOT X=X/Y=Y
1PAGE 2 AN OBJECT THROWN FROM A CLIFF - IMPACT OF GRAVIT (C) 1978 UND
TIME X Y
E+00 E+03 E+03
0.000 0.000 7.0000
1.000 2.000 6.9841
2.000 4.000 6.9359
3.000 6.000 6.8556
4.000 8.000 6.7430
5.000 10.000 6.5983
6.000 12.000 6.4214
7.000 14.000 6.2122
8.000 16.000 5.9709
9.000 18.000 5.6973
10.000 20.000 5.3916
11.000 22.000 5.0537
12.000 24.000 4.6835
13.000 26.000 4.2812
14.000 28.000 3.8467
15.000 30.000 3.3799
16.000 32.000 2.8810
17.000 34.000 2.3498
18.000 36.000 1.7865
19.000 38.000 1.1910
20.000 40.000 0.5632
21.000 42.000 -0.0967
1PAGE 3 AN OBJECT THROWN FROM A CLIFF - IMPACT OF GRAVIT (C) 1978 UND
X=X Y=Y
X 0 10500 21000 31500 42000
Y -97 1677.3 3451.5 5225.8 7000
0 X . . . . . . . . . . . . . . . . . . . . . . . . . . . Y
. X . . . Y
. X . . . Y.
T . X . . . Y.
I . X . . . Y .
M . X. . . Y .
E . . X . . Y .
. . X . . Y .
. . X . . Y .
. . X . . Y .
10 . . . . . . . . . . . . . .X. . . . . . . .Y. . . . . . .
. . .X Y. .
. . . X Y . .
. . . X . . XY
. . . Y X . .
. . Y. X . .
. . Y . .X .
. . Y . . X .
. .Y . . X .
. Y . . . X .
20 . . .Y. . . . . . . . . . . . . . . . . . . . . . . .X. .
21 Y . . . . . . . . . . . . . . . . . . . . . . . . . . . X