MATLAB---成对判断矩阵检验一致性和求权重

MATLAB成对判断矩阵检验一致性和求权重clearall;clca=load('txt1.txt');%读入判断矩阵C[x,y]=eig(a);%求出特征值和特征向量Jmax=max(max(y))%求出最大特征值[N,M]=size(a);%看这个矩阵的长宽RI=[000.580.901.121.241.321.411.451.491.51];%随机一致性指标RICI=(Jmax-N)/(N-1)%求出一致性指标CR=CI/RI(1,N)%检验一致性ifCR0.1disp('通过一致性检验')%若通过一致性检验，则求出权重B=zeros(N,M);%设置一个同样长宽的零矩阵fori=1:M%循环，每一列都相同操作b(:,i)=a(:,i)/sum(a(:,i));%每列都除以这列每项的和，并赋值给b相对应列end%循环结束b;%输出bfori=1:NW(1,i)=sum(b(i,:));%把列归一化的矩阵再按行求和endW;s=sum(W);%将W归一化c=W./s%c即为所求特征向量即权重elsedisp('未通过一致性检验')%未通过则结束操作end