Option Explicit
'-------------------------------------------------------------------------------------------
'  parametric description of Enneper surface
'  x = u - u * u * u / 3 + u * v * v
'  y = v - v * v * v / 3 + v * u * u
'  z = u * u - v * v
' (from http://rsp.math.brandeis.edu/3D-XplorMath/Surface/enneper/enneper.html)
' Pablo Miranda Carranza, code released under GNU General Public License (www.gnu.org/licenses/gpl.txt)
'-------------------------------------------------------------------------------------------


Sub Enneper()

Dim u, v
Dim x,y,z

for u=-10 to 10
for v=-10 to 10

x = u - u * u * u / 3 + u * v * v
y = v - v * v * v / 3 + v * u * u
z = u * u - v * v

Rhino.AddPoint (Array(x,y,z))


next
next


End sub

'we call the sub here so we don't have to run it (it will run at load)
Enneper