|
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:
539 bytes
|
| Rev | Line | |
|---|
| [16] | 1 | %
|
|---|
| [10] | 2 |
|
|---|
| [16] | 3 | clear;
|
|---|
| 4 | close all;
|
|---|
| 5 |
|
|---|
| [10] | 6 | fid=fopen('olrf1-8_annuel.dat','r');
|
|---|
| 7 | siz=25*17*28;
|
|---|
| 8 | v=fread(fid,siz,'float');
|
|---|
| 9 | fclose(fid);
|
|---|
| [16] | 10 | olr=reshape(v,425,28);
|
|---|
| 11 | clear v;
|
|---|
| [10] | 12 |
|
|---|
| 13 | % calcul de la matrice de covariance
|
|---|
| 14 | vaudou=zeros(425,425);
|
|---|
| 15 | for a=1:425;
|
|---|
| 16 | for b=1:425;
|
|---|
| 17 | clear e d covaria;
|
|---|
| [16] | 18 | e=olr(b,:);
|
|---|
| 19 | d=olr(a,:);
|
|---|
| [10] | 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_noaa_annuel_1_8.mat');
|
|---|
| 29 | save('eof_noaa_annuel_1_8.mat','C','L','olr')
|
|---|
Note: See
TracBrowser
for help on using the repository browser.
