Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

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