MathGroup Archive 1999

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

Search the Archive

Re: Areas via Rotation

  • To: mathgroup at
  • Subject: [mg17096] Re: Areas via Rotation
  • From: "P.J. Hinton" <paulh>
  • Date: Fri, 23 Apr 1999 02:32:24 -0400
  • Organization: "Wolfram Research, Inc."
  • Sender: owner-wri-mathgroup at

On Thu, 15 Apr 1999, Robert Hoopes wrote:

> >On what part are you stuck?  Creating the images that make up frames of
> >the animation, displaying the animation in the front end, or converting
> >the frames into a standalone movie format?
> I am confused on how to make the frames, and how to convert it to a movie.

Here is a walk-through for a paraboloid.

(* This loads a standard package that allows you to generate cylindrical
plots *)


(* We Table[] to generate several snapshots of the paraboloid at
incremental angles of Pi/4 radians. *)

Table[CylindricalPlot3D[r^2, {r, 0, 1}, 
   {\[Theta], 0, \[Theta]max}, 
   ViewPoint -> {1.3, -2.4, 2.}, 
   PlotRange -> {{-1, 1}, {-1, 1}, {0, 1}}], 
  {\[Theta]max, Pi/4, 2*Pi, Pi/4}]

We can then select the cell bracket that groups the output graphics
together and then click on the front end menu command sequence Cell ->
Animate Selected Graphics. 

This will flip the graphics in an animation.  Some VCR-like controls
should appear at the foot of the notebook window that allows you to
control the speed of the animation.  Click within the notebook to halt the

If you are using the Macintosh front end, you can also select the group of
cells and then use the front end menu command sequence

	Edit -> Save Selection As -> QuickTime

to create a QuickTime movie of the animation.

For more information, paste the following expressions in separate notebook
cells and evaluate them.

FrontEndExecute[FrontEnd`HelpBrowserLookup["RefGuide", "Table"]]

  {"Graphics`ParametricPlot3D`", "1.7"}]]

  {"Graphics`SurfaceOfRevolution`", "1.7"}]]

  "Save Selection As"]]

  "Animate Selected Graphics"]]

P.J. Hinton
Mathematica Programming Group           paulh at
Wolfram Research, Inc.        
Disclaimer: Opinions expressed herein are those of the author alone.

  • Prev by Date: Mathematica and Kaleidagraph
  • Next by Date: Solving Eigenvalue Problems
  • Previous by thread: Areas via Rotation
  • Next by thread: Re: Areas via Rotation