Mathematica 代碼

s1 = ContourPlot3D[x^2 + z^2 == 1, {x, -1, 1}, {y, 0, 1}, {z, -1, 1}]

 

s2 = ContourPlot3D[
y == 1 + Sqrt[1 - x^2 - z^2], {x, -1, 1}, {y, 1, 2}, {z, -1, 1}]

 

Show[s1, s2, PlotRange -> All]