RE: Slow Plot
- To: mathgroup@smc.vnet.net
- Subject: [mg11380] RE: [mg11353] Slow Plot
- From: jmt <jmthomas@cybercable.tm.fr>
- Date: Sun, 8 Mar 1998 20:12:59 -0500
- Organization: TeA
Try this:
hticks=Sort@Union[Table[n Pi/6,{n,0,12}]~Join~Table[n Pi/4,{n,0,8}]]
vticks=Sort@Union[{0,1/2,Sqrt[3]/2,1}~Join~-{0,1/2,Sqrt[3]/2,1}]
p[t_/;t<=2 Pi]:=
Plot[Sin[x],{x,0,t},PlotRange->{{0,2Pi},{-1,1}},Ticks->{hticks,vticks}]
Do[p[i],{i,0,2Pi,Pi/24}]
You can then control the speed with animation controls at the lower left
corner of your notebook, after you have selected all the plots and run
the "animet selcted graphics" (CTRL-Y)
Hope this helps,
----------------------------------------------- Jean-Marie THOMAS
Conseil et Audit en Ingenierie de Calcul www.cybercable.tm.fr/~jmthomas
------------------------------------------------
-----Message d'origine-----
De: Fred Lang [SMTP:lang@einev.ch]
Date: samedi 7 mars 1998 08:06
A: mathgroup@smc.vnet.net
Objet: [mg11353] Slow Plot
Dear MathGroup users,
I've a little problem:
For pedagogical reasons, I try to plot a Curve slowly.
I tried something like
In[1] = f[x_] := ( Pause[0.1] ; Sin[x] )
In[2] = Plot[ Evaluate[f[x]] , {x,-Pi, Pi } ] ;
But the plot is too fast, the Pause has no Effects on the Plot.
Any Idea?
Thank you
Fred Lang