REPRESENTACIÓN GRAFICA DE LA DERIVADA

restart:with(plots):f:=x->root[3](x);
> f(x+h);
> f(x+h)-f(x);
> %/h;
> Limit(%,h=0,right):%=value(%);
> Limit((f(x)-f(x-h))/h,h=0,left):%=value(%);
> p1:=plot(f(x),x=-0.5..4,y=-4..2,color=blue,thickness=3):
> p2:=plot(rhs(%%),x=-0.5..4,y=-2..2,color=brown,thickness=3):
> display(p1,p2);
>