| 查看: 2780 | 回复: 23 | |||
| 【奖励】 本帖被评价22次，作者pgx457600增加金币 16.8 个 | |||
[资源]
模糊层次分析法FAHP中的模糊判断矩阵的求解IDL程序
|
|||
|
本人在利用模糊层次分析法FAHP进行多元信息成矿预测时候，需要对模糊互补判断矩进行求解，在网上没有搜到合适的程序，于是自己根据文献资料（附件里面有几篇经典文献）用IDL写了个程序，在此共享出来，供大家参考使用。 ;参考文献 ;徐泽水. 模糊互补判断矩阵排序的一种算法[J].系统工程学报,2001, 16(4): 311 314. ;陈华友, 赵佳宝. 模糊判断矩阵的相容性研究[J].运筹与管理,2004, 13(1): 44 47. ;姬东朝,宋笔锋,喻天翔.模糊层次分析法及其在设计方案选优中的应用[J].系统工程与电子技术.2006,28（11）：1692-1696. PRO FAHPMATRIX,event ;输入矩阵A的阶数 N=3 ;定义输入矩阵A A=fltARR(n,n) ;定义权重向量矩阵W W=fltARR(n) ;定义判断矩阵A 的特征矩阵Wij Wij=fltARR(n,n) ;输入矩阵A ;A=[[0.5,0.3,0.6,0.7],[0.7,0.5,0.7,0.5],[0.4,0.3,0.5,0.4],[0.3,0.5,0.6,0.5]];4阶矩阵 ;A=[[0.5,0.6,0.7],[0.4,0.5,0.6],[0.3,0.4,0.5]];3阶矩阵 A=[[0.5,0.7,0.8],[0.3,0.5,0.7],[0.2,0.3,0.5]];3阶矩阵 print,'A=',A start_time = systime(1) ;1.求权重向量W的值 for j=0,N-1 DO BEGIN SUMAj=TOTAL(A[0:N-1,j:j]) ;print, 'SUMAj=', SUMAj Wj=(SUMAj+0.5*n-1)/(n*(n-1)) W[j]= Wj;权重向量 ; print,'j=',j+1,' ;Wj=',Wj ; print,A[0:N-1,j:j] endfor print,'权重W=',W ;2.求判断矩阵A 的特征矩阵Wij的值 for i=0,N-1 DO BEGIN Wi=W ;print,'i=',i+1,wi for j=0,N-1 DO BEGIN Wj=W[j] ;print,'j=',j+1,wj Wij[i,j]=Wi/(Wi+Wj) endfor endfor ;矩阵转置 Wij=TRANSPOSE(Wij) print,'特征矩阵Wij=' print,Wij ;3.求判断矩阵A 与的特征矩阵Wij的相容性指标 ;矩阵转置 TWij=TRANSPOSE(Wij) ;定义累积指数相容度FC FC=0.0 for i=0,N-1 DO BEGIN for J=0,N-1 DO BEGIN FC=FC+ abs(A[i,j]+Wij[J,I]-1) endfor endfor print,'FC=',FC ;相容性指数IAB IAB=1.0*FC/(N*N) print,'相容性指数IAB=',IAB IF IAB LT 0.10 THEN BEGIN PRINT, '通过模糊互补判断矩阵的一致性检验 ' ENDIF ELSE BEGIN PRINT, '不能通过模糊互补判断矩阵的一致性检验 ' ENDELSE print,'Process Time :', systime(1) - start_time END 程序运行结果： A= 0.500000 0.700000 0.800000 0.300000 0.500000 0.700000 0.200000 0.300000 0.500000 权重W= 0.416667 0.333333 0.250000 特征矩阵Wij= 0.500000 0.555556 0.625000 0.444444 0.500000 0.571429 0.375000 0.428571 0.500000 FC= 0.896032 相容性指数IAB= 0.0995591 通过模糊互补判断矩阵的一致性检验 ************ 根据陈华友（2004）的数据计算结果如下： ;陈华友, 赵佳宝. 模糊判断矩阵的相容性研究[J].运筹与管理,2004, 13(1): 44 47. A= 0.500000 0.700000 0.800000 0.300000 0.500000 0.700000 0.200000 0.300000 0.500000 权重W= 0.416667 0.333333 0.250000 特征矩阵Wij= 0.500000 0.555556 0.625000 0.444444 0.500000 0.571429 0.375000 0.428571 0.500000 FC= 0.896032 相容性指数IAB= 0.0995591 通过模糊互补判断矩阵的一致性检验 文献中的另外一个计算案例如下： A= 0.500000 0.600000 0.700000 0.400000 0.500000 0.600000 0.300000 0.400000 0.500000 权重W= 0.383333 0.333333 0.283333 特征矩阵Wij= 0.500000 0.534884 0.575000 0.465116 0.500000 0.540541 0.425000 0.459459 0.500000 FC= 0.499151 相容性指数IAB= 0.0554613 通过模糊互补判断矩阵的一致性检验[ Last edited by pgx457600 on 2013-5-12 at 08:46 ] |
回复此楼» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : 模糊互补判断矩阵FAHP求解IDL源代码0416.rar
2013-05-11 16:37:51, 444.42 K
» 猜你喜欢
282求调剂
已经有0人回复
-
地球化学论文润色/翻译怎么收费?
已经有93人回复
4楼2013-05-18 20:04:38
6楼2013-10-02 15:26:48
7楼2013-10-07 11:14:27
11楼2014-04-16 18:36:04
19楼2015-08-15 20:36:54
简单回复
2013-05-12 05:41
回复
五星好评 顶一下，感谢分享！
cnuhzy3楼
2013-05-13 13:13
回复
五星好评 顶一下，感谢分享！
noaags5楼
2013-07-15 08:45
回复
五星好评 顶一下，感谢分享！
秋之飘枫8楼
2013-12-05 15:52
回复
五星好评 顶一下，感谢分享！
型格9楼
2014-01-09 14:23
回复
五星好评 顶一下，感谢分享！
richdog10楼
2014-04-16 18:35
回复
五星好评 顶一下，感谢分享！
chenxin81212楼
2014-04-17 19:55
回复
五星好评 顶一下，感谢分享！
liudi2325313楼
2014-06-12 09:55
回复
五星好评 顶一下，感谢分享！
chenlj051314楼
2014-06-13 15:24
回复
五星好评 顶一下，感谢分享！
hbj30615楼
2014-06-14 00:25
回复
五星好评 顶一下，感谢分享！
mathfeng16楼
2014-07-19 10:54
回复
五星好评 顶一下，感谢分享！
270808010717楼
2015-06-30 12:26
回复
五星好评 顶一下，感谢分享！
liaotao2518楼
2015-07-17 15:59
回复
五星好评 顶一下，感谢分享！
wangkexiao20楼
2015-10-05 11:05
回复
五星好评 顶一下，感谢分享！
anseuji21楼
2016-03-31 11:43
回复
三星好评 顶一下，感谢分享！
baixue718922楼
2016-04-26 22:36
回复
五星好评 顶一下，感谢分享！
vinceliu23楼
2016-06-20 14:49
回复
一般 顶一下，感谢分享！
托帕石24楼
2017-01-04 12:15
回复
五星好评 顶一下，感谢分享！
