kill(all)$

van2016=facebook.com/LearningCalculus$

VectorA : [a,b]$
VectorB : [c,d]$

TermProduct: VectorA * VectorB;
DotProduct: VectorA . VectorB;

z(x,y):=x+y*%i$
z(a,b);
z(c,d);

PolarComplexForm:polarform(z(a,b)*z(c,d));
RectComplexForm:rectform(z(a,b)*z(c,d));
RealPartX:realpart(RectComplexForm);
ImagPartY:imagpart(RectComplexForm);

CrossProduct:determinant(matrix([eX, eY, eZ],[a,b,0],[c,d,0]));