% This script plots the average ADCP velocity over the channel versus
   clf
   plot(run.vavfull,run.vavuvm,'-o');
   axislim=max([max([run.vavfull,run.vavuvm]), ...
      -min([run.vavfull,run.vavuvm])]);
   axis([-axislim,axislim,-axislim,axislim]);
   hold on;
   plot([0,0],[-axislim,axislim],'black-.');
   plot([-axislim,axislim],[0,0],'black-.');
   title('Predicted rating curve from TMS3 Calibration (June 2 1998)', ...
      'fontsize',18);
   xlabel('average velocity for transect, with top, bottom, and edge corr.',...
      'fontsize',14);
   ylabel('average velocity over UVM path (m/s)','fontsize',14);
   hold off;
   print -djpeg -r40 ...
   /Users/faculty/bland/public_html/research/discharg/rating/p80708b.jpg