source: trunk/src/SIMULS_IRCAAM/time_serie_afr_1030.m @ 15

Last change on this file since 15 was 15, checked in by pinsard, 16 years ago

modification according to mlint diagnostic

File size: 1.5 KB
RevLine 
[10]1clear;
2close all;
3
4load eof_1030_ircaam.mat
5olr=olr';
6PC1=olr*C;
7
8
9%%%%%%% cronique de la VP1
10time_serie_olr1=PC1(:,360);
11time_serie_olr2=PC1(:,359);
12
13dt_olr1=std(time_serie_olr1);
14dt_olr2=std(time_serie_olr2);
15
16
17for a=1:3538;
18   time_serie_olr1(a)=time_serie_olr1(a)/dt_olr1;
19   time_serie_olr2(a)=time_serie_olr2(a)/dt_olr2;
20end
21
22save eof1_AFR_1030.txt time_serie_olr1 -ascii;
23save eof2_AFR_1030.txt time_serie_olr2 -ascii;
24
25x=[1:3538]';
26for a=1:29;
27   if a<12;
28      figure(1); subplot(4,3,a);
29   elseif a<23;
30      figure(2); subplot(4,3,a-11);
31   else
32      figure(3); subplot(4,3,a-22);
33   end
34   clear koro1
35   debut=(a-1)*122+1;
36   fin=a*122;
37   koro1=time_serie_olr1(debut:fin);
38   koro2=time_serie_olr2(debut:fin);
39   clear x; x=[1:122]';
40   plot(x,koro1,'r');
41   hold on
42   plot(x,koro2,'k');
43   y=zeros(122,1);
44   plot(x,y,'k:');
45   title(a+1970,'FontSize',8);
46   if a==2;
47       text(0,5.5,'serie temporelle eof AFR 1030');
48    elseif a==13;
49       text(0,5.5,'serie temporelle eof AFR 1030');
50   elseif a==24;
51       text(0,5.5,'serie temporelle eof AFR 1030');
52   end;
[15]53   set (gca,'tickDir','out');
[10]54   axis([1 122 -3 3]);
55   
56
57   set (gca,'YTick',[-3:1:3],'YTickLabel',[-3:1:3],'fontname','Arial','fontsize',6);
58set (gca,'XTick',[0:20:120],'XTickLabel',[0:20:120],'fontname','Arial','fontsize',6);
59end;
60
61figure(1); print -depsc2 time_serie_eof_afr_1030a.eps;
62figure(2); print -depsc2 time_serie_eof_afr_1030b.eps;
63figure(3); print -depsc2 time_serie_eof_afr_1030c.eps;
64
Note: See TracBrowser for help on using the repository browser.