R;

kill(all)$

      Comparing vectors and phasors
      L. Van Warren
      Jan 2, 2018

van=facebook.com/LearningCalculus$

B:R*cos(theta); b:R*sin(theta);

kill(B);

u:A+a*%i;
v:B+b*%i;

u+v;
u*v;

w:expand(u*v);

realpart(w); imagpart(w);

u:A*i+a*j;
v:B*i+b*j;

u+v;
u*v;