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)