% TRACET DU TRAIT DE COTE
cd e:\Gatti2\Maryse;
asp=[1 cos(42*pi/180) 1];
axis([3 6 42 43.6])
set(gca,'DataAspectRatioMode','manual','DataAspectRatio',asp);
continenta
hold on

% AJOUT DE LA BATHYMETRIE
%isobathes à partir de la bathymétrie réaliste
plotclaude

%TRACET DE LA CAMPAGNE GOLTS
golts=[5.13	43.07 0.];

%  Triangle externe
rr=[5.13	43.25,
   5.13	43.07,
   5.13	42.5,
   5.813   43.04,
%    5.13	43.25];
];
%  Stations sur la route externe
stat=[
	5.13	43.25
   5.13	43.07
   5.13	42.9275
   5.13	42.785
   5.13	42.6425
   5.13	42.5
5.813	43.04
5.6764	43.082
5.5398	43.124
5.4032	43.166
5.2666	43.208
5.13	43.25
];

%plot(golts(:,1),golts(:,2),'gx')
plot(rr(:,1),rr(:,2),'--k')
%plot(stat(:,1),stat(:,2),'xk',stat(:,1),stat(:,2),'ok')
%plot(stat(:,1),stat(:,2),'xk')
plot([stat(2,1),stat(11,1)],[stat(2,2),stat(11,2)],'--k')
plot([stat(3,1),stat(10,1)],[stat(3,2),stat(10,2)],'--k')
plot([stat(4,1),stat(9,1)],[stat(4,2),stat(9,2)],'--k')
plot([stat(5,1),stat(8,1)],[stat(5,2),stat(8,2)],'--k')