Maximaでトーラスの結び目を描画
目次
plot3d(
[(10-cos(t)+2*sin(5*s))*cos(2*s)
,(10-cos(t)+2*sin(5*s))*sin(2*s)
,10*cos(5*s)+2*sin(t)]
,[s,0,2*%pi]
,[t,0,2*%pi]
,[grid, 70, 20]
,[box, false]
下記設定にて、メッシュの粒度を設定します。
[grid, 70, 20]
記設定にて、軸座標表示を非表示にします。
[box, false]
(c)jazzblues – イラスト素材 PIXTA –
(c)jazzblues – イラスト素材 PIXTA –
(c)jazzblues – イラスト素材 PIXTA –
(c)jazzblues – イラスト素材 PIXTA –