Re: animation in version 7.0 looks bad

*To*: mathgroup at smc.vnet.net*Subject*: [mg97987] Re: animation in version 7.0 looks bad*From*: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>*Date*: Fri, 27 Mar 2009 05:35:23 -0500 (EST)*References*: <gqfl13$kri$1@smc.vnet.net>

Hi, what is with \[Psi][x_, t_] := Exp[-(x - t)^2/(2 (1 + t))]/Sqrt[1 + t]; Manipulate[ Plot[\[Psi][x, t], {x, -2, 10}, AxesLabel -> {"x", " "}, Ticks -> False, PlotLabel -> "t = " <> ToString[t], PlotRange -> {0, 1}], {{t, 0}, 0., 10., Appearance -> "Open"}] and than click the black |> symbol Regards Jens Dan Dubin wrote: > Folks -- maybe its just my old mac ( a G4 967 MHz) but animations > just don't look very good when using Animate or ListAnimate in > Mathematica Version 7.0.1. This is particularly true if the plots in > the animation are at all complicated. The animations run rather > slowly and look jumpy. It works better if I use the old method of > grouping a series of plots and then doing apple-Y . An example is > given below -- two different modes of animation, one using ListAnmate > and the other producing the same plots that must then be animated "by > hand" using "Animate Selected Graphics". On my machine the second > method looks much smoother and also runs faster. > > How do I get Animate and/or ListAnimate to give > better-looking output (besides going out and buying a new machine)? > > \[Psi][x_, t_] = Exp[-(x - t)^2/(2 (1 + t))]/Sqrt[1 + t]; > > ListAnimate[ > Table[Plot[\[Psi][x, t], {x, -2, 10}, AxesLabel -> {"x", " "}, > Ticks -> False, > PlotLabel -> > "t = " <> > ToString[t], PlotRange -> {0, 1}], {t, 0., 10, 1}], > DisplayAllSteps -> True, AnimationRate -> 5]; > > > Do[Print[ > Plot[\[Psi][x, t], {x, -2, 10}, AxesLabel -> {"x", " "}, > Ticks -> False, > PlotLabel -> > "t = " <> > ToString[t], PlotRange -> {0, 1}]], {t, 0., 10, 1}]