[Stata]改进模糊层次分析法求解指标权重的程序

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

       绩效评价指标权重确定的方法很多，

       而李永、胡向红、乔箭（2005）改进的模糊层次分析法（Improved FAHP）步骤如下：
①用三标度法 建立互补型的模糊判断矩阵，F=(fij)n×n为优先判断矩阵；
②求行和ri= ，然后用rij= +0.5将模糊判断矩阵改造成模糊一致判断矩阵R=(rij)n×n；
③采用和行归一法W(0)=（w1, w2, …, wn）T =  ，求得排序向量；
④根据转换公式eij=rij/rji将模糊一致判断矩阵R变为互反型矩阵E=(eij)n×n；
⑤以V0=（w1,w2,…,wn）T为迭代初始值，利用迭代公式Vk+1=E*Vk求特征向量Vk+1，并求Vk+1的无穷范数||Vk+1||∞；
⑥以Vk=Vk+1/||Vk+1||∞作为新初始值，进行迭代，直至||Vk+1||∞-||Vk||∞<ε，则停止迭代，将Vk+1进行归一化处理后，所得向量即为方案排序向量。

      改进的模糊层次分析法优点有：既解决了判断矩阵的一致性问题,又解决了解的收敛速度及精度问题,以此求得与实际相符的排序向量.

      结论改进传统的层次分析法较传统的层次分析法更加完善和行之有效,并符合人们的思维逻辑,形式简单,准确,且易建立.
      另外,由优先判断矩阵改造而成的模糊一致性矩阵满足一致性条件,无需再进行一致性检验,同时也可大大减少叠代次数,提高收敛速度,满足计算精度的要求,从而为多目标决策提供了较为可靠的决策方法.  
  

根据该原理利用stata中的mata编制一个小程序可以非常方便地求出各层次指标的权重。







代码

---

1. *改进的模糊层次分析法求指标权重的矩阵程序
   
2. set more off
   
3. mata
   
4. mata clear
   
5. A = (0.5,0.5,1\0.5,0.5,1\0,0,0.5)
   
6. B = rowsum(A)
   
7. R = J(rows(A),cols(A),.)
   
8. for (i=1; i<=rows(A); i++) {
   
9.     for (j=1; j<=rows(A); j++) R[i,j]=(B[i,1]-B[j,1])/(2*rows(A))+0.5
   
10.         }
    
11. R
    
12. E = J(rows(R),cols(A),.)
    
13. for (i=1; i<=rows(R);i++){
    
14.     for (j=1; j<=rows(R); j++) E[i,j]=R[i,j]/R[j,i]
    
15.         }
    
16.         E
    
17. C = J(rows(A), cols(A),.)
    
18. for (i=1; i<=rows(A); i++) {
    
19.     for (j=1; j<=rows(A); j++) C[i,j]=R[i,j]/sum(R[.,j])
    
20.         }
    
21. C
    
22. W = rowsum(C)/rows(C)
    
23. W
    
24. a = 0
    
25. do{
    
26.     V0 = W
    
27.         v1 = colmax(V0)
    
28.         v1
    
29.         U=V0:/v1
    
30.         W = E*U
    
31.         v2 = colmax(W)
    
32.         v2
    
33.         eps = v2 - v1
    
34.         eps
    
35.         a = a+1
    
36.         } while (abs(eps)>= 1e-6)
    
37.         V2=W:/colsum(W)
    
38.         a
    
39.         V2
    
40. end

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏15 回帖

关键词：Stata 层次分析法 指标权重 层次分析 tata 模糊 层次分析 指标权重 FAHP stata

太感谢了！！！！！！！！正需要！！！！！！！！！多谢楼主分享！！！！！！！！！！

欢迎楼主发表类似帖子，赞。

xddlovejiao1314 发表于 2015-4-7 17:41
欢迎楼主发表类似帖子，赞。

帮俺审核下帖子哟https://bbs.pinggu.org/thread-3666233-1-1.html

fantuanxiaot 发表于 2015-4-16 08:36
帮俺审核下帖子哟https://bbs.pinggu.org/thread-3666233-1-1.html

已审核，加精。

好帖，感谢分享

棒！！楼主大好人！

求问这个程序是迭代了多少次呢？

湿地水生态研究 发表于 2016-3-22 16:32
求问这个程序是迭代了多少次呢？

a就是迭代的次数。

彭老师您好，在学习您编写的命令中遇到一些问题，我是新手，主要希望您提供一下关于图片部分的命令解释，前面的部分每一条都已经懂了，就是步骤⑤以V0=（w1,w2,…,wn）T为迭代初始值，利用迭代公式Vk+1=E*Vk求特征向量Vk+1，并求Vk+1的无穷范数||Vk+1||∞；
⑥以Vk=Vk+1/||Vk+1||∞作为新初始值，进行迭代，直至||Vk+1||∞-||Vk||∞<ε，则停止迭代，将Vk+1进行归一化处理后，所得向量即为方案排序向量。这一部分没看懂