Plot[x^2 Sin[x^(-1)], {x, -0.001, 0.001}]