Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2002
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2002

[Date Index] [Thread Index] [Author Index]

Search the Archive

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