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

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

remove trailing blanks, split lines with multiple statements

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