otchet

ТЕМА2/Prog2.m

@@ -0,0 +1,25 @@
+warning('off', 'all');
+fp=fopen('prtcl.txt ','w')
+XX=load('dan_vuz.txt');
+size(XX);
+X=XX(:,3:13);
+R=corr(X);
+[vect,lambda]=eig(X'*X);
+Sobst=diag(lambda);
+fprintf(fp, 'Eigenvalues:\n %f \n',Sobst);
+fprintf(fp, '\n');
+SobMax=Sobst(end);
+GlComp=vect(:,end);
+Delt=100*SobMax/sum(Sobst);
+fprintf('Delta= %d \n ',round(Delt));
+Res=X*GlComp;
+fprintf(fp, ' Results \n ');
+fprintf(fp, '%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(fp,'Correlation of Results and Money = %f \n',CorFin);
+fclose(fp);