1
$\begingroup$

This question already has an answer here:

I wanted to shows the radial density (thickness 1) with different color such that dark color shows for lower radius and light color for higher radius. The gap between concentric sphere should be solid. How to fill those gap. enter image description here

a = SphericalPlot3D[{1}, {\[Theta], 0, Pi}, {\[Phi], 0, 2 Pi}, 
   PlotStyle -> Directive[Blue, Opacity[0.7], Specularity[White, 20]],
    Mesh -> None, PlotPoints -> 40];

b = SphericalPlot3D[{2}, {\[Theta], 0, Pi}, {\[Phi], 0, 5 Pi/4}, 
   PlotStyle -> Directive[Red, Opacity[0.7], Specularity[White, 20]], 
   Mesh -> {{0}, {0}, {0}}, PlotPoints -> 40];

c = SphericalPlot3D[{3}, {\[Theta], 0, Pi}, {\[Phi], 0, 5 Pi/4}, 
   PlotStyle -> 
    Directive[Green, Opacity[0.7], Specularity[White, 20]], 
   Mesh -> {{0}, {0}, {0}}, PlotPoints -> 40];

abc = Show[a, b, c, PlotRange -> Automatic]
$\endgroup$

marked as duplicate by Michael E2, dr.blochwave, Öskå, Sjoerd C. de Vries, m_goldberg Aug 29 '15 at 22:45

This question has been asked before and already has an answer. If those answers do not fully address your question, please ask a new question.

Browse other questions tagged or ask your own question.