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