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?
>
- References:
- RevolutionPlot3D Help
- From: tolga <tlgclk@gmail.com>
- RevolutionPlot3D Help