XX=load('dan_vuz.txt')
size(XX)
X=XX(:,3:13)
R=corr(X)
[vect,lambda]=eig(X'*X)
Sobst=diag(lambda);
fprintf('Eigenvalues:\n %f \n',Sobst)
fprintf('\n')
SobMax=Sobst(end)
GlComp=vect(:,end)
Delt=100*SobMax/sum(Sobst)
fprintf('Delta= %d \n ',round(Delt))
Res=X*GlComp
fprintf(' Results \n ')
fprintf('%d  %f \n ',[XX(:,1),Res] ')
save res.mat Res -mat
hist(Res,20)
xlabel('Results ')
ylabel('Number of Unis ')
saveas(gcf, 'Hist.jpg ', 'jpg ')
CorFin=corr(Res,XX(:,2))
fprintf('Correlation of Results and Money = %f \n',CorFin)