Plotting surfaces of revolution

We first need to load a graphics package...

<< Graphics`SurfaceOfRevolution`

...and we're good to go. Say we would like rotate y=f(x), a≤x≤b, about the x-axis...

f = x^2;
a = 0;
b = 1;

...then we use the following Mathematica command:

SurfaceOfRevolution[{f, x}, {x, a, b}]

Mathematica allows us to change our point of view...

SurfaceOfRevolution[{f, x}, {x, a, b}, 
      ViewVertical -> {-1, 0, 0}]

...or take away the coordinate boxes:

SurfaceOfRevolution[{f, x}, {x, a, b}, 
      ViewVertical -> {-1, 0, 0}, Boxed -> False]