\START85\
\COMMENT=Program file dated 03/09/99, 16:53
\NAME=physx
\FILE=C:\TI85LINK\PROGRAMS\PHYSX.85P
:ClLCD
:Disp "    Physics Notes"
:Disp "Version 2.2,  c. 1999":Disp ""
:Disp "  \LC-beta\y \hexA\ndy Sch\LC-epsilon\ch\LC-tau\\LC-epsilon\r"
:Disp "  \LC-alpha\nd  \UC-N~\\LC-i'\ck M\LC-alpha\rk\hex\\LC-alpha\m"
:Disp ""
:Disp "  markhamnr@aol.com"
:Pause 
:Lbl B2
:ClLCD
:Disp "1. Units"
:Disp "2. Mechanics"
:Disp "3. Force & Momentum"
:Disp "4. Work and Energy"
:Disp "5. Rotation"
:Disp "6. Equilibrium"
:Menu(1,"Pick",A1,3,"Next",A3,5,"exit",A5,4,"Help",A4,2,"Prev",AA3)
:Lbl A3
:ClLCD
:Disp "7. Gravity"
:Disp "8. Heat"
:Disp "9. Waves"
:Disp "10. Projectiles"
:Disp "11. Mirrors & Lenses"
:Disp "12. Constants"
:Menu(1,"Pick",A1,3,"Next",AA1,5,"exit",A5,2,"Prev",B2,4,"Help",A4)
:Lbl AA1
:ClLCD
:Disp "13. Light"
:Disp "14. Electricity"
:Disp "15. Current & Circuit"
:Disp "16. Magnetism"
:Disp "17. Modern & Nuclear"
:Disp "18. Metric Prefixes"
:Menu(1,"Pick",A1,3,"Next",AA3,5,"exit",A5,2,"Prev",A3,4,"Help",A4)
:Lbl AA3
:ClLCD
:Disp "19. Inertia"
:Disp "20. SHM"
:Menu(1,"Pick",A1,3,"Next",B2,5,"exit",A5,2,"Prev",AA1,4,"Help",A4)
:Lbl A1
:Input K
:ClLCD
:If K==1
:Then
:Disp "Units:"
:Disp "N=kg m/s\^2\"
:Disp "J=Nm=kg m\^2\/s\^2\"
:Disp "1 cal=4.18J"
:Disp "specific heat=kJ/kg\deg\C"
:Disp "rev/min*2\pi\/60=rad/s"
:Disp "W=J/s=1/745.7hp"
:Pause 
:Disp "E=N/C"
:Disp "V=J/C"
:Disp "Amp=C/s"
:Disp "\UC-Omega\=V/A"
:Disp "Tesla=N/(C*m/s)=W/m\^2\"
:Pause 
:Goto B2
:End
:If K==2
:Then
:Disp "Mechanics:"
:Disp "v=\UC-Delta\s/\UC-Delta\t=ds/dt"
:Disp "a=\UC-Delta\v/\UC-Delta\t=dv/vt"
:Disp "Vf=Vi+a\UC-Delta\t"
:Disp "\UC-Delta\d=Vi\UC-Delta\t+.5a\UC-Delta\t\^2\"
:Disp "Vf\^2\=Vi\^2\+2a\UC-Delta\d"
:Pause 
:Disp "acc. on a plane w/\LC-mu\k:"
:Disp "a=g(sin \LC-theta\-\LC-mu\k cos \LC-theta\)"
:Pause 
:Goto B2
:End
:If K==3
:Then
:Disp "Force & Momentum"
:Disp "F=ma"
:Disp "Wt=mg"
:Disp "f=\LC-mu\n"
:Disp "p=mv"
:Disp "\UC-Delta\p=m\UC-Delta\v=F\UC-Delta\t"
:Disp "Pressure=Force/Area"
:Pause 
:Goto B2
:End
:If K==4
:Then
:Disp "Work & Energy:"
:Disp "W=F*d=Fd cos \LC-theta\"
:Disp "P=W/t=F*v"
:Disp "PEg=mgh"
:Disp "PEs=.5kx\^2\"
:Disp "KEt=.5mv\^2\"
:Disp "KEr=.5Iw\^2\"
:Pause 
:Goto B2
:End
:If K==5
:Then
:Disp "Rotation:"
:Disp "w=\UC-Delta\\LC-theta\/\UC-Delta\t=d\LC-theta\/dt"
:Disp "\LC-alpha\=\UC-Delta\w/\UC-Delta\t=dw/dt"
:Disp "Wf=Wi+\LC-alpha\\UC-Delta\t"
:Disp "\UC-Delta\\LC-theta\=Wi\UC-Delta\t+.5\LC-alpha\\UC-Delta\t\^2\"
:Disp "Wf\^2\=Wi\^2\+2\LC-alpha\\UC-Delta\\LC-theta\"
:Disp "\LC-tau\=r*F=rF sin \LC-theta\"
:Pause 
:Disp "s=\LC-theta\r"
:Disp "v=wr"
:Disp "a(tan)=\LC-alpha\r"
:Disp "a(c)=v\^2\/r"
:Disp "F(c)=ma(c)=mv\^2\/r"
:Disp "Power=\LC-tau\w"
:Pause 
:Disp "L=p*r=mvr sin \LC-phi\=Iw"
:Disp "\LC-tau\=I*\LC-alpha\"
:Pause 
:Goto B2
:End
:If K==6
:Then
:Disp "Equilibrium:"
:Disp "\UC-Sigma\F=0"
:Disp "\UC-Sigma\\LC-tau\=0"
:Disp "Thermal Equilibrium:"
:Disp "\UC-Sigma\Q=0"
:Pause 
:Goto B2
:End
:If K==7
:Then
:Disp "Gravity:"
:Disp "F=Gm1m2/r\^2\"
:Disp "T\^2\/r^3=4\pi\\^2\/Gm"
:Pause 
:Goto A3
:End
:If K==8
:Then
:Disp "Heat:"
:Disp "Q=mc\UC-Delta\T"
:Disp "Hv=boiling"
:Disp "Hf=melting"
:Disp "mixing stuff: \UC-Sigma\Q=0"
:Pause 
:Goto A3
:End
:If K==9
:Then
:Disp "Waves:"
:Disp "v=\LC-lambda\f"
:Disp "f=1/T"
:Disp "E=hf"
:Disp "reflection:"
:Disp "sin \angle\i=sin \angle\r"
:Pause 
:Disp "refraction:"
:Disp "v/\LC-lambda\=v/\LC-lambda\"
:Disp "v/sin \angle\i=v/sin \angle\r"
:Disp "\LC-lambda\/sin \angle\i=\LC-lambda\/sin \angle\r"
:Disp "standing:0 free ends:"
:Disp "\LC-lambda\=2L/A=2L/N-1"
:Pause 
:Disp "1 free end:"
:Disp "\LC-lambda\=4L/(2N-1), N=A"
:Disp "2 free ends:"
:Disp "\LC-lambda\=2L/N=2L/A-1"
:Pause 
:Goto A3
:End
:If K==10
:Then
:Disp "Projectiles:"
:Disp "Horizontal Range:"
:Disp "R=Vi cos\LC-theta\((Vi sin\LC-theta\+\sqrt\("
:Disp "(Vi sin\LC-theta\)\^2\+2g*h))/g)"
:Disp "Total Time Taken:"
:Disp "t=(Vi sin\LC-theta\+\sqrt\((Vi sin\LC-theta\"
:Disp ")\^2\+2g*h))/g"
:Pause 
:Goto A3
:End
:If K==11
:Then
:Disp "Mirrors & Lenses:"
:Disp "concave )"
:Disp "convex ("
:Disp "n=c/v"
:Disp "f=r/2"
:Disp "di\^-1\+do\^-1\=f\^-1\"
:Disp "di\^-1\+do\^-1\=2r\^-1\"
:Pause 
:Disp "m=\(-)\di/do=hi/ho"
:Disp "n1 sin \LC-theta\1=n2 sin \LC-theta\2"
:Disp "sin \LC-theta\c=n2/n1"
:Disp "Lenses:"
:Disp "P=1/f"
:Disp "converging:():f+"
:Disp "diverging:)(:f-"
:Pause 
:Goto A3
:End
:If K==12
:Then
:Disp "Constants:"
:Disp "g=9.8m/s\^2\"
:Disp "G=6.67\E\\(-)\11Nm\^2\/kg\^2\"
:Disp "c=3\E\8m/s"
:Disp "k=9.0\E\9Nm\^2\/C\^2\"
:Disp "h=6.6\E\\(-)\34 Js"
:Disp "charge=1.6\E\\(-)\19 C"
:Pause 
:Disp "\LC-epsilon\=8.85\E\\(-)\12 C\^2\/Nm\^2\"
:Disp "mass e\(-)\=9.1\E\\(-)\31kg"
:Disp "mass p+,n=1.7\E\\(-)\27kg"
:Disp "\UC-Delta\d earth~moon=3.84\E\8m"
:Disp "\UC-Delta\d earth~sun=1.5\E\11m"
:Disp "mass earth=5.98\E\24kg"
:Disp "radius earth=6.38\E\6m"
:Pause 
:Goto A3
:End
:If K==13
:Then
:Disp "Light:"
:Disp "| S1P-S2P |=n\LC-lambda\"
:Disp "n\LC-lambda\=d sin \LC-theta\"
:Disp "n\LC-lambda\=d*x/L"
:Disp "sin \LC-theta\=m*\LC-lambda\/d"
:Pause 
:Goto AA1
:End
:If K==14
:Then
:Disp "Electricity:"
:Disp "F=k*q1*q2/r\^2\"
:Disp "F=q1*q2/(4\pi\\LC-epsilon\*r\^2\)"
:Disp "E=F/q"
:Disp "E=k*q/r\^2\"
:Disp "E=q/(4\pi\\LC-epsilon\*r\^2\)"
:Disp "\UC-Delta\Vab=Vb-Va"
:Pause 
:Disp "Va=PEa/q"
:Disp "W=q*E*\UC-Delta\d"
:Disp "Wab=q*\UC-Delta\Vab"
:Disp "\UC-Delta\PE=q*V"
:Disp "V=E*d"
:Disp "V=k*Q/r=Q/(4\pi\\LC-epsilon\*r)"
:Disp "V=k*Q*l*cos\LC-theta\/r\^2\"
:Pause 
:Goto AA1
:End
:If K==15
:Then
:Disp "Currents & Circuits:"
:Disp "I=\UC-Delta\Q/\UC-Delta\t=V/R"
:Disp "P=V*I=I\^2\R=V\^2\/R"
:Disp "W=P*t=V*I*t=I\^2\*R*t"
:Disp "R=\LC-rho\*L/A"
:Disp "Series Circuits:"
:Disp "I=I1=I2=I3..."
:Pause 
:Disp "V=V1+V2+V3..."
:Disp "R=R1+R2+R3..."
:Disp "Parallel Circuits:"
:Disp "I=I1+I2+I3..."
:Disp "V=V1=V2=V3..."
:Disp "R\^-1\=R1\^-1\+R2\^-1\+R3\^-1\..."
:Pause 
:Goto AA1
:End
:If K==16
:Then
:Disp "Magnetism:"
:Disp "B=F/(q*v sin \LC-theta\)"
:Disp "F=I*L*B sin \LC-theta\"
:Disp "Emf=\(-)\\UC-Delta\\LC-phi\/\UC-Delta\t=B*L*v"
:Pause 
:Goto AA1
:End
:If K==17
:Then
:Disp "Modern & Nuclear:"
:Disp "E=hf=KE+W=E-E'"
:Disp "p=E/c=hf/c=h/\LC-lambda\"
:Disp "\LC-lambda\=h/m*v"
:Disp "L=m*v*r=n*h/2\pi\"
:Disp "r=n\^2\h\^2\/(4\pi\\^2\m*k*Z*e)"
:ln p"E=\(-)\2\pi\\^2\Z\^2\(e^4)mk\^2\/n\^2\h\^2\"
:Pause 
:Disp "E=mc\^2\=\UC-Delta\mc\^2\=13.6eV/n\^2\"
:Disp "m'=m/2^n"
:Disp "m*931.5=E bind in eV"
:Disp "alpha=\LC-alpha\=4n,2p=He"
:Disp "beta=\LC-beta\=0n,0p,1e"
:Disp "gamma=\LC-gamma\=0n,0p,0e"
:Pause 
:Goto AA1
:End
:If K==18
:Then
:Disp "Metric Prefixes:"
:Disp "yotta  Y  \10^\^24"
:Disp "zeta   Z  \10^\^21"
:Disp "exa    E  \10^\^18"
:Disp "peta   P  \10^\^15"
:Disp "tera   T  \10^\^12"
:Disp "giga   G  \10^\^9"
:Pause 
:Disp "mega   M  \10^\^6"
:Disp "kilo   k  \10^\^3"
:Disp "hecto  h  \10^\^2"
:Disp "deca   da \10^\^1"
:Disp "deci   d  \10^\^\(-)\1"
:Disp "centi  c  \10^\^\(-)\2"
:Disp "milli  m  \10^\^\(-)\3"
:Pause 
:Disp "micro  \LC-mu\  \10^\^\(-)\6"
:Disp "nano   n  \10^\^\(-)\9"
:Disp "pico   p  \10^\^\(-)\12"
:Disp "femto  f  \10^\^\(-)\15"
:Disp "atto   a  \10^\^\(-)\18"
:Pause 
:Goto AA1
:End
:If K==19
:Then
:Disp "Inertia:"
:Disp "I=\UC-Sigma\MiRi\^2\"
:Disp "cyl shell: Icm=MR\^2\"
:Disp "hollow cylinder:"
:Disp "   Icm=1/2 M(R1\^2\+R2\^2\)"
:Disp "solid cyl: Icm=.5MR\^2\"
:Pause 
:Disp "rect plate (flat):"
:Disp "    Icm 1/12 M(a\^2\+b\^2\)"
:Disp "rod, through center:"
:Disp "         Icm=1/12 ML\^2\"
:Disp "rod, through end:"
:Disp "            I=1/3 ML\^2\"
:Pause 
:Disp "solid sphere:"
:Disp "          Icm=2/5 MR\^2\"
:Disp "spherical shell:"
:Disp "          Icm=2/3 MR\^2\"
:Disp "Parallel Axis Thm:"
:Disp "I = Icm + MD\^2\"
:Pause 
:Goto AA3
:End
:If K==20
:Then
:Disp "SHM:"
:Disp "f=1/T, w=2\pi\f"
:Disp "x=A cos (wt+\LC-phi\)"
:Disp "v=\(-)\wA sin (wt+\LC-phi\)"
:Disp "a=\(-)\w\^2\A cos (wt+\LC-phi\)"
:Disp "Vmax=wA, Amax=w\^2\A"
:Pause 
:Disp "mass on a spring:"
:Disp "T=2\pi\\sqrt\(m/k), w=\sqrt\(k/m)"
:Disp "f=1/2\pi\ \sqrt\(k/m)"
:Pause 
:Goto AA3
:End
:Disp "This is an invalid"
:Disp "number, you moron!"
:Pause 
:Goto B2
:Lbl A4
:ClLCD
:Disp "This whole program is"
:Disp "meant to help! You"
:Disp "don't get help for"
:Disp "help!"
:Pause 
:Goto B2
:Lbl A5
\STOP85\