【微分几何】演示水滴形曲面与平面的截线

1、水滴形曲面的一个参数方程如下图所示：

4、画出截线：ParametricPlot3D[r, {t, 0, 2 Pi}, {v, 0, Pi},PlotStyle -> Opacity[0.5],MeshFunctions -> Function[{x, y, z}, (Evaluate[{x, y, z}.{1, 1, 1}])],Mesh -> {{0.1}}, MeshStyle -> {Blue, Thickness[0.005]}]

6、把曲面全透明化，凸显截线：