Enneper's Minimal Surface

ParametricPlot3D[{
        Re[(E^(I θ)) r - (1/3) (E^(3 I th)) (r^3)], 
        Re[I (E^(I θ)) r + (1/3) I (E^(3 I th)) (r^3)], 
        Re[(E^(2 I θ)) (r^2)]}, {θ, 0, 2 π}, {r, 0, 3}, 
      PlotPoints -> {100, 30}, Boxed -> False, Axes -> None, 
      PlotRange -> All, ViewPoint -> {0, 2, .7}]