# Created by CaS msdos version 0.5.1

@@ Prog ( )

'TRAJECTORIES':Range 0,3300,100,0,1800,100:Deg:9.81->A
Lbl 1:0->T
"INITIAL VELOCITY"?->D:D=0=>Goto 2
"INITIAL ANGLE (deg)"?->\th
Rec(D,\th):D\sqrsin 2\th/A->B:J\sqr/2A->C:J/A->E:"ORIZ REACH":B_
"MAX HEIGHT":C_
"RISE TIME":E_
Lbl 0:IT->X:JT-AT\sqr/2->Y:Plot X,Y:T+.3->T:T<=2E=>Goto 0:Goto 1:Lbl 2

 
# Lúcio M.M. Quintal - Madeira - Portugal <MAILTO:[email protected]>