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