kill(all)$

van=facebook.com/LearningCalculus$

      Get the cross product definition '~'

load(vect)$

a: [cos(1*x), sin(1*x), cos(2*x)]$
b: [tan(1*x), sin(3*x), cos(4*x)]$
c: [cos(3*x), sin(5*x), cos(6*x)]$

      Definition: Scalar triple product is (a ~ b) . c

tripleProduct: trigrat(express(a ~ b) . c)$
tripleProduct;

trigrat(integrate(%,x));

integrate(tripleProduct,x,0,%pi);