%Para hacer las figuras del poster de Brasil

clear
load y1
load y2
load dseq13
load dseq26

%eje de tiempo
fecha=datenum(1999,11,11);
fet=1:375;
fet=fet+fecha;
fety1=fet(121:end);
x=fet(1):60:fet(end);
a=datestr(x,1);

subplot(3,1,1)
plot(fety1,y1,'r')
hold on
plot(fety1,y2,'k')
set(gca,'xlim',[min(fet)-3 max(fet)+3],'xtick',x,'xticklabel',[])
title('Normalized meridional component of the south-745 m and equator-930 m data')
subplot(3,1,2)
plot(fety1,dseq13)
set(gca,'xlim',[min(fet)-3 max(fet)+3],'xtick',x,'xticklabel',[])
title('Delay for the 12-15 day period')

subplot(3,1,3)
plot(fety1,dseq26)
title('Delay for the 24-30 day period')

set(gca,'xlim',[min(fet)-3 max(fet)+3],'xtick',x,'xticklabel',a)