Re: Graphics--combining graphics

*To*: mathgroup at smc.vnet.net*Subject*: [mg66145] Re: [mg66108] Graphics--combining graphics*From*: "David Park" <djmp at earthlink.net>*Date*: Sun, 30 Apr 2006 04:22:24 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Are you looking for something like the following? Needs["Graphics`Colors`"] Needs["Graphics`Animation`"] y[t_] := Piecewise[{{0, t <= 10}, {-(t - 10)^2/10, t > 10}}] frame[s_] := Module[ {t}, t = Max[0, Min[20, s]]; Show[ Graphics[ {Red, Disk[{t, y[t]}, 0.2], Black, Circle[{t, y[t]}, 0.2], VanDykeBrown, Rectangle[{-0.2, -0.5}, {10, -0.2}]}], AspectRatio -> Automatic, PlotRange -> {{-1, 21}, {-11, 1}}, ImageSize -> 400, Background -> Linen ] ] Animate[frame[s], {s, -1, 21, 0.1}] SelectionMove[EvaluationNotebook[], All, GeneratedCell] FrontEndTokenExecute["OpenCloseGroup"]; Pause[0.5]; FrontEndExecute[{FrontEnd`SelectionAnimate[200, AnimationDisplayTime -> 0.05, AnimationDirection -> Forward]}] First I defined a frame for a time s. Then internally I defined a new time t that was used in plotting the elements. In this case I simply used this trick to pin t to a domain 0 to 20. When I animated the frames I used an s range of -1 to 21. This provides a pause at the start and end of the animation, which is very courteous to the viewer. You can also use this trick of having a frame time s and an internal time t to switch between various functions, or to provide pauses in the middle of an animation. For example, on the Mathematica page at my web site you will see an animation of two different rotation sequences of a book. Pauses were introduced between each leg of the rotation sequence and, of course, different functions were used to produce each leg of the sequence. David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: spepperchin at hotmail.com [mailto:spepperchin at hotmail.com] To: mathgroup at smc.vnet.net 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=Speci al:Forum_ViewTopic&pid=10007#p10007 Posted through http://www.mathematica-users.org [[postId=10007]]