wolfram-mathematica - 制作一个不在原点的半球

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 ？

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]