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:
545 bytes
|
Line | |
---|
1 | %
|
---|
2 |
|
---|
3 | clear;
|
---|
4 | close all;
|
---|
5 |
|
---|
6 | fid=fopen('olrf30-100_tr.80.dat','r');
|
---|
7 | siz=24*15*3538;
|
---|
8 | v=fread(fid,siz,'float');
|
---|
9 | fclose(fid);
|
---|
10 | olr=reshape(v,360,3538);
|
---|
11 | clear v;
|
---|
12 |
|
---|
13 | % calcul de la matrice de covariance
|
---|
14 | vaudou=zeros(360,360);
|
---|
15 | for a=1:360;
|
---|
16 | for b=1:360;
|
---|
17 | clear e d covaria;
|
---|
18 | e=olr(b,:);
|
---|
19 | d=olr(a,:);
|
---|
20 | covaria=cov(e,d);
|
---|
21 | vaudou(a,b)=covaria(2,1);
|
---|
22 | end;
|
---|
23 | end;
|
---|
24 |
|
---|
25 | % on diagonalise la matrice de covariance
|
---|
26 | [C,L]=eig(vaudou);
|
---|
27 |
|
---|
28 | delete('eof_30100_ircaam_tr.mat');
|
---|
29 | save('eof_30100_ircaam_tr.mat','C','L','olr')
|
---|
Note: See
TracBrowser
for help on using the repository browser.