RE: Animate
- To: mathgroup at smc.vnet.net
- Subject: [mg66996] RE: [mg66956] Animate
- From: "Jaccard Florian" <Florian.Jaccard at he-arc.ch>
- Date: Tue, 6 Jun 2006 06:28:24 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
First of all :
You don't have to use Module.
n is a automatically treated like you wish.
Animate is not worth while.
Just use Table. You will not have to load any package and it will do exactly the same.
After the 6 plots will be created, just double-click on the bracket of the group of plots (so they will be grouped), and then double-click on the graphic.
Table[Plot[Sin[n x], {x, 0, 2 Pi}], {n, 1, 6, 1}];
If you really want to have an automatic grouping and creation of the animation, you can proceed like this, but it's not really meant for beginners :
(Plot[Sin[#1*x], {x, 0, 2*Pi}, PlotRange -> {-1, 1},
PlotLabel -> ToString[#1]] & ) /@ Range[6];
SelectionMove[EvaluationNotebook[], All,
GeneratedCell];
FrontEndTokenExecute["OpenCloseGroup"]
FrontEndTokenExecute["SelectionAnimate"];
Regards
F.Jaccard
-----Message d'origine-----
De : MR [mailto:marcinrak at gmail.com]
Envoyé : lundi, 5. juin 2006 09:48
À : mathgroup at smc.vnet.net
Objet : [mg66956] Animate
Hey everyone
Module[{n}, Animate[Plot[Sin[n x], {x, 0, 2 Pi}], {n, 1, 6, 1}]];
running the above command doesn't yield an animation in one plot, but
much rather six different still plots which appear one beneath the
other.
Any ideas?