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