clear all;
close all;
clc;
n=input('输入n'); % 指标个数
RI=input('输入RI'); % 判断一致性的
for i=1:n
A{i}=input('输入矩阵');
end
U=[];
for i=1:n
U=[U;A{i}(:,3)];
end
U=reshape(U,n,n);
M=[];
for i=1:n
M=[M;A{i}(:,2)];
end
M=reshape(M,n,n);
disp('中值矩阵M');disp('');
M
L=[];
for i=1:n
L=[L;A{i}(:,1)];
end
L=reshape(L,n,n);
E=[];
E=1-(U-L)./(2*M);
disp('模糊判断因子矩阵');disp('');
E
Q=M*E;
disp('调整判断矩阵Q');disp('');
Q
for i=1:n
W(:,i)=Q(:,i)./Q(i,i);
end
disp('将矩阵Q对角线归一化后得到W');disp('');
W
S=prod(W,2);
%方根法求权重
for i=1:n
S(i)=S(i)^(1/n);
end
disp('每行所有元素的n次方根S');disp('');
S
for i=1:n
T(i)=S(i)/sum(S);
end
disp('将矩阵S归一化后得到T');disp(''); %权重向量
T
y=eig(M);
z=max(y);
z
CI=(z-n)/(n-1);
CR=CI/RI;
disp('CI,CR');disp('');
CI
CR
if CR<0.1
disp('一致性校验通过');disp('');
else
disp('一致性校验不通过');disp('');
end
- 1
- 2
- 3
- 4
- 5
- 6
前往页