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