Question: Animate a plot

This is my worksheet: > a:=10: > f:=6: > for i from 1 to 12 do b[i]:=arrow(r[i],F[i])od: F[i] are predefined vectors and r[i] are the points form which they start. > with(plots): > with(plottools): > A:=seq(b[i],i=1..12): > > > B:=plottools[line]([0,0,0],[a,0,0],thickness=3,color=black): > C:=plottools[line]([0,0,0],[0,a,0],thickness=3,color=black): > unprotect(D): > D:=plottools[line]([a,0,0],[a,a,0],thickness=3,color=black): > E:=plottools[line]([a,a,0],[0,a,0],thickness=3,color=black): > > F:=plottools[line]([0,0,0],[0,0,a],thickness=3,color=black): > G:=plottools[line]([a,0,0],[a,0,a],thickness=3,color=black): > H:=plottools[line]([0,a,0],[0,a,a],thickness=3,color=black): > J:=plottools[line]([a,a,0],[a,a,a],thickness=3,color=black): > > K:=plottools[line]([0,0,a],[a,0,a],thickness=3,color=black): > L:=plottools[line]([a,0,a],[a,a,a],thickness=3,color=black): > M:=plottools[line]([a,a,a],[0,a,a],thickness=3,color=black): > N:=plottools[line]([0,a,a],[0,0,a],thickness=3,color=black): > display([A,B,C,D,E,F,G,H,J,K,L,M,N]); The result is a cube with some vectors. I have the figur in jpg. Maybe there is a way to post it here? Now is my question if there is a way to animate this? Seeing it get drawn or something.. Thank you in advance. Pieter
Please Wait...