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

```

• Prev by Date: PDF Format
• Next by Date: Re: parallel and remote computing
• Previous by thread: Re: Translations
• Next by thread: Re: Translations