Mathematica 代碼

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

 

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

 

Show[s1, s2, PlotRange -> All]img

 

相關文章
相關標籤/搜索