Ellipsoid

Parameterdarstellung: x=a cos t sin u, y=b sin t sin u, z= c cos u

Table[
      ParametricPlot3D[{6  Cos[t] Sin[u], 5  Sin[t] Sin[u], 4  Cos[u]}, {t, 
          0, 2  Pi}, {u, 0, Pi}, Axes -> None, Boxed -> False, 
        ImageSize -> 500, 
        ViewPoint -> {3  Sin[2  Pi k/100], 3  Cos[2  Pi k/100], 
            3 + 5  Sin[2  Pi k/100]}], {k, 1, 100}]