function rplot(r)
global AM_data_linewidth;
if abs(imag(r))<0.1
   y=0;
else
   y=imag(r);
end
plot(real(r), y , 'b.', 'MarkerSize', AM_data_linewidth*3)
