<< RealTime3D`

Elliptic cylinder

ParametricPlot3D[{Cos[θ], 2 Sin[θ], z}, 
                  {θ, 0, 2 π},
                  {z, -3, 3}];

Surface of revolution

Clear[f];
f[y_] := 0.1  y^2 (y^2 - 9)  + 3

graph = 
        Plot[f[y], {y, 0, 2.5},  
          AxesOrigin  ->  {0, 
              0}, 
PlotStyle  -> {Thickness[0.015], 
              RGBColor[0, 0, 
                1]}, 
DisplayFunction  ->  
            Identity];
graphpix = 
        Show[graph, Graphics[ {PointSize[0.001], Point[{0, 0}]}], 
          AspectRatio  ->   .8, 
Ticks -> {{1, 
                2}, {1, 2, 
                3}}, 
DisplayFunction  ->  $DisplayFunction];

surface = 
        ParametricPlot3D[{f[y] Cos[θ], y,  
            f[y] Sin[θ]}, 
{θ, 0, 
            2 π}, 
{y, 0, 
            2.5}, 
DisplayFunction  ->  
            Identity];
figure = 
        Show[surface, 
          ViewPoint -> {1.574,  0.937,  
              0.626}, 
BoxRatios  ->  {1,  .75, 
              1}, 
DisplayFunction  -> $DisplayFunction];

Circular hyperboloid of one sheet

ParametricPlot3D[{(Sqrt[1 +  (z^2)]) Cos[θ],  (Sqrt[1 +  (z^2)]) Sin[θ],  z}, 
{θ, 0, 
          2 π}, 
{z, -3, 3}];

Elliptical hyperboloid of one sheet

ParametricPlot3D[{(Sqrt[1 +  ((z^2)/9)]) Cos[θ],  
          2 (Sqrt[ 1 +  ((z^2)/9)]) Sin[θ],  
          z}, 
{θ, 0, 
          2 π}, 
{z, -9, 9}];

Sphere

ParametricPlot3D[{Sin[ϕ] Cos[θ], 
          Sin[ϕ] Sin[θ], Cos[ϕ]}, {θ,  (π/4), 
          2  π},  {ϕ, 0, π}];

Ellipsoid

ParametricPlot3D[{2 Sin[ϕ] Cos[θ],3 Sin[ϕ] Sin[θ],Cos[ϕ]}, 
                  {θ, 0, 2π},{ϕ, 0, π}];

Top

Plot[
        2 +  .1 Cos[2  ϕ] +  .4  Cos[4  ϕ],  {ϕ, 
          0, π}, 
PlotRange  ->  {0, 
            3.2}, 
PlotStyle  ->  {Thickness[0.01], 
            RGBColor[0, 0, 1]}, 
Ticks  -> {{1, 2, 
              3}, {1, 2, 3}}];

ParametricPlot3D[{(2 +  .1 Cos[2  ϕ] +  .4 
                   Cos[4  ϕ]) Sin[ϕ] Cos[θ], 
                                 (2 +  .1 Cos[2  ϕ] +  .4  Cos[4  ϕ]) 
            Sin[ϕ] Sin[θ],      
                                 (2 +  .1 Cos[
                    2  ϕ] +  .4  Cos[4  ϕ]) 
            Cos[ϕ]}, 
                                  {θ, 0, 2  π}, {ϕ, 
          0, π}];

Elliptical cone

cylindrical coordinates:

ParametricPlot3D[{Abs[z] Cos[θ], 2 Abs[z] Sin[θ],z}, 
                  {θ, 0, 2 π},
                  {z, -3, 3}];

spherical coordinates:

ParametricPlot3D[{ρ Sin[(π/4)] Cos[θ],  
          2  ρ Sin[(π/4)] Sin[θ], ρ Cos[(π/4)]}, 
{θ, 0, 
          2 π}, 
{ρ, -3, 
          3}];