figure;
plot(PortConcTS,'rx');hold on;plot(StbdConcTS,'gx');
legend('Port','Stbd');
xlabel('Time');ylabel('O2 Conc (uM)');
set(gca,'XTick',[0 0.5 1.0]);
set(gca,'XTickLabel',[Stbddatetime(1);Stbddatetime(floor(size(Stbddatetime,1)/2));Stbddatetime(end)]);

pwd

s=input('enter the experiment date:','s');
filename=strcat(s,'.mat');
save(filename,'PortTS','StbdTS','PortConcTS','StbdConcTS');
dataname=strcat('Optode Results','_',s);
title(dataname);
saveas(gcf,strcat(dataname,'Conc.fig'),'fig');
saveas(gcf,strcat(dataname,'Conc.tiff'));

figure; hold on; plot(StbdTemp,'g');plot(PortTemp,'r');
legend('Stbd Temp','Port Temp');

