Take the 2-minute tour ×
Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.

I have the following plots for two graphs:

RegionPlot3D[x^2 + y^2 + 1 <= z <= 4, {x, -2, 2}, {y, -2, 2}, {z, 0, 5}] 

ContourPlot3D[x^2 + y^2 + z^2 == 25, {x, -5, 5}, {y, -5, 5}, {z, -5, 5}]

How can i do to see this two graphs together in the same plot?

share|improve this question

closed as off-topic by Kuba, Sjoerd C. de Vries, Jens, rm -rf May 15 at 6:10

This question appears to be off-topic. The users who voted to close gave this specific reason:

  • "This question arises due to a simple mistake such as a trivial syntax error, incorrect capitalization, spelling mistake, or other typographical error and is unlikely to help any future visitors, or else it is easily found in the documentation." – Kuba, Sjoerd C. de Vries, Jens, rm -rf
If this question can be reworded to fit the rules in the help center, please edit the question.

2  
Lookup Show. You might want to adjust the opacity of the outer/bigger one so that you can "see inside" –  rm -rf May 15 at 2:58

1 Answer 1

up vote 2 down vote accepted
g2 = RegionPlot3D[x^2 + y^2 + 1 <= z <= 4, {x, -2, 2}, {y, -2, 2}, {z, 0, 5}, 
                  Mesh -> None, PlotStyle -> Directive[Blue, Specularity[White, 30]]];

g1 = ContourPlot3D[x^2 + y^2 + z^2 == 25, {x, -5, 5}, {y, -5, 5}, {z, -5, 5}, 
                   ContourStyle -> Directive[Lighter@Red, Opacity[0.6], 
                                   Specularity[White, 30]], 
                   Mesh -> None];
Show[g1, g2]

Mathematica graphics

share|improve this answer

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