PROJECTILE MOTION PROGRAM
By Daniel Wedge
For Casio fx-9700 (and will probably work on other models)

*** MORE GAMES AND PROGRAMS FOR CASIO CALCULATORS AT ***
******** http://www.student.uwa.edu.au/~wedgey *********

This program will calculate a whole range of things, given the
initial velocity of the object, its angle of attack, the height
of the launch site above the impact site and the gravitational
acceleration (9.8 m s-2 for Earth).  There is no need to use
different signs for the velocity and the gravitational acc, the
program will work it all out automatically.


SYMBOLS USED:
@  display (the triangle in the program menu)
-> assign key
=> and/then (PROG,JUMP,F1)
<= less than or equal to
>= greater than or equal to
*  multiply
/  divide

Size: 470 bytes

'PROJ MOTION
Deg
Lbl 2
"VELOCITY"? -> D
D<0 => Goto 2
Lbl 3
"ANGLE ABOVE HORIZON"? -> E
E>90 => Goto 3
Lbl 4
"HEIGHT ABOVE IMPACT"? -> C
C<0 => Goto 4
-C -> C
"GRAVITATIONAL ACC"? -> A
Abs A -> A
-Dsin E -> B
((-B+sqrt(B^2-2AC))/A -> G              sqrt=square root sign
G<=0=>((-B-sqrt(B^2-2AC))/A -> G        B^2=B squared
"HORIZ VELOCITY:"
Dcos E@
"INIT VERT VELOCITY:"
Dsin E@
"MAX HEIGHT"
" ABOVE START:"
(Dsin E)^2/2A@
"TIME TO IMPACT:"
G@
"IMPACT DIST:"
Dcos E*G@
"VELOCITY ON IMPACT:"
sqrt((-Dsin E+AG)^2+(Dcos E)^2@
"ANGLE OF IMPACT:"
D=0 => 90@
D=0 => Goto 5
E=90 => 90@
E=90 => Goto 5
arctan ((-Dsin E+AG)/(Dcos E)@         arctan=inv tan=tan-1=shift tan
Lbl 5
"FINAL VERT VEL:"
-Dsin E+AG@
"FINISHED"