Re: Volumes

• To: mathgroup at smc.vnet.net
• Subject: [mg26238] Re: [mg26219] Volumes
• From: Tomas Garza <tgarza01 at prodigy.net.mx>
• Date: Wed, 6 Dec 2000 02:16:22 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```Use SurfaceOfRevolution. E.g.

In[1]:=
f[x_] := x^3;

This is the plot of your curve in 2D:

In[2]:=
Plot[f[x], {x, -5, 5}, PlotRange -> {{0, 5}, {0, 8}}];

Now you call the Add-On and produce the plot of the volume:

In[3]:=
<< Graphics`SurfaceOfRevolution`
In[4]:=
SurfaceOfRevolution[
f[x], {x, 0, 2}, Axes -> True,
PlotRange -> {{-2, 2}, {-2, 2}, {0, 8}}]

Many embellishments are possible.

Tomas Garza
Mexico City

bobmarley4u2c at my-deja.com wrote:

> I have a problem like: Find the volume of the solid obtained by
> rotating the region bounded by y=x^3, y=8 and x=0 about the y
-axis. I
> know how to solve this on paper, but the real problem is how can I
> visualize this graph in 3d? My book does a good job of showing it, how
> can I produce pictures like that with Mathematica?

```

• Prev by Date: Easy way to simplify expr to a+bi?
• Next by Date: Re: using the result from previous calculation
• Previous by thread: Volumes
• Next by thread: Integrating Conditionals/piecewise cont. functions