Costa極小曲面

　　
Costa曲面は1984年Costaにより発見された極小曲面（平均曲率がいたるところ0の曲面）です．
トーラス（ドーナツの表面）のような穴（種数）を持っています．

---

　　　

3D-グラフィック　　　　　　　　　 3Dプリンタにより作った模型　　　　 穴 (動画)

---

Wolfram のウェブサイトに記載されている Mathematica の３Dプロットデータに
Blender というソフトによって厚みを付けて stl ファイルに変換したあと、
Creality Slicerというソフトを用いてｇコードに変換し，
３Dプリンターに入力することで模型を作製した。

---

Mathematica のソースコード

x[w_, m_] :=

　With[{c = EllipticK[m]},
　 Re[(Pi/2 + c^2/4) w -
　　 c/2 (JacobiEpsilon[cw, m] + JacobiCN[cw, m] JacobiDS[cw, m]) -
　 Pi/(4 c) JacobiSD[cw, m] (JacobiNC[cw, m] + JacobiCN[cw, m])]];
y[w_, m_] :=
　With[{c = 2 EllipticK[m]},
　 Im[(Pi/2 - c^2/4) w +
　 c/2 (JacobiEpsilon[cw, m] + JacobiCN[cw, m] JacobiDS[cw, m]) -
　 Pi/(4 c) JacobiSD[cw, m] (JacobiNC[cw, m] + JacobiCN[cw, m])]];
z[w_, m_] :=
　With[{c = 2 EllipticK[m]}, Sqrt[Pi/8] Log[Abs[JacobiCN[cw, m]^2]]];

ParametricPlot3D[
With[{w = u + Iv}, {x[w, 1/2], y[w, 1/2], z[w, 1/2]}], {u, 0, 1}, {v,
　 0, 1}, Mesh -> False]
　　　 style='mso-bidi-font-family:"Times New Roman"'>

使用 3Dプリンタ Ender-3 S1 Plus