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?