**TI92P*mainWU6&OUnO"$O9WUWU V%OU ORpp_mini2Z() Prgm Physics Pro Mini Copyright Eastlack Technologies email: support@eastlack.com 08.2000 DO NOT COPY OR CHANGE THIS CODE! Lbl y Local g,m,h,w,b,j,k,p,i,u,jp ClrDraw ClrGraph setGraph("axes","off") FnOff Try RclPic sad Else PxlText "Physics Pro Mini 1.0",80,60 EndTry 0m PopUp {"About","Coulomb's Law","Constant Acceleration"},m If m=1:Goto about If m=2:Goto p If m=3:Goto const Goto x Lbl about Dialog Title "About Physics Pro TI 89/92+ Physics" Text "Physics Pro is a powerful calculator" Text "program for students and Scientists" Text "that contains common physics" Text "applications" Text "" Text "For support or information on " Text "purchasing the full version of " Text "Physics Pro go to www.eastlack.com " Text "or e-mail support@eastlack.com" Text "Copyright 2000 Eastlack Technologies" EndDlog Goto y Lbl p Define k()=Prgm Local x,z,s,y,e,i,m,r,f,q,d,o,l Lbl t Dialog Title "Coulomb's Law" Text " derived from F=k(q1q2)/r" Request "F N",e Request "q1 C",i Request "q2 C",r Request "r m",f Text "k=8.999 N*m/C" DropDown " ",{"approxomate","exact"},o EndDlog If ok=0:Goto e If e="" and i="" or i="" and r="" or e="" and f="" or e="" and r="" or i="" and f="" or r="" and f="":Goto t If e"" and i"" and r"" and f"":Goto t expr(e)x expr(i)l expr(r)z expr(f)s If e="" Then If o=2:string(exact(8990000000.*l*z/s^2))e If o=1:string(approx(8990000000.*l*z/s^2))e ElseIf i="" Then If o=1:string(approx(x*s^2/(8990000000.*z)))i If o=2:string(exact(x*s^2/(8990000000.*z)))i ElseIf r="" Then If o=2:string(exact(x*s^2/(8990000000.*l)))r If o=1:string(approx(x*s^2/(8990000000.*l)))r ElseIf f="" Then If o=2:string(exact((8990000000.*l*z/x)))f If o=1:string(approx((8990000000.*l*z/x)))f EndIf Goto t Lbl e EndPrgm k() Goto y Lbl const Define ca()=Prgm Local x,z,s,d,y,e,i,m,r,f,q,d,o,l Lbl t 0dis Dialog Title " Constant Acceleration" Text " Derived from a=(vf-vo)/2x" DropDown " with distance?",{"No","Yes"},dis Request "vf m/s",e Request "vi m/s",i Request "t s",r Request "a m/s",f DropDown " ",{"approxomate","exact"},o EndDlog If dis=2:Goto lp If ok=0:Goto e If e="" and i="" or i="" and r="" or e="" and f="" or e="" and r="" or i="" and f="" or r="" and f="":Goto t If e"" and i"" and r"" and f"":Goto t expr(e)x expr(i)l expr(r)z expr(f)s If e="" Then If o=2:string(exact(l+s*z))e If o=1:string(approx(l+s*z))e ElseIf i="" Then If o=1:string(approx(x-s*z))i If o=2:string(exact(x-s*z))i ElseIf r="" Then If o=2:string(exact((x-l)/s))r If o=1:string(approx((x-l)/s))r ElseIf f="" Then If o=2:string(exact((x-l)/z))f If o=1:string(approx((x-l)/z))f EndIf Goto t Lbl lp 0kp Dialog Title "Constant Acceleration" Text " Derived from x=(vf-vo)/2a" DropDown " with time?",{"No","Yes"},kp Request "vf m/s",e Request "vi m/s",i Request "x m",d Request "a m/s",f DropDown " ",{"approxomate","exact"},o EndDlog If kp=2:Goto t If ok=0:Goto e If e="" and i="" or i="" and d="" or e="" and f="" or e="" and d="" or i="" and f="" or d="" and f="":Goto lp If e"" and i"" and d"" and f"":Goto lp expr(e)x expr(i)l expr(d)w expr(f)s If e="" Then If o=2:string(exact((2*s*w+l^2)))e If o=1:string(approx((2*s*w+l^2)))e ElseIf i="" Then If o=1:string(approx((2*s*w+x^2)))i If o=2:string(exact((2*s*w+x^2)))i ElseIf d="" Then If o=2:string(exact((x^2-l^2)/(2*s)))d If o=1:string(approx((x^2-l^2)/(2*s)))d ElseIf f="" Then If o=2:string(exact((x^2-l^2)/(2*w)))f If o=1:string(approx((x^2-l^2)/(2*w)))f EndIf Goto lp Lbl e EndPrgm ca() Goto y Lbl x DispHome EndPrgm d