Plot[d(x^2 sin(1/x))/dx, {x, -0.000001, 0.000001}]