Mathematica，结合ContourPlot3D和ListPointPlot3D

Question

我想将3D功能图与一些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}}]

有什么方法可以使它起作用或以其他方式一起显示这两个图？

Answer 1

像这样吗

Show[D3Plot, Graphics3D[{Red, PointSize[0.1], Point[atest3D]}], PlotRange -> All]

Answer 2

还有什么方法可以使这些点始终可见，即使它们在曲面的另一侧？