|
A=[1 1 1 4 1 1/2
1 1 2 4 1 1/2
1 1/2 1 5 3 1/2
1/4 1/4 1/5 1 1/3 1/3
1 1 1/3 3 1 1
2 2 2 3 1 1];
[n,n]=size(A);
x=ones(n,100);
y=ones(n,100);
m=zeros(1,100);
m(1)=max(x(:,1));
y(:,1)=x(:,1);
x(:,2)=A*y(:,1);
m(2)=max(x(:,2));
y(:,2)=x(:,2)/m(2);
p=0.0001;i=2;k=abs(m(2)-m(1));
while k>p
i=i+1;
x(:,i)=A*y(:,i-1);
m(i)=max(x(:,i));
y(:,i)=x(:,i)/m(i);
k=abs(m(i)-m(i-1));
end
a=sum(y(:,i));
w=y(:,i)/a;
t=m(i);
disp(w);
disp(t);
%以下是一致性检验
CI=(t-n)/(n-1);
RI=[0.17 0.19 0.22 0.05 0.15 0.22];
CR=CI/RI(n);
if CR<0.10
disp('此矩阵的一致性可以接受!')
disp('CI=')
disp(CI)
disp('CR=')
disp(CR)
else disp('此矩阵的一致性不可以接受!')
end
%%%%%%%%%%%%%%%%%%%
answer:
0.1584
0.1892
0.1980
0.0483
0.1502
0.2558
6.4204
此矩阵的一致性不可以接受! |
|