# How can I reproduce some surface plots in Mathematica?

I am not really familiar with Mathematica. I wonder if some one can help me draw any of the following surfaces. I will be appreciative if you tell me how to use equations and PlotRange to draw those.

• Welcome to Mathematica.SE. Where do these images come from? Do you want to draw these three specific shapes or are they merely examples? Sep 17, 2013 at 1:23
• A good starting point will be this and that. Sep 17, 2013 at 1:39
• I wanted to draw those and I kind of got the first two but about the last one I am not sure . Sep 19, 2013 at 0:01
• First one: RegionPlot3D[ Sqrt[x^2 + y^2] <= z && x^2 + y^2 + z^2 <= 2, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, Mesh -> None, AxesLabel -> {x, y, z}, PlotRange -> All, PlotPoints -> 120, PlotStyle -> Directive[Yellow, Specularity[White, 20], Opacity[0.5]]] Sep 19, 2013 at 0:01
• Second one: Show[Graphics3D[{Yellow, Sphere[{0, 0, 0}, 1], Red, Sphere[{0, 0, 2}, 1], Blue, Sphere[{0, 0, -2}, 1]}, Axes -> True, AxesLabel -> {x, y, z}] , ContourPlot3D[x^2 + y^2 == 1, {x, -5, 5}, {y, 0, 5}, {z, -5, 5}, Mesh -> None, PlotRange -> Full, PlotPoints -> 120, ContourStyle -> Directive[White, Opacity[0.3]]]] Sep 19, 2013 at 0:02

GraphicsRow[