       Re: RevolutionPlot3D Help

• To: mathgroup at smc.vnet.net
• Subject: [mg119821] Re: RevolutionPlot3D Help
• From: Heike Gramberg <heike.gramberg at gmail.com>
• Date: Fri, 24 Jun 2011 07:45:16 -0400 (EDT)
• References: <201106231126.HAA25957@smc.vnet.net>

```Suppose you want to revolve the region between y=f[x] and y=g[x] with x0<x<x1 then you could do something like

pl1 = RevolutionPlot3D[{{f[x]}, {g[x]}}, {x, x0, x1}, RevolutionAxis -> {1, 0, 0}];
pl2 = RevolutionPlot3D[{x0, t}, {t, f[x0], g[x0]}, RevolutionAxis -> {1, 0, 0}];
pl3 = RevolutionPlot3D[{x1, t}, {t, f[x1], g[x1]}, RevolutionAxis -> {1, 0, 0}];
Show[pl1, pl2, pl3]

Alternatively, you could use RegionPlot3D, i.e.

RegionPlot3D[f[x] < Sqrt[y^2 + z^2] < g[x] || g[x] < Sqrt[y^2 + z^2] < f[x],
{x, x0, x1}, {y, -r0, r0}, {z, -r0, r0}]

where r0 is an upper bound of |f[x]| and |g[x]|

Heike.

On 23 Jun 2011, at 12:26, tolga wrote:

> How can I do revolve a region between two curves around the x axis
> with "RevolutionPlot3D" command?
>

```

• Prev by Date: Re: Is a conditional evaluation of sections of a notebook possible?
• Next by Date: Replacement rules for large matrixes
• Previous by thread: RevolutionPlot3D Help
• Next by thread: RevolutionPlot3D Help