       Re: Graphics--combining graphics

• To: mathgroup at smc.vnet.net
• Subject: [mg66143] Re: [mg66108] Graphics--combining graphics
• From: ggroup at sarj.ca
• Date: Sun, 30 Apr 2006 04:22:21 -0400 (EDT)
• References: <200604290741.DAA23530@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Hello spepperchin,

It depends how you're making the animation.  If you are simply making
them for display in Mathematica, just put the two graphics calls in
the same cell, eg:

Table[Plot[Sin[x + t], {x, 0, 2Pi}], {t, 0, Pi/2, Pi/6}];
Table[Plot[Tan[x + t], {x, 0, 2Pi}], {t, Pi/2, Pi, Pi/6}];

All the graphics will be grouped together (assuming no errors or other
output occur in between).

Alternatively, if you are exporting the animation, you can simply join
lists of graphics objects:

plList1 = Table[Plot[Sin[x + t], {x, 0, 2Pi}], {t, 0, Pi/2, Pi/6}];
plList2 = Table[Plot[Tan[x + t], {x, 0, 2Pi}], {t, Pi/2, Pi, Pi/6}];

plList3 = Join[plList1, plList2];
Export["file.gif", plList3, "GIF"]

On Saturday, April 29, 2006 at 3:41 AM, aliens probed Spepperchin and
found:

> I am trying to create an animation of a piecewise function.  I have a graph of a ball rolling and I would like to combine an animation for one equation of motion for the first part with another equation for the second part of the motion.  It is easy enough to create the two animations individually, however I am stumped on how to combine them into one continuous animation.

> Link to the forum page for this post:
> http://www.mathematica-users.org/webMathematica/wiki/wiki.jsp?pageName=Special:Forum_ViewTopic&pid=10007#p10007
> Posted through http://www.mathematica-users.org [[postId=10007]]

```

• Prev by Date: Re: Solving Nonlinear Transcedental equations
• Next by Date: Re: Graphics--combining graphics
• Previous by thread: Graphics--combining graphics
• Next by thread: Re: Graphics--combining graphics