**TI92P*physicsRvectorλ₯Z‘() Prgm Local l1,l2,l3,l4,z,m,w,ns,n,rs,ˆs,ˆ,r,q,a,b,x,y,s,t,p,v setGraph("Coordinates","Rect") setGraph("Axes","On") DelVar l1,l2,l3,l4 PlotsOff FnOff setMode("Display Digits","Float") 0l1[1] 0l2[1] 0l3[1] 0l4[1] 0z 2m setMode("Angle","Degree") ClrIO Toolbar:Title "Vectors" Item "Resultant",aa Item "Equilibrant",ab Item "Quit",ac EndTBar Lbl ac ClrIO Stop Lbl aa 1w Goto a0 Lbl ab ­1w Lbl a0 Dialog Title "Vectors - By Stype" Request "Number of vectors?",ns EndDlog expr(ns)n Lbl a1 If m>n+1 Goto a2 ClrIO Dialog Title "Vector "&string(m-1) Request "Magnitude",rs Request "Direction",ˆs EndDlog approx(expr(rs))r approx(expr(ˆs))ˆ PRx(r,­ˆ+90)l1[m] PRy(r,­ˆ+90)l2[m] If l1[m]=0 Then l3[m-1]l3[m] Goto a8 EndIf OneVar l1 Žxl3[m] Lbl a8 If l2[m]=0 Then l4[m-1]l4[m] m+1m Goto a1 EndIf OneVar l2 Žxl4[m] m+1m Goto a1 Lbl a2 ClrDraw 1m min(l3)xmin max(l3)xmax (xmax-xmin)/10xscl xmax+xsclxmax xmin-xsclxmin If xscl=0 Then xmin-1xmin xmax+1xmax EndIf min(l4)ymin max(l4)ymax (ymax-ymin)/10yscl ymax+ysclymax ymin-ysclymin If yscl=0 Then ymin-1ymin ymax+1ymax EndIf ZoomSqr Lbl a3 m+1q RPr(l1[q],l2[q])r RPˆ(l1[q],l2[q])ˆ Line l3[m],l4[m],l3[q],l4[q] Lbl a5 l3[q]-r/12*cos(ˆ)a l4[q]-r/12*sin(ˆ)b a-r/24*sin(ˆ)x b+r/24*cos(ˆ)y a+r/24*sin(ˆ)s b-r/24*cos(ˆ)t Line x,y,l3[q],l4[q] Line l3[q],l4[q],s,t If z=1 Goto a6 (l3[m]+l3[q])/2p (l4[m]+l4[q])/2v iPart((p-xmin)/(xmax-xmin)*153)p 80-iPart((v-ymin)/(ymax-ymin)*85)v PxlText "V"&string(m),v,p m+1m If m>n Goto a4 Goto a3 Lbl a4 Pause RPr(l3[q],l4[q])r RPˆ(l3[q],l4[q])ˆ Line l3[1],l4[1],l3[q],l4[q] 1z Goto a5 Lbl a6 l3[q]/2p l4[q]/2v iPart((p-xmin)/(xmax-xmin)*153)p 80-iPart((v-ymin)/(ymax-ymin)*85)v PxlText "R",v,p Pause ClrIO RPr(w*l3[q],w*l4[q])r RPˆ(w*l3[q],w*l4[q])ˆ ­ˆ+90ˆ If ˆ<0 360-ˆˆ If ˆ>360 360-(ˆ-360)ˆ If w=1 Then Dialog Title "Resultant" Text "Magnitude= "&string(r) Text "Direction= "&string(ˆ) EndDlog Else Dialog Title "Equilibrant" Text "Magnitude= "&string(r) Text "Direction= "&string(ˆ) EndDlog EndIf setMode("Display Digits","Float 12") setMode("Angle","Radian") ZoomStd Stop EndPrgm δεάζ™