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

> restart:

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

> D(f);

> df:= x -> piecewise(x < 1, 2*x, 2);

>

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

Судя по графику, функция f дифференцируема для всех x.