Re: Areas via Rotation
- To: mathgroup at smc.vnet.net
- Subject: [mg17080] Re: Areas via Rotation
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Fri, 23 Apr 1999 02:32:15 -0400
- Organization: Universitaet Leipzig
- References: <7fh2l5$h24@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi Robert,
something like that:
Needs["Graphics`SurfaceOfRevolution`"]
Table[SurfaceOfRevolution[u^2,{u,0,1},{t,0,alpha},
PlotRange->{{-1,1},{-1,1},{0,1}}],{alpha,Pi/4,2Pi,Pi/4}]
Close he created cells, select the cell bracket and use the Cell |
Animate Selected Graphics
from the menu.
Regards
Jens
Robert Hoopes wrote:
>
> Hi, I am trying to construct a movie that demonstrates how the rotation of a
> parabola can form a 3D solid.
>
> Can someone explain how to do this ?
>
> Sincerely Robert Hoopes