From: Nmacgre on
Hello,

I was looking to make an animation that draws out a Pythagorean
spiral, triangle by triangle, but was unsure where to get started. I
know I need to use plottools for the polygon drawing, but how do I
animate it? I've messed with displaying a sequence before (like Taylor
series), but not a sequence of shapes. Any help appreciated.
From: Robert Israel on
Nmacgre <natemacgregor(a)gmail.com> writes:

> Hello,
>
> I was looking to make an animation that draws out a Pythagorean
> spiral, triangle by triangle, but was unsure where to get started. I
> know I need to use plottools for the polygon drawing, but how do I
> animate it? I've messed with displaying a sequence before (like Taylor
> series), but not a sequence of shapes. Any help appreciated.

Something like this perhaps, where T[n] is the n'th triangle:

> with(plottools): with(plots):
T:= [seq(polygon(... whatever ...), n = 1 .. 20)]:
display([seq(display(T[1..n]), n=1..20)], insequence=true);
--
Robert Israel israel(a)math.MyUniversitysInitials.ca
Department of Mathematics http://www.math.ubc.ca/~israel
University of British Columbia Vancouver, BC, Canada