Advanced Search

Question: Animation Question

Question:Animation Question

nmacgre 28 Maple
plot
May 17 2010
0

Hi,

I'm writing an animation of the Spiral of Theodorus. I'm trying to get it to display a composition of the triangles as it animates. If i change the code to insequence=false it displays them all at once, and doesn't animate. Here is the little bit of code I wrote:

 

g := sum(arctan(1/sqrt(n)), n = 1 .. i)

p := seq(plots[polygonplot]([[0, 0], [sqrt(k+1)*cos(subs(i = k, g)), sqrt(k+1)*sin(subs(i = k, g))], [sqrt(k)*cos(subs(i = k-1, g)), sqrt(k)*sin(subs(i = k-1, g))]], color = white), k = 1 .. 16); plots[display]([p], insequence = true);

Thanks for any help!
Please Wait...