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}]