Titel: Vectoraddition
Author: Robert Jessing
Rewritten by: Christian Sandberg   (I discovered a few bugs)
Description: This prog tells you the value and direction of the resultant to
             some vectors,vectoraddition.
             
__________________________________________________________________________________
Command translation:
->      Singel arrow
=>      Double arrow (press: shift prgm f1 f1)
_       Display (press: shift prgm f4)
<=      Less or equal 
>       Greater or equal
<>      Not equal
^       Raised to the power of
/       Division
2rt()   Root ( 2rt(9) is the square root of 9 = 3)
3rt()   3:rd root
pi      Pi (3.14....) (press: shift exp)
E       Exponent (press:EXP)
___________________________________________________________________________________
"Vektoraddition"
Mcl
"Number of vectors"
?->A
Lbl 1
Isz B
"Length?":?->C
"Direction?":?->D
Rec(C,D)
E+I->E:F+J->F
B<A=>Goto 1
F=0=>Goto 3:E=0=>Goto 2
Pol(E,F)
Lbl 4
"Length of resultant":I_
"Direction of resultant":J_
Lbl 2
F<0=>Goto 5:90->J:F->I:Goto 4
Lbl 3
E<0=>Goto 6:0->J:E->I:Goto 4
Lbl 5
270->J:F*-1->I:Goto 4
Lbl 6
180->J:E*-1->I:Goto 4

______________________________________________________________________________________