Plot[ x^2 * Sin[1/x],{x,-2,2}]

Plot[ x^2 * Sin[1/x],{x,-0.2,0.2}]

Plot[ 1/x, {x,-0.2,0.2}]

Plot[ Sin[1/x], {x, -0.2, 0.2} ]