Vektorprodukt

#(* Beispiel *)
restart:
with(linalg):
v1:=vector([a1,b1,c1]);
v2:=vector([a2,b2,c2]);
vp:=crossprod(v1,v2);