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>*Reply-to*: ggroup at sarj.ca*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]]

**References**:**Graphics--combining graphics***From:*spepperchin@hotmail.com