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?