(* Beispiel *) Remove["Global`*"] Needs["Calculus`VectorAnalysis`"] v1:={a1,b1,c1}; v2:={a2,b2,c2}; v3:={a3,b3,c3}; ScalarTripleProduct[v1,v2,v3]