制作一个不在原点的半球

Question

我正在寻找一个基本透明的半球，其原点中心为 not 。

我目前有：

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]