Prev: Integral question
Next: Lipschitz Functions and Riemann Integral
From: Nmacgre on 17 May 2010 11:55
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!
From: Nmacgre on 17 May 2010 12:51
On May 17, 8:55 am, Nmacgre <natemacgre...(a)gmail.com> wrote:
> 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!

Nevermind.
 | 
Pages: 1
Prev: Integral question
Next: Lipschitz Functions and Riemann Integral