3D Animation of Fisher Basis Vectors Found using Generalized Eigenvector Method

> GBV := basisVectorEndPoints(GR,GS . 10,P):
samples := animationSamples:
display3d(seq(plotPointsBasis(P,GBV,theta+i*(360/samples),phi+i*(720/samples),BOXED),i=0..(samples-1)),insequence=true);