C=cov(T.');
[V,D]=eig(C);
eigvalues=diag(D);
Vbaz1=fliplr(V);
Vbaz=Vbaz1(:,1:10);
Koeficientai=T.'*Vbaz;