Botella de Klein (imagen clásica)

  Imagen clásica  de la Botella de Klein, obtenida a partir de la representación paramétrica:

    x[e,f](q ,j ) = If[q <0,{f*Sin[q]/2,
(-e-f/2+f*Cos[q]/2)*Cos[j],
(e+f/2-f*Cos[q]/2)*Sin[j]},
{10*Sin[0.105*q]+2*(e+0.033*f*q)*
(Cos[0.105*q]+4*Cos[0.21*q])*Cos[j]
*(Sin[0.105*q]+2*Sin[0.21*q])/
Sqrt[100*Cos[0.105*q]²+
4*(Cos[0.105*q]+4*Cos[0.21*q])² *(Sin[0.105*q]+2*Sin[0.21*q])²],
(Sin[0.105*q]+2*Sin[0.21*q])²-
(10*(e+0.033*f*q)*Cos[0.105*q]*
Cos[j])/Sqrt[100*Cos[0.105*q]²+
4*(Cos[0.105*q]+4*Cos[0.21*q])²*
(Sin[0.105*q]+2*Sin[0.21*q])²],
(e+0.033*f*q)*Sin[j]}]

Gráfica:e=1,f=2,-p£q£30,-p£j£p.

Tabla de Miscelanea de Superficies

Imagen animada