作业帮怎么用Mathematica画球体?
来源：学生作业帮 编辑：作业帮 分类：数学作业 时间：2024/05/14 02:40:45
怎么用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]
它的方程为：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]
你可以试试这个
ParametricPlot3D[{4Cos[u]*Cos[v],4Sin[u]*Cos[v],4Sin[v]},{u,0,2Pi},{v,-Pi/2,Pi/2}]
用参数作图,如果不想要坐标和框的话就设置一下Axes和Boxed为False
ParametricPlot3D[{4Cos[u]*Cos[v],4Sin[u]*Cos[v],4Sin[v]},{u,0,2Pi},{v,-Pi/2,Pi/2}]
用参数作图,如果不想要坐标和框的话就设置一下Axes和Boxed为False