% Graph of x*sin(1/x)

x1= 0.00001:0.000001:0.183;
y1 = x1.*sin(1./x1);
x2= -0.183:0.000001:-0.00001;
y2 = x2.*sin(1./x2);

plot(x1,y1,'k',x2,y2,'k',[-0.2 0.2],[0 0],'k',[0 0],[-0.15 0.15],'k',...
         0.201,0,'k>',0,0.151,'k^')
axis([-0.21 0.21 -0.16 0.16])