\START85\
\COMMENT=Program file dated 03/12/99, 17:43
\NAME=VECTORS
\FILE=C:\TI85LINK\PROGRAMS\VECTORS.85P
:Degree
:ClLCD
:Disp ""
:Disp "       Vectors"
:Disp ""
:Disp "   by Nick Markham"
:Disp ""
:Disp "  markhamnr@aol.com"
:Pause 
:Lbl Lm
:ClLCD
:Menu(1,"Add",L1,2,"Conv",L2,3,"Cross",L3,4,"Dot",L4,5,"Quit",L5)
:Lbl L1
:0\->\x:0\->\y:1\->\r
:Disp "Vector Addition"
:Disp "Enter 0, 0 to end"
:While (r\<>\0)
:Prompt r,\LC-theta\
:x+r*cos \LC-theta\\->\x
:y+r*sin \LC-theta\\->\y
:End
:Pause [x,y]\>Pol\
:Goto Lm
:Lbl L2
:Disp "Polar <-> Rectangular"
:Disp "1......Polar to Rect."
:Disp "2......Rect. to Polar"
:Input "Which way?",t
:If (t==1)
:Then
:Prompt r,\LC-theta\
:Pause [r\angle\\LC-theta\]\>Rec\
:Goto Lm
:Else
:Prompt x,y
:Pause [x,y]\>Pol\
:End
:Goto Lm
:Lbl L3
:Disp "Cross product of"
:Disp "two vectors"
:Prompt r,\LC-theta\
:r*cos \LC-theta\\->\x
:r*sin \LC-theta\\->\y
:Prompt r,\LC-theta\
:Pause cross([x,y],[r\angle\\LC-theta\])
:Goto Lm
:Lbl L4
:Disp "Dot product of"
:Disp "two vectors"
:Prompt r,\LC-theta\
:r*cos \LC-theta\\->\x
:r*sin \LC-theta\\->\y
:Prompt r,\LC-theta\
:Pause dot([x,y],[r\angle\\LC-theta\]
:Goto Lm
:Lbl L5
:Radian
:Stop
:
\STOP85\