[Date Index]
[Thread Index]
[Author Index]
RE: Revolving a Rectangle About an Axis
*To*: mathgroup at smc.vnet.net
*Subject*: [mg32213] RE: [mg32206] Revolving a Rectangle About an Axis
*From*: "David Park" <djmp at earthlink.net>
*Date*: Sun, 6 Jan 2002 03:38:29 -0500 (EST)
*Sender*: owner-wri-mathgroup at wolfram.com
Ryan,
I think I understand the disk method for finding the volume contained by
surfaces of revolution but I don't understand how rectangles come into it.
What you have is circular disks of different radii that slice the volume of
revolution.
There are a number of ways to make an illustrative plot. Here I show how to
do it using the DrawGraphics package from my web site. It is very easy to
color, use wireframe and combine 3D surfaces with DrawGraphics and more
difficult to do it with standard methods.
I am going to illustrate the disk method for the surface of revolution y =
Sqrt[x] between x = 0 and x = 4, revolved about the x-axis. I will make an
animation showing the surface and the disk sliding along the x-axis.
Needs["DrawGraphics`DrawingMaster`"]
surface[x_, t_] = {x, Sqrt[x]*Cos[t], Sqrt[x]*Sin[t]};
disk[x_][r_, t_] = {x, r Cos[t], r Sin[t]};
The following code defines one frame of the animation.
1) I draw the back half of the surface of revolution in CadetBlue on the
front side and Salmon on the back side.
2) I draw the front half of the surface of revolution using a LightGray
wireframe.
3) I draw the disk representing one slice of the volume in Melon.
4)The NeutralLighting command (which generates a sequence of Options) is
used so that the colors will show well and not be overwhelmed by the default
lighting.
diskframe[xval_] :=
Draw3DItems[
{FaceForm[SurfaceColor[CadetBlue], SurfaceColor[Salmon]],
ParametricDraw3D[Evaluate[surface[x, t]],
{x, 0, 4}, {t, -Pi/2, Pi/2}, PlotPoints -> {15, 30}],
LightGray,
UseWireFrame[ParametricDraw3D[Evaluate[surface[x, t]], {x, 0, 4},
{t, Pi/2, 3*(Pi/2)}, PlotPoints -> {15, 30}]],
SurfaceColor[Melon],
ParametricDraw3D[Evaluate[disk[xval][r, t]],
{r, 0, Sqrt[xval]}, {t, 0, 2*Pi}, PlotPoints -> {8, 30}]},
Axes -> True,
NeutralLighting[0.3, 0.5, 0],
PlotRange -> {{-0.2, 5}, {-2.2, 2.2}, {-2.2, 2.2}},
ImageSize -> 500];
This produces the animation.
Animate[diskframe[s], {s, 0.1, 4}]
SelectionMove[EvaluationNotebook[], All, GeneratedCell]
FrontEndTokenExecute["OpenCloseGroup"]
FrontEndTokenExecute["SelectionAnimate"]
I leave the actual integration to the student.
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
> From: Ryan R. Rosario [mailto:rrosario11 at hotmail.com]
To: mathgroup at smc.vnet.net
>
> Happy New Year everyone!
>
> I am trying to help a calculus 1 student understand the disk method for
> solids of revolution by using Mathematica graphics. I have created a
> function that produces a series of "typical rectangles" for a
> given function
> and its endpoints.
>
> How can I revolve a rectangle about an axis? I would like to revolve the
> rectangle so that it represents a three dimensional disk. Is this
> possible?
> If so, how can I do it?
>
> Thanks in Advance,
> Ryan
>
Prev by Date:
**Synergetics Coordinates NoteBooks**
Next by Date:
**System Ax=b!**
Previous by thread:
**Revolving a Rectangle About an Axis**
Next by thread:
**Factorization**
| |