三つ葉結び目を描いてみましょう。 まずは2次元平面への投影図です。 /* 3.6.4m */ a : 1.0$ b : 0.4$ r(t) := a + b*cos(3*t/2)$ plot2d([parametric, r(t)*cos(t), r(t)*sin(t), [t, 0, 4*%pi + 0.1], [nticks, 200]], [x, -2.0, 2.0], [y, -1.5, 1.5])$ …