Graphical Calculus

$TextStyle = {FormatType -> TraditionalForm, 
          FontFamily -> "Times", FontSize -> 12};

The Function

f[x_] = (x^3) - 3  (x^2) + 5;
Print["f[x] = ", f[x]];
Plot[{f[x]}, {x, -3, 4}, PlotRange -> {-10, 10}, 
        PlotStyle -> {RGBColor[1, 0, 0]}, 
        Ticks -> {Automatic, False}, 
        AxesLabel -> {x, y}];

The Derivative

Print["f'[x] = ", f'[x]];
Plot[{f[x], f'[x]}, {x, -3, 4}, 
        PlotRange -> {-10, 10}, 
        PlotStyle -> {RGBColor[1, 0, 0], RGBColor[0, 1, 0]}, 
        Ticks -> {Automatic, False}, 
        AxesLabel -> {x, y}];

The Second Derivative

Print["f''[x] = ", f''[x]];
Plot[{f[x], f'[x], f''[x]}, {x, -3, 4}, 
        PlotRange -> {-10, 10}, 
        PlotStyle -> {RGBColor[1, 0, 0], RGBColor[0, 1, 0], 
            RGBColor[0, 0, 1]}, Ticks -> {Automatic, False}, 
        AxesLabel -> {x, y}];