Botella de Klein (imagen clásica de W.R.I.)

  Imagen clásica  de la Botella de Klein, debida a Wolfram Research Inc., y obtenida a partir de la representación paramétrica:

    x[q,j]=
  If[p<q£2p,{6Cos[q](1+Sin[q])+
          4(1-Cos[q]/2)Cos[j+p],16Sin[q],
                                4(1-Cos[q]/2)Sin[j]},
           {6Cos[q](1+Sin[q])+
                     4(1-Cos[q]/2)Cos[q]Cos[j],
       16Sin[q]+4(1-Cos[q]/2)Sin[q]Cos[j],
                                 4(1-Cos[q]/2)Sin[j]}]

Tabla de Miscelanea de Superficies

Imagen animada