层次分析法MATLAB源程序.doc

《层次分析法MATLAB源程序.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、A=[12;1/21];[n,n]=size(A);%计算A矩阵的维度，行与列元素个数;B=A;%变量分配空间，加快编译速度fori=1:n;B(:,i)=A(:,i)/sum(A(:,i));%A矩阵各列元素除以各列均值,各列归一化;endC=ones(n,1);%建立n行,1列的单位矩阵;fori=1:nC(i,:)=sum(B(i,:));%B矩阵各行求和;endw=ones(n,1);%建立n行,1列的单位矩阵;w=C(:,1)/sum(C(:,1));%C矩阵各列元素除以各列均值,各列归一化;d

2、isp('权向量');disp(w);%显示权向量wD=ones(n,1);%建立n行,1列的单位矩阵;D=A*w;t=sum(D(:,1)./w(:,1))/n;disp('最大特征值');disp(t);%显示最大特征值t%一致性检验CI=(t-n)/(n-1);%t-维度n再除以维度n-1的值赋给CIRI=[000.520.891.121.261.361.411.461.491.521.541.561.581.59];%计算的标准CR=CI/RI(n);%计算一致性disp(['一致性值:CR=',

3、num2str(CR)])ifCR<0.10disp('此矩阵的一致性可以接受!');disp('CI=');disp(CI);disp('CR=');disp(CR);elsedisp('此矩阵的一致性不可以接受!');end