Построить графики функци и и её производной в одних осях .

> restart:

> f:= x -> piecewise( x < -1, x^3, -1 <= x and x < 2, 1 + 2*x^2, 4*x + 1);

> D(f);

> df:= x -> piecewise( x < -1, 3*x^2, -1 <= x and x < 2, 4*x, 4);

> plot({f(x), df(x)}, x = -2..3, discont=true, color=[blue,brown]);

Судя по графику, функция f дифференцируема всюду, за исключением точки x = -1,2.