制作一个不在原点的半球

Question

我想绘制一个大部分透明的半球，其中心 而不是 在原点。

我目前有：

Graphics3D[{Red, Opacity[0.13], Sphere[{10, 0, 0}, 35], Axes->True}]

同样我看到了一个如何制作半球的例子：

SphericalPlot3D[35,{\theta,0,Pi/2},{\phi,0,2Pi}]

但是它是以原点为中心的。有没有办法平移 SphericalPlot，或者裁剪 z>0 的 Sphere？

Answer 1

您可以尝试使用 ParametricPlot3D，例如以 {10, 10, 10}

为中心

ParametricPlot3D[{Cos[u] Sin[v] + 10, Sin[u] Sin[v] + 10, Cos[v] + 10}, {u, 0, 2 \[Pi]}, {v, 0, \[Pi]/2},
 PlotStyle -> Opacity[0.13],
 Mesh -> None, Axes -> True,
 ColorFunction -> (Red &),
 ViewPoint -> {100, -100, 10},
 ImageSize -> Large]

制作一个不在原点的半球

Making a hemisphere that is not at the origin

wolfram-mathematica

graphics3d