数学建模：层次分析法

 

层次分析法代码

m=input('输入判断矩阵的个数m');

n=input('输入判断矩阵的最高维数n');

disp("请输入判断矩阵(由A1-AM)");

% 首先建立一个n*m的全一矩阵,后续用来存放权重

reu=ones(n,m);

for i=1:m

   

    A=input([':请输入第' num2str(i) '个判断矩阵']);

%     进行一致性检验

    [V,D] = eig(A);

    Max_eig = max(max(D));

    CI = (Max_eig - n) / (n-1);

    RI=[0 0.0001 0.52 0.89 1.12 1.26 1.36 1.41 1.46 1.49 1.52 1.54 1.56 1.58 1.59];  %注意哦，这里的RI最多支持 n = 15

    % 这里n=2时，一定是一致矩阵，所以CI = 0，我们为了避免分母为0，将这里的第二个元素改为了很接近0的正数

    CR=CI/RI(n);

    disp('一致性指标CI=');disp(CI);

    disp('一致性比例CR=');disp(CR);

    if CR<0.10

        disp('因为CR<0.10，所以该判断矩阵A的一致性可以接受!');

    else

        disp('注意：CR >= 0.10，因此该判断矩阵A需要进行修改!');

        A=input('请输入判断矩阵');

    end

    [n,n] = size(A);

% % % % % % % % % % % % %方法1： 算术平均法求权重% % % % % % % % % % % % %

    Sum_A = sum(A);

    SUM_A = repmat(Sum_A,n,1);

    Stand_A = A ./ SUM_A;

%     

%     disp('算术平均法求权重的结果为：');

%     disp(sum(Stand_A,2)./n)

    c=sum(Stand_A,2)./n;

    len=size(c);

    if  len<n

        b=intput('请输入权重为0的元素的位置,示例([2,3,4])');

        a=ones(1,n);

        a(b)=0;

        index=find(a);

        a(index)=c'

%         将a转置,此时a变为n长的一个列向量

        a=a';

    end

%     将一开始建立的n*m的reu矩阵的第i列改成a

    reu(:,i)=a;

end