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);

I  have a little bit of code that chows a parabola "rolling" and its focus tracing out a catenary. I want to trac the focus but not the parabola, and am unsure how. Any suggestions? Here is my code bit:

> L := unapply(int(sqrt(1+(2*x)^2), x = 0 .. X), X);
> P1 := display([pointplot([0, 1/4]), plot(x^2, x = -2 .. 2)], color = blue);
> F := proc (t) options operator, arrow; rotate(translate(P1, L(t)-t, -t^2), -arctan(2*t), [L(t), 0]) end proc;
> animate(F, [t], t = -2 .. 2, trace = 10, scaling = constrained);
 

Im making an animation that shows a parabola changing over a range of coefficients. I want to display each equation while it animates. Is that possible?