MathGroup Archive 2002

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

Search the Archive

RE: Real Time Animation

  • To: mathgroup at
  • Subject: [mg36820] RE: [mg36796] Real Time Animation
  • From: "DrBob" <drbob at>
  • Date: Fri, 27 Sep 2002 04:15:21 -0400 (EDT)
  • Reply-to: <drbob at>
  • Sender: owner-wri-mathgroup at

Put this after the Plot statement, in the same cell:

SelectionMove[EvaluationNotebook[], All, GeneratedCell]

Bobby Treat

-----Original Message-----
From: Goyder Dr HGD [mailto:H.Goyder at] 
To: mathgroup at
Subject: [mg36820] [mg36796] Real Time Animation

In a presentation I wish to use Plot to generate a sequence of frames and
then animate them. The problem is that the audience sees the animation
twice. Once when the frames are being generated and then again after I have
closed the group and double clicked on the top graphic. However, the first
showing during generation is enough (but uncontrolled). 

Is it possible to tidy up the generation of the graphic so that it becomes
the animation?

I have tried the following

Do[Plot[Sin[t]*Sin[x], {x, 0, Pi}, PlotRange -> {{0, Pi}, {-1, 1}},
ImageSize -> 400]; 
   SelectionMove[EvaluationNotebook[], All, GeneratedCell];
   FrontEndExecute[{FrontEndToken["Clear"]}], {t, 0, 15, 0.1}]

This works but the cell dividing line flashes on and off spoiling the
animation and if there is anything in the cell below this jumps up and

Is there a proper way of doing this?

Hugh Goyder

  • Prev by Date: Re: Real Time Animation
  • Next by Date: RE: Why can't Mathematica do this simple integral ?
  • Previous by thread: Re: Real Time Animation
  • Next by thread: RE: Re: Real Time Animation