Re: ploting functions slowly

• To: mathgroup at smc.vnet.net
• Subject: [mg55854] Re: [mg55817] ploting functions slowly
• From: "David Park" <djmp at earthlink.net>
• Date: Fri, 8 Apr 2005 01:36:26 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```Make an animation. In the following I had to offset the starting point
slightly to avoid an iterator {t,0,0} with identical beginning and ending
values. Also, in makeing animations it is necessary to specify a PlotRange
so that each frame will have the same PlotRange.

frame[t_] := Plot[Sin[x], {x, 0.0000001, t},
Frame -> True,
PlotRange -> {{-0.05, 2\[Pi] + 0.05}, {-1.05, 1.05}}]

Table[frame[t], {t, 0, 2\[Pi], 2\[Pi]/50}];
SelectionMove[EvaluationNotebook[], All, GeneratedCell]
FrontEndTokenExecute["OpenCloseGroup"]; Pause[0.5];
FrontEndExecute[{FrontEnd`SelectionAnimate[200, AnimationDisplayTime -> 0.1,
AnimationDirection -> Forward]}]

In viewing the animations it will often be useful to use keyboard keys to
stop or control the animation.
1) The up and down arrow keys will advance in the backward and forward
directions by one frame at a time.
2) The left and right arrow keys will restart the animation in the backward
or forward directions.
3) The number keys will control the speed of the animation.
4) 'p' will pause or restart the animation.
5) 'c' will cause the animation to reverse at the endpoints.

So use the down arrow key to slow step through the animation.

David Park

From: George [mailto:rawwoonsi at yahoo.com]
To: mathgroup at smc.vnet.net

could we force mathematica to plot:
Plot[Sin[x], {x, 0, 2Pi}]  in slow  ploting speed, beginning the slow
ploting from  (0,0) very slowly to (2Pi)

thanks

```

• Prev by Date: Getting mathlink started
• Next by Date: Re: ploting functions slowly
• Previous by thread: Re: ploting functions slowly
• Next by thread: New unary operator