目标层 | 买钢笔 | ||||
准则层 | 质量 | 颜色 | 价格 | 外形 | 实用 |
方案层 | 可供选择的3只钢笔 |
重要性相同 稍微重要 重要 很重要 绝对重要 1 3 5 7 9
1 2 3 4 5 6 7 8 9 0 0 0.58 0.90 1.12 1.24 1.32 1.41 1.45
%层次分析法AHP clear all clc %构建方案层的比较矩阵 B1 = [1 2 3; 1/2 1 2; 1/5 1/2 1]; B2 = [1 1/3 1/8; 3 1 1/3; 8 3 1]; B3 = [1 1 3; 1 1 3; 1/3 1/3 1]; B4 = [1 3 4; 1/3 1 1; 1/4 1 1]; B5 = [1 1 1/4; 1 1 1/4; 4 4 1]; B = [B1 B2 B3 B4 B5]; %构建准则层的比较矩阵 A = [1 1/2 4 3 3; 2 1 7 5 5; 1/4 1/7 1 1/2 1/3; 1/3 1/5 2 1 1; 1/3 1/5 3 1 1]; %方案层一致性判断 W1 = [];%方案层汇总的权值 RI = [0 0 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 1.60 1.61 1.615 1.62 1.63]; for i = 1:5 [m,n] = size(B(1:3,3*(i-1)+1:3*i)); [V,D] = eig(B(1:3,3*(i-1)+1:3*i));%求得特征向量和特征根 %求出最大特征值和它所对应的特征向量 Max = D(1,1); pos = 1; for j = 1:n if D(j,j) > Max Max = D(j,j); pos = j;%记录最大特征值的位置 end end w = abs(V(:,pos));%找出每个因素的权值 w = w / sum(w);%归一化 CI = (Max - n) / (n - 1); CR = CI / RI(n); if CR < 0.10 X = ['方案层第',num2str(i),'个矩阵一致性可以接受!',' ','CR:',num2str(CR)]; disp(X) else X = ['方案层第',num2str(i),'个矩阵一致性验证失败,请重新进行评分!']; disp(X) end W1 = [W1 w]; end %准则层一致性判断 [m,n] = size(A); [V,D] = eig(A); Max = D(1,1); pos = 1; for j = 1:n if D(j,j) > Max Max = D(j,j); pos = j; end end w = abs(V(:,pos)); w = w / sum(w); W2 = w; CI = (Max - n) / (n - 1); CR = CI / RI(n); if CR < 0.10 X = ['准则层矩阵一致性可以接受!',' ','CR:',num2str(CR)]; disp(X) else X = ['准则层矩阵一致性验证失败,请重新进行评分!']; disp(X) end %计算每个方案对最终目标的权值 disp('每个方案对最终目标的权值:') answer = W1*W2 %最后计算结果为: 方案层第1个矩阵一致性可以接受! CR:-0.14068 方案层第2个矩阵一致性可以接受! CR:0.0014823 方案层第3个矩阵一致性可以接受! CR:-2.135e-15 方案层第4个矩阵一致性可以接受! CR:0.0088488 方案层第5个矩阵一致性可以接受! CR:-8.5402e-16 准则层矩阵一致性可以接受! CR:0.01609 每个方案对最终目标的权值: answer = 0.2888 0.2522 0.4590
© 2024 All rights reserved. 北京转创国际管理咨询有限公司 备案号: 京ICP备19055770号-4
Transverture International Group Co Ltd, Guangdong Branch
地址:广州市天河区天河北路179号尚层国际1601
深圳市福田区深南中路2066号华能大厦
佛山顺德区北滘工业大道云创空间
东莞市大朗镇富丽东路226号松湖世家
梅州市丰顺县留隍镇新兴路881号
长沙市芙蓉区韶山北路139号文化大厦
欢迎来到本网站,请问有什么可以帮您?
稍后再说 现在咨询