<< RealTime3D`

Elliptic cylinder:

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

Hyperboloid of one sheet:

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

Sphere:

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

ParametricPlot3D[{Sin[ϕ] Cos[θ], 
          Sin[ϕ] Sin[θ], Cos[ϕ]}, {θ, 
          0, ((7  π)/4)}, {ϕ, 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}];

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, π}];