getf("covariance.sci");
M=[0;0;0];                    // vecteur moyenne
S=[1,0.5,0.9 ;..              // matrice de covariance
       0.5,1,0.3 ; 0.9,0.3,1];
v=grand(10000,"mn",M,S);      // echantillon
cov_estimee = covariance(v')  // matrice de covariance empirique
cov_estimee-S
cor_estimee = correlation(v') // matrice de correlation empirique
cor_estimee-S

