code for above diagram

> f:=x^3*sqrt(25-x^2):plot({f,diff(f,x)},x=-5..5,thickness=3);