**TI92P*physicsRtrajecto1¥Z×() Prgm Local a,d,e,f,h,r,v setMode("Exact/Approx","APPROXIMATE") Dialog Title "Input Variables" Request "Angle",a Request "Velocity",v EndDlog if ok=0 goto prge expr(a)a expr(v)v v*cos(a)h v*sin(a)e e/(4.9)r e*(r/2)+­4.9*(r/2)^2d h*rf Dialog Title "Trajectory Information" Text "Vertical="&string(e) Text "Horizont="&string(h) Text "Time="&string(r) Text "VDist="&string(d) Text "Range="&string(f) EndDlog lbl prge setMode("Exact/Approx","AUTO") EndPrgmäåÜÓ•