使半球不在原点

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]