%bottom_track.m
ici=pwd;

figure

xx=7;
yy=6;
zz='b';

ici=pwd;
% cd e:\Gatti2\golts\Survey\Survey070604\ADCPTethys\tronca
% eval(['load g0604tr',int2str(xx),'t',int2str(yy),zz,'t.mat;'])
% cd e:\Gatti2\Maryse
% [ampl,angle]=umod(uv(1:2:end-1,:),uv(2:2:end,:));
% plot(ampl(24,:),'g')
% hold on
% plot(ampl(12,:),'b')

cd e:\Gatti2\golts\Survey\golts_0604
load TGS0406skaphi.mat
ind=find(isnan(bottom)==0);
bottom(ind)=1;
plot(bottom,'r')
hold on
plot(speedCurrentComponent(:,1)/100,'b')
plot(speedCurrentComponent(:,2)/100,'g')
plot(speedCurrentComponent(:,12)/100,'m')
plot(speedCurrentComponent(:,24)/100,'k')

% axis([1 446 0 1.5]);
legend('bottom track','ampl-8m','ampl-12m','ampl-52m','ampl-100m',1)
title('TGS0406skaphi')
cd (ici)
