怎么用Mathematica画球体?它的方程为:x^2+y^2+z^2=16 我这样做不可以合上球体啊a = Plot3D[Sqrt[16 - x^2 - y^2], {x, -4, 4}, {y, -4, 4}, BoxRatios -> {1, 1, 1}]b = Plot3D[-Sqrt[16 - x^2 - y^2], {x, -4, 4}, {y, -4, 4}, Box

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/02 00:10:48

怎么用Mathematica画球体?它的方程为:x^2+y^2+z^2=16 我这样做不可以合上球体啊a = Plot3D[Sqrt[16 - x^2 - y^2], {x, -4, 4}, {y, -4, 4}, BoxRatios -> {1, 1, 1}]b = Plot3D[-Sqrt[16 - x^2 - y^2], {x, -4, 4}, {y, -4, 4}, Box
怎么用Mathematica画球体?
它的方程为:x^2+y^2+z^2=16
我这样做不可以合上球体啊
a = Plot3D[Sqrt[16 -
x^2 - y^2], {x, -4, 4}, {y, -4, 4}, BoxRatios -> {1, 1, 1}]
b = Plot3D[-Sqrt[16 - x^2 - y^2], {x, -4, 4}, {y, -4, 4},
BoxRatios -> {1, 1, 1}]
Show[a, b]

怎么用Mathematica画球体?它的方程为:x^2+y^2+z^2=16 我这样做不可以合上球体啊a = Plot3D[Sqrt[16 - x^2 - y^2], {x, -4, 4}, {y, -4, 4}, BoxRatios -> {1, 1, 1}]b = Plot3D[-Sqrt[16 - x^2 - y^2], {x, -4, 4}, {y, -4, 4}, Box
你可以试试这个
ParametricPlot3D[{4Cos[u]*Cos[v],4Sin[u]*Cos[v],4Sin[v]},{u,0,2Pi},{v,-Pi/2,Pi/2}]
用参数作图,如果不想要坐标和框的话就设置一下Axes和Boxed为False