0
$\begingroup$
RegionPlot3D[(x - 45/2)^2 + y^2 + z^2 >= 25/
   4 && (x - 15)^2 + y^2 + z^2 >= 25 && (x - 35/2)^2 + y^2 + z^2 <= 
   225/4, {x, -5, 35}, {y, -15, 15}, {z, -15, 15}, PlotPoints -> 50, 
 PlotRange -> All]

The image output by this code is of very poor quality. How can I improve it.

$\endgroup$
2
  • 2
    $\begingroup$ PlotPoints->250 or PlotPoints->500 but then you will perhaps reply "why does it take so long to produce textbook or art quality images and how can I make it do it instantly?" $\endgroup$
    – Bill
    Jan 25, 2020 at 7:23
  • 2
    $\begingroup$ If you use contourRegionPlot3D[] from this answer, you'll get a better picture. $\endgroup$ Jan 25, 2020 at 12:54

1 Answer 1

1
$\begingroup$

Draw extra boundary. Is slightly faster.

cond = (x - 45/2)^2 + y^2 + z^2 >= 25/4 && (x - 15)^2 + y^2 + z^2 >= 
       25 && (x - 35/2)^2 + y^2 + z^2 <= 225/4;

cond2 = List @@ (Equal @@ # & /@ cond)

rp = RegionPlot3D[cond, {x, 10, 25}, {y, 0, 8}, {z, -8, 8}, 
        PlotPoints -> 100];

cp = ContourPlot3D[
       Evaluate[cond2], {x, 10, 25}, {y, 0, 8}, {z, -8, 8}, 
       PlotPoints -> 50];

Show[cp, rp]

enter image description here

$\endgroup$

Not the answer you're looking for? Browse other questions tagged or ask your own question.