Re: Translations

*To*: mathgroup at smc.vnet.net*Subject*: [mg32453] Re: [mg32448] Translations*From*: Ken Levasseur <Kenneth_Levasseur at uml.edu>*Date*: Tue, 22 Jan 2002 03:19:14 -0500 (EST)*References*: <200201210755.CAA00607@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Manuel: Here is one way to generate the frames, using a function (tr) that generates linear combinations of two sets of points (start and end) that are presumed to have the same length: In[9]:= tr[start_List, end_List, lambda_] := MapThread[(1 - lambda)*#1 + lambda*#2 & , {start, end}] In[17]:= (Show[Graphics[Polygon[tr[start, end, #1]]], PlotRange -> {{-10, 10}, {-10, 10}}] & ) /@ Range[0, 1, 1/30] Ken Levasseur Math Sci. UMass Lowell manuel avalos wrote: > Hello > > 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? > Thanks for whatever > Manuel

**References**:**Translations***From:*"manuel avalos" <manuel@voicenet.com>