Last change
on this file since 91 was
51,
checked in by pinsard, 15 years ago
|
unparametrized files in obsolete directory
|
File size:
656 bytes
|
Line | |
---|
1 | % |
---|
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 | %- |
---|
14 | |
---|
15 | clear; |
---|
16 | close all; |
---|
17 | |
---|
18 | fid=fopen('olrf10-30_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_1030_ircaam_tr.mat'); |
---|
41 | save('eof_1030_ircaam_tr.mat','C','L','olr') |
---|
Note: See
TracBrowser
for help on using the repository browser.