Superficie de Boy

  Superficie parametrizada por:
  x[a,b,c][q,j] =
    {(a/2)(-Cos[j]²+2Cos[q]²Sin[j] ²+
      Cos[j]Cos[q]Sin[j](-Cos[j]² +
      Cos[q]²Sin[j]²)-Sin[j]²Sin[q]²+
      2Cos[j]Sin[j]Sin[q](-Cos[j]²+
      Sin[j]²Sin[q]²) - Sin[j]⁴Sin[4q]/4),
      (Sqrt[3]/2)b(-Cos[j]²+
      Cos[j]Cos[q]Sin[j](Cos[j]²-
      Cos[q]²Sin[j]²)+Sin[j]²Sin[q]²-
      (Sin[j]⁴Sin[4q])/4),
      c(Cos[j]+Cos[q]Sin[j]+
      Sin[q]Sin[j])(-4Sin[j](Cos[q]-
      Sin[q])(-Cos[j]+Cos[q]Sin[j])(Cos[j]-         Sin[q]Sin[j])+(Cos[j]+Cos[q]Sin[j]+
      Sin[q]Sin[j])³)}

Tabla de Miscelanea de Superficies

Imagen animada