ContourPlot3D绘图遇到点列怎么显示

Question

用ContourPlot3D绘制1/(2 + Sin[x]) + 1/(2 + Sin[2 y])的等高线图，但是当1/(2 + Sin[x]) + 1/(2 + Sin[2 y])==2时，等高线应该是一些点列，但是ContourPlot3D无法绘制出这些点，想知道怎么才能用ContourPlot3D绘出这些点...

ClearAll["Global`*"]
Solve[1/(2 + Sin[x]) + 1/(2 + Sin[2 y]) == 2, {x, y}, Reals]
(*事实上x只能取-Pi/2+2k Pi,y只能取-Pi/4+k Pi*)
Solve[{1/(2 + Sin[x]) + 1/(2 + Sin[2 y]) == 2, 0 < x < 10 Pi, 
0 < y < 10 Pi}, {x, y}, Reals];
FindSequenceFunction[x /. % // Union, k] // Expand
FindSequenceFunction[y /. %% // Union, k] // Expand
ContourPlot3D[
1/(2 + Sin[x]) + 1/(2 + Sin[2 y]) - 2 == 0, {x, 0, 10 Pi}, {y, 0, 
Pi}, {z, 0, 6}, MeshStyle -> True, Boxed -> True, 
ContourStyle -> {Opacity[0.6], Brown}, BoundaryStyle -> None]

 

Comments

为什么非要用ContourPlot3D？直接NSolve不行吗

---

因为有时并不知道等式会的解会退化为一些点

Answer 1

ContourPlot3D貌似对于点线之类的0面积的东西，是无法绘出图像的。

放松一下方程吧，比如把“==0”改成“==-0.1”。

ContourPlot3D[
 1/(2 + Sin[x]) + 1/(2 + Sin[2 y]) - 2 == -0.1, {x, 0, 10 Pi}, {y, 0, 
  Pi}, {z, 0, 6}]