给定一个圆环面：r[{u_, v_}] := {1/2 (2 + Cos[u]) Cos[v], 1/2 (2 + Cos[u]) Sin[v], Sin[u]/2}本文绘制不同的平面与圆环面的截线。
工具/原料
1
电脑
2
Mathematica
方法/步骤
1
与yoz面平行的平面，可以表示为x=某个常数。下图是平面x=0.5与圆环面的截线。
2
下图是x=p，p从-1.5到1.5的截线动画：
3
着重查看一下p在0.5附近的动画情况：
4
平面x=Sqrt[3]*z与圆环面的截线：
5
平面x=k*z，k从0变到3的动画：
6
着重查看k在Sqrt[3]的截线动画：