程序一:
%对A矩阵一致性检验
A=[1 3 5 7; 1/3 1 3 5; 1/5 1/3 1 2;1/7 1/5 1/2 1 ]
[X,Y]=eig(A)
eigenvalue=diag(Y)%特征值
lamda=max(eigenvalue)%矩阵最大特征值
Y_lamda=Y(:, 1)%最大特征值对应的特征向量
W=X(:,1)/sum(X(:,1))%归一化特征向量
CI=(lamda-4)/(4-1)
CR=CI/0.90
DAXIAO=CR-0.1
程序二:
%对方案层B1矩阵求归一化特征向量
H=(VarName6);%职称
A=3*H
for i=1:1:50
for j = 1:1:50
B1(i,j) = A(i)/A(j);