f, f ', f '', f '''
> restart;
> f:= x -> 1/2*x^6 - 3*x^5 + 5*x^4;
> Df:= D(f);
> D2f:= D(Df);
> D3f:= (D@@3)(f);
> plot ([f(x), Df(x), D2f(x), D3f(x)],
x = -1..4, y = -25..50,
numpoints = 800,
color = [black, red, maroon, blue],
xtickmarks = 4
font = [COURIER, 12]);
numpoints = 800,
color = [black, red, maroon, blue],
xtickmarks = 4
font = [COURIER, 12]);