Mathematica，结合 ContourPlot3D 和 ListPointPlot3D
Mathematica, combine ContourPlot3D and ListPointPlot3D
我想将 3 维函数图与一些 3D 点结合起来。一些单独工作的行是：
D3Plot= ContourPlot3D[x^2+y^2+z^2== 2, {x, 0, 2}, {y, 0, 2}, {z, 0,2}, ColorFunction -> Function[{x, y, z}, Hue[1*(1 - z)]]]
和：
atest3D = {{1, 1, 1}, {2, 1, 1}, {1, 2, 1}, {1, 1, 2}, {2, 2, 2}};
但是，将它们组合在一起时我遇到了一些问题：
Show[atest3D,D3Plot,AxesOrigin -> {0, 0, 0}, PlotRange -> {{0, 3}, {0, 3}, {0, 3}}]
有什么方法可以让它发挥作用，或者有其他方法可以同时显示这两个图吗？
是这样的吗？
Show[D3Plot, Graphics3D[{Red, PointSize[0.1], Point[atest3D]}], PlotRange -> All]
是否还有任何方法可以使点始终可见，即使它们位于表面的另一侧？
我想将 3 维函数图与一些 3D 点结合起来。一些单独工作的行是：
D3Plot= ContourPlot3D[x^2+y^2+z^2== 2, {x, 0, 2}, {y, 0, 2}, {z, 0,2}, ColorFunction -> Function[{x, y, z}, Hue[1*(1 - z)]]]
和：
atest3D = {{1, 1, 1}, {2, 1, 1}, {1, 2, 1}, {1, 1, 2}, {2, 2, 2}};
但是，将它们组合在一起时我遇到了一些问题：
Show[atest3D,D3Plot,AxesOrigin -> {0, 0, 0}, PlotRange -> {{0, 3}, {0, 3}, {0, 3}}]
有什么方法可以让它发挥作用，或者有其他方法可以同时显示这两个图吗？
是这样的吗？
Show[D3Plot, Graphics3D[{Red, PointSize[0.1], Point[atest3D]}], PlotRange -> All]
是否还有任何方法可以使点始终可见，即使它们位于表面的另一侧？