GraphingCalculator 3.5;
Window 49 7 842 672;
PaneDivider 349;
FontSizes 18 14 10;
BackgroundType 0;
2D.BottomLeft -0.984375 -1.796875;
2D.Axes 0;
2D.GraphPaper 0;
Text "Vector components.

Version 0.1 [8-4-07]
To do:
(i) Add perpendiculars?


Tip of the vector V and its components";
Color 7;
Expr a=5.71875+2.265625*i;
Expr A=abs(a),T=atan([Im([a])/Re([a])]);
Color 6;
Expr A_1=A*cos(T),A_2=A*sin(T);
Color 3;
Expr V=vector(A_1,A_2);
Color 2;
Expr O,V;
Text "Unit vectors and origin:";
Color 4;
Expr I=vector(1,0),J=vector(0,1),O=vector(0,0);
Color 8;
Expr O,I;
Color 8;
Expr O,J;
Text "x and y components:";
Color 3;
Expr O,A_1*I;
Color 3;
Expr O,A_2*J;
Color 2;
Expr W=A_1*I+A_2*J;
Color 17;
Expr O,W;
Color 5;
Expr p=slider([0,1]);
Color 8;
Expr P=2*pi*p;
Expr M=vector(cos(P),sin(P)),N=vector(-sin(P),cos(P));
Color 17;
Expr O,M;
Color 17;
Expr O,N;
Color 4;
Expr B_1=A_1*cos(P)+A_2*sin(P),B_2=-(A_1*sin(P))+A_2*cos(P);
Color 17;
Expr O,B_1*M;
Color 17;
Expr O,B_2*N;
Text "



<size=16>Author: David A. Craig <<http://web.lemoyne.edu/~craigda/>";
Text "";