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
djmp at earthlink.net
http://home.earthlink.net/~djmp/
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