Mathematica绘制曲面交线方法

新引入的SliceContourPlot不错

 

SliceContourPlot3D[y, (1.7 x^2 + y/3 + 0.6 z^2) (1.7 (x - 2)^2 +
y/3 + 0.6 z^2) == 6, {x, -2, 3}, {y, -2, 3}, {z, -2, 3},
Contours -> {0, 1, 2}, PlotPoints -> 100]

Show[SliceContourPlot3D[
x^2 + y^2, (1.7 x^2 + y/3 + 0.6 z^2) (1.7 (x - 2)^2 + y/3 +
0.6 z^2) == 6, {x, -2, 3}, {y, -2, 3}, {z, -2, 3},
Contours -> {1, 2}],
ContourPlot3D[{x^2 + y^2 == 1, x^2 + y^2 == 2}, {x, -2, 3}, {y, -2,
3}, {z, -2, 3}, ContourStyle -> Opacity[0.3], Mesh -> None,
BoundaryStyle -> None]]