Mathematica, ContourPlot3D와 ListPointPlot3D를 결합하십시오.

Question

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

인가가 어떤 이 두 가지 플롯을 표시하려면이 방법을 사용하거나 다른 방법으로 그녀를 갖다?

Answer 1

이와 비슷한?

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

Answer 2

은 표면의 반대편에있는도면, 항상 볼 수있는 포인트를 만들 수있는 방법이 있습니까?