% createtr_0602.m
% permet de trouver les changements de direction
% pour savoir ou sont les transects
% a partir des fichiers tet0602aXX.txt 
% pour les campagnes Golts de Juin02
% from createtr.m AP le 10/09/02

for xx=1:3

cd e:\Gatti2\golts\Survey\Survey110602\ADCPTethys\tronca
eval(['load tet0602a',int2str(xx),'t.txt'])
eval(['xyt=tet0602a',int2str(xx),'t;'])

[m,n]=size(xyt);
change=zeros(n,1);

for i=1:n-3
   if ((xyt(1,i+3)-xyt(1,i+2))*(xyt(1,i+1)-xyt(1,i) <0))
      if ((xyt(2,i+3)-xyt(2,i+2))*(xyt(2,i+1)-xyt(2,i) <0))
         change(i,1)=1;
      end
   end
end
   
ind=find(change);

    eval(['save tet0602trlignes',int2str(xx),'.txt ind -ascii'])
clear
end