Wolfram mathematica 制造一个不在原点的半球

我想画一个几乎透明的半球，它的中心不在原点

我目前有：

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

类似地，我看到了一个如何制作半球的示例：

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

---

但它是以原点为中心的。有没有一种方法可以平移SphereCalPlot，或者裁剪z>0的球体？

您可以尝试使用

ParametericPlot3D

，例如，以

{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]