0001 function []=plot_fit(stat,press,newbotco,newctdco,s,h_color,fittitle,plottitle,deep_all,fig) 0002 figure(fig) 0003 if (h_color==0) 0004 subplot(2,1,1) 0005 plot(stat,newctdco-newbotco,'k+'); 0006 xlabel('Station Number'); 0007 ylabel('CTD Cond. - Bottle Cond.'); 0008 title(['fit : ' fittitle ' ' num2str(s,4) ' ' plottitle]) 0009 grid on 0010 0011 subplot(2,1,2) 0012 plot(press,newctdco-newbotco,'k+'); 0013 xlabel('Pressure [dbar]'); 0014 ylabel('CTD Cond. - Bottle Cond.'); 0015 grid on 0016 else 0017 aux1=find(press >= h_color); 0018 aux2=find(press < h_color); 0019 subplot(2,1,1) 0020 plot(stat(aux1),newctdco(aux1)-newbotco(aux1),'r+'); 0021 hold on 0022 plot(stat(aux2),newctdco(aux2)-newbotco(aux2),'bo'); 0023 xlabel('Station Number'); 0024 ylabel('CTD Cond. - Bottle Cond.'); 0025 title(['fit : ' fittitle ' ' num2str(s,4) ' ' plottitle]) 0026 grid on 0027 hold off 0028 0029 subplot(2,1,2) 0030 plot(press(aux1),newctdco(aux1)-newbotco(aux1),'r+'); 0031 hold on 0032 plot(press(aux2),newctdco(aux2)-newbotco(aux2),'bo'); 0033 xlabel('Pressure [dbar]'); 0034 ylabel('CTD Cond. - Bottle Cond.'); 0035 grid on 0036 hold off 0037 end 0038 return