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 * NARROW
0004 * EULER
0005 L Y.K=INTGRL(VYR.JK)
0006 R VYR.KL=VYO+AY.K*TIME.K
0007 A AY.K=GRAV
0008 L X.K=INTGRL(VXR.JK)
0009 R VXR.KL=VXO
0010 N Y=7000
0011 N X=0
0012 C VYO=0
0013 C VXO=2000
0014 C GRAV=-32.2
0015 PARM DT=.01
0016 PARM STOP=21
0017 PARM PRTPER=1
0018 PARM PLTPER=1
0019 NOTE IMPACT OF GRAVITY
0020 PRINT X,Y
0021 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