iris4;
format compact;

X3=iris(101:150,:);

[A1,lan1]=eig(cov(X3))
% A1 =
%    -0.3714    0.5345   -0.1653    0.7410
%     0.5407    0.3254    0.7486    0.2033
%     0.3906   -0.6515   -0.1694    0.6279
%    -0.6459   -0.4290    0.6193    0.1238
% lan1 =
%     0.0343         0         0         0
%          0    0.0523         0         0
%          0         0    0.1066         0
%          0         0         0    0.6953

lan_a=diag(lan1), slan1=sum(lan_a) %0.8884

frakcja_a1=lan1(end,end) / slan1 %0.7826
frakcja_a2=lan1(3,3) / slan1 %0.1199




[A2,lan2]=eig(corrcoef(X3));
lan_b=diag(lan2);
slan2=sum(lan_b);

frakcja_b1=lan1(1,1) / slan1;
frakcja_b2=lan1(end,end) / slan1;

frakcja2=lan2()