Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

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?


  • Prev by Date: Re: tensors, matrices, and rotation
  • Next by Date: RE: Function argument
  • Previous by thread: RE: Animate
  • Next by thread: Re: Animate