(* Beispiel *) Remove["Global`*"] Needs["LinearAlgebra`CrossProduct`"] v1:={a1,b1,c1}; v2:={a2,b2,c2}; vp=Cross[v1,v2] //ColumnForm