# Kusner (Dihedral Symmetric)

Pseudo-Code for “Kusner's Dihedral Symmetry Surfaces”: Let p = Max[Round[ee], 2] and let z.re = u * Cos[v] z.im = u * Sin[v] Then P[z] = Re[ a[z] * V[z] ] + (0, 0, aa) where a[z] is the complex number a[z] = 1/(z^p - z^(-p) + (2/(p-1))*Sqrt[2p - 1]) and V[z] is the complex vector V[z] = { i ( z^(p-1) - z^(1-p) ) , z^(p-1) + z^(1-p) , (i(p-1)/p) ( z^p + z^(-p) ) } This is a minimal surface with dihedral symmetry of order 2p if p is odd and 4p if p is even. The default value of ee is 4. This gives the inversion in the unit sphere of the “Morin Sphere Eversion Midpoint” Willmore surface (see the surface surface menu). On the other hand, when ee = 3 this gives the Inverted Boy's Surface (on this menu). For full details, see: R. Kusner, Conformal Geometry and Complete Minimal Surfaces, Bulletin of the AMS, v.17, Number 2, October 1987, pp291—295.

If you have a question, put $5 at patreon and message me.