Last change
on this file since 51 was
51,
checked in by pinsard, 15 years ago
|
unparametrized files in obsolete directory
|
File size:
659 bytes
|
Rev | Line | |
---|
[17] | 1 | % |
---|
[50] | 2 | %+ |
---|
| 3 | % |
---|
| 4 | % EVOLUTIONS |
---|
| 5 | % =========== |
---|
| 6 | % |
---|
| 7 | % $Id$ |
---|
| 8 | % |
---|
| 9 | % - fplod 2009-02-02T14:11:28Z aedon.locean-ipsl.upmc.fr (Darwin) |
---|
| 10 | % |
---|
| 11 | % * replaced by eof_df.m |
---|
| 12 | % |
---|
| 13 | %- |
---|
[17] | 14 | |
---|
| 15 | clear; |
---|
| 16 | close all; |
---|
| 17 | |
---|
| 18 | fid=fopen('olrf30-100_tr.80.dat','r'); |
---|
| 19 | siz=24*15*3538; |
---|
| 20 | v=fread(fid,siz,'float'); |
---|
| 21 | fclose(fid); |
---|
| 22 | olr=reshape(v,360,3538); |
---|
| 23 | clear v; |
---|
| 24 | |
---|
| 25 | % calcul de la matrice de covariance |
---|
| 26 | vaudou=zeros(360,360); |
---|
| 27 | for a=1:360; |
---|
| 28 | for b=1:360; |
---|
| 29 | clear e d covaria; |
---|
| 30 | e=olr(b,:); |
---|
| 31 | d=olr(a,:); |
---|
| 32 | covaria=cov(e,d); |
---|
| 33 | vaudou(a,b)=covaria(2,1); |
---|
| 34 | end; |
---|
| 35 | end; |
---|
| 36 | |
---|
| 37 | % on diagonalise la matrice de covariance |
---|
| 38 | [C,L]=eig(vaudou); |
---|
| 39 | |
---|
| 40 | delete('eof_30100_ircaam_tr.mat'); |
---|
| 41 | save('eof_30100_ircaam_tr.mat','C','L','olr') |
---|
Note: See
TracBrowser
for help on using the repository browser.