Superficie de Sievert

  Superficie parametrizada por:

x[a][q,j]=
    {(2/(a+1-aSin[j]²Cos[q]²))
    (Sqrt[(a+1)(1+aSin[q]²)]Sin[j]/Sqrt[a])
   Cos[-q/Sqrt[a+1]+ArcTan[Sqrt[a+1]
                                                   Tan[q]]],
   (2/(a+1-aSin[j]²Cos[q]²))
   (Sqrt[(a+1)(1+aSin[q]²)]Sin[j]/Sqrt[a])
    Sin[-q/Sqrt[a+1]+ArcTan[Sqrt[a+1]
                                                  Tan[q ]]],
   Log[Tan[j/2]]/Sqrt[a] +  2(a+1)Cos[j]/((a+1-aSin[j]²Cos[q]²)Sqrt[a])}

  Su curvatura de Gauss es constante a².
Gráfica para -p/2£q£p/2, 0.001£j£p- 0.001.

Tabla de Miscelanea de Superficies

Imagen animada