function plot_scans(v,t,Scans);
% PLOT_SCANS: a function to plot velocity scans
% prepared for geoph326, M.D.Sacchi

 [n1,n2] = size(Scans);

 nv = length(v);
 nstep = n2/nv;

 x= 1:1:n2;

 imagesc(x,t,Scans);

 dt = t(2)-t(1);
 for k=1:nv;
  text((k-1)*nstep+1,0.4 + 0.1*(-1)^k, strcat(num2str(round(v(k)/10)/100),' k/s'));
 end;

 return
