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?