load data_stations.
m ; data = data_stations' ; [M,N] = size(data); % calcul de la moyenne mn = mean(data,2); data = data - repmat(mn,1,N); % calucl de la matrice de covariance covariance = 1 / (N-1) * data * data'; % calcul des valeurs des vecteurs propres [PC, V] = eig(covariance); V = diag(V) ; % reordnner les variance [junk, rindices] = sort(-1*V); V = V(rindices); PC = PC(:,rindices); % projection des donnees signals = PC' * data; plot(signals(1,:),signals(2,:),'rx') xlabel('axe1'),ylabel('axe 2') title('Analyse en composante principale des variables dix stations' ) signals(1,:) PC ; signals ; covariance