求助帖

x = 1 + rCos[u]; y = rSin[u]; z = Sqrt[4 - x^2 - y^2]; g1 =
ParametricPlot3D[{{x, y, z}, {x, y, -z}}, {u, 0, 2 \[Pi]}, {r, 0, 1},
PlotPoints -> {20, 30}, PlotRange -> All]
x = (rSin[u])^2/2; y = rSin[u] Sqrt[1 - 1/4 r^2 Sin[u]^2]; z =
rCos[u]; g2 =
ParametricPlot3D[{{x, y, z}, {x, -y, z}}, {u, 0, \[Pi]}, {r, 0, 2},
PlotRange -> All] Show [g1, g2, PlotRange -> All]
我想画球和圆柱面交出来的立体图，但我运行后只出来了一个立方体。。。
求助！先谢谢各位了。