Re: Translations
- To: mathgroup at smc.vnet.net
- Subject: [mg32463] Re: [mg32448] Translations
- From: BobHanlon at aol.com
- Date: Tue, 22 Jan 2002 03:19:33 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 1/21/02 3:43:27 AM, manuel at voicenet.com writes:
>Perhaps if I state my problem you might suggest a method using
>mathematica how it could be accomplished.
>How can I translate a graph, say a triangle, in an R2 coordinate system
>
>to another given position on the x y plane showing all the various
>stages from the one position to the other?
>The triangle was formed by connecting the points (-4,4),(-3,-2) and
>(-2,-4) by straight lines...and another triangle was formed by
>translating that triangle by (6,6). Suppose you want to move the first
>
>triangle smoothly to the position of the second triangle using, let's
>say, a total of 31 frames numbered- 0, 1, 2,...30. How would one go
>about generating each frame?
>
n=31;trans={6,6};
Table[Show[Graphics[{Hue[1-3m/(10(n-1))],
Polygon[{{-4,-4},{-3,-2},{-2,-4}}+
Table[trans*m/(n-1),{3}]]}],
Axes->True,PlotRange->{{-5,5},{-5,5}}],
{m,0,n-1}];
Bob Hanlon
Chantilly, VA USA