3

I learned how to do this:

Show[RevolutionPlot3D[{5 Cos[t], 5 Sin[t]},
  {t, -Pi/2, Pi/2}, {\[Theta], 0, 3 Pi/2}],
 RevolutionPlot3D[{Cos[t], Sin[t]},
  {t, -Pi/2, Pi/2}, {\[Theta], 0, 3 Pi/2}]]

But I would like to show the region between the two surfaces. Can someone show me how?

David
  • 14,883
  • 4
  • 44
  • 117

1 Answers1

4

For this specific example (concentric spheres of radius 1 and 5 with "bite" out of it), perhaps easiest:

Quiet@RegionPlot3D[
  1 < x^2 + y^2 + z^2 < 25 && -Pi < ArcTan[y, x] < Pi/2, {x, -6, 
   6}, {y, -6, 6}, {z, -6, 6}, Mesh -> False, PlotPoints -> 50, 
  Boxed -> False, Axes -> False, Background -> Black]

enter image description here

ubpdqn
  • 60,617
  • 3
  • 59
  • 148
  • What are you suppressing with Quiet? I tried to evaluate your expression without it, and it did not generate any messages. – MarcoB May 23 '15 at 17:34
  • @MarcoB 0/0 indeterminate for arctan warning... – ubpdqn May 23 '15 at 23:04
  • What version of MMA are you using? I am on v 10.1 on Win7-64 and I did not receive any warnings even without the Quiet. Interesting... Thanks for getting back to me anyway! – MarcoB May 23 '15 at 23:08
  • @MarcoB "10.1.0 for Microsoft Windows (64-bit) (March 24, 2015)" – ubpdqn May 24 '15 at 07:50