Leopold

silviana amethyst

Equation

\[ 1000 x^2y^2z^2 + 3x^2+3y^2+z^2=1 \]

Properties:

Some story

Decomposed with default bertini and bertini_real settings. Often, I have to increase the setting sharpendigits so that points which are near each other are identified as such. But this smooth surface is so nice that it just popped right out.

The first one I printed almost failed. I very slightly underestimated the amount of filament on the spool, and it ran out at the top. So, I used a little from a different color to finish it off, having left it on the printer.

Bertini_real input files

input

% surface 'leopold' from herwig hauser's gallery
CONFIG
tracktype:1;
END;
INPUT

variable_group x, y,z;
function f1;
f1 = 1000*x^2*y^2*z^2+3*x^2+3*y^2+z^2-1;
END;