Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2000
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2000

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

Search the Archive

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