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