function singletracedisplayer(r,columnnum)

a=r(:,columnnum)-mean(r(19000:20000,columnnum));a=movingwindowsmooth(a,10);plot([.1:.1:22.1],a(20410:20630),'k','linewidth',1.5),ylim([-25 6])%ylim([-22 5])
title(num2str(columnnum))
%box off
%axis off