Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > comp.soft-sys.math.mathematica > #3268
| From | Heike Gramberg <heike.gramberg@gmail.com> |
|---|---|
| Newsgroups | comp.soft-sys.math.mathematica |
| Subject | Re: RevolutionPlot3D Help |
| Date | 2011-06-24 11:47 +0000 |
| Organization | Steven M. Christensen and Associates, Inc and MathTensor, Inc. |
| Message-ID | <iu1the$9ij$1@smc.vnet.net> (permalink) |
| 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?
>
Back to comp.soft-sys.math.mathematica | Previous | Next | Find similar | Unroll thread
Re: RevolutionPlot3D Help Heike Gramberg <heike.gramberg@gmail.com> - 2011-06-24 11:47 +0000
csiph-web