Last change
on this file since 18 was
17,
checked in by pinsard, 15 years ago
|
remove CR from CRLF in matlab files
|
File size:
504 bytes
|
Rev | Line | |
---|
[17] | 1 | % |
---|
| 2 | |
---|
| 3 | clear; |
---|
| 4 | close all; |
---|
| 5 | |
---|
| 6 | fid=fopen('olrf10-30.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_1030_ircaam.mat'); |
---|
| 29 | save('eof_1030_ircaam.mat','C','L','olr') |
---|
Note: See
TracBrowser
for help on using the repository browser.