Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.soft-sys.math.mathematica > #3268 > unrolled thread

Re: RevolutionPlot3D Help

Back to article view | Back to comp.soft-sys.math.mathematica

This discussion starts older than the indexed window; earlier articles aren't shown. The article labeled Started by below is the oldest one visible, not the original post.

Contents

  Re: RevolutionPlot3D Help Heike Gramberg <heike.gramberg@gmail.com> - 2011-06-24 11:47 +0000

#3268 — Re: RevolutionPlot3D Help

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?
>

[toc] | [standalone]

Back to top | Article view | comp.soft-sys.math.mathematica

csiph-web