Animation of Fisher Basis Vectors in Original Space
> samples := animationSamples: display3d(seq(plotPointsBasis(P,basisVectorEndPoints(FBW,LambdaW,P),theta+i*(360/samples),phi+i*(720/samples),BOXED),i=0..(samples-1)),insequence=true);