| 5 | 1/1 | 返回列表 |
| 查看: 2542 | 回復: 23 | ||
| 【獎勵】 本帖被評價22次,作者pgx457600增加金幣 16.8 個 | ||
| 當前只顯示滿足指定條件的回帖,點擊這里查看本話題的所有回帖 | ||
[資源]
模糊層次分析法FAHP中的模糊判斷矩陣的求解IDL程序
|
||
|
本人在利用模糊層次分析法FAHP進行多元信息成礦預測時候,需要對模糊互補判斷矩進行求解,在網上沒有搜到合適的程序,于是自己根據文獻資料(附件里面有幾篇經典文獻)用IDL寫了個程序,在此共享出來,供大家參考使用。 ;參考文獻 ;徐澤水. 模糊互補判斷矩陣排序的一種算法[J].系統(tǒng)工程學報,2001, 16(4): 311 314. ;陳華友, 趙佳寶. 模糊判斷矩陣的相容性研究[J].運籌與管理,2004, 13(1): 44 47. ;姬東朝,宋筆鋒,喻天翔.模糊層次分析法及其在設計方案選優(yōu)中的應用[J].系統(tǒng)工程與電子技術.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 ] |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 求調劑 +9 | akdhjs 2026-03-31 | 10/500 |
|
|---|---|---|---|---|
|
[考研] 材料與化工(0856)304求B區(qū)調劑 +6 | 邱gl 2026-03-30 | 11/550 |
|
|
[考研] 化學0703 調劑 306分 一志愿211 +10 | 26要上岸 2026-03-28 | 10/500 |
|
|
[考研] 272求調劑,接受跨專業(yè)調劑! +3 | 閑魚盧 2026-03-31 | 3/150 |
|
|
[考研] 土木304求調劑 +4 | 兔突突突, 2026-03-31 | 5/250 |
|
|
[考研] 287求調劑 +17 | land xuxu 2026-03-26 | 17/850 |
|
|
[論文投稿]
chinese chemical letters英文版投稿求助
130+3
|
Yishengeryi 2026-03-30 | 3/150 |
|
|
[考研] 抱歉 +4 | 田洪有 2026-03-30 | 4/200 |
|
|
[考研] 調劑 +4 | GK72 2026-03-30 | 4/200 |
|
|
[考研] 322求調劑 +10 | 宋明欣 2026-03-27 | 10/500 |
|
|
[考研] 324求調劑 +9 | hanamiko 2026-03-26 | 11/550 |
|
|
[考研] 284求調劑 +14 | junqihahaha 2026-03-26 | 15/750 |
|
|
[考研] 348求調劑 +6 | 小懶蟲不懶了 2026-03-28 | 6/300 |
|
|
[考研] 311求調劑 +10 | lin0039 2026-03-26 | 10/500 |
|
|
[考研] 332求92調劑 +8 | 蕉蕉123 2026-03-28 | 8/400 |
|
|
[考研] 數一英一271專碩(085401)求調劑,可跨 +7 | 前行必有光 2026-03-28 | 8/400 |
|
|
[考研] 304求調劑 +6 | 曼殊2266 2026-03-27 | 6/300 |
|
|
[考研] 324求調劑 +5 | hanamiko 2026-03-26 | 5/250 |
|
|
[碩博家園] 北京林業(yè)大學碩導招生廣告 +6 | kongweilin 2026-03-26 | 8/400 |
|
|
[考研] 081200-11408-276學碩求調劑 +3 | 崔wj 2026-03-26 | 3/150 |
|