資源描述：
《物元可拓源碼.docx》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。
1、物元可拓法于80年代由我國蔡文教授創(chuàng)立，目前已廣泛應(yīng)用于新產(chǎn)品構(gòu)思與設(shè)計(jì)、優(yōu)化決策、控制、識別與評價(jià)等各個(gè)領(lǐng)域，無論在理論還是在實(shí)踐上都發(fā)揮了越來越重要的作用。物元是描述事物的名稱、特征及量值3個(gè)基本元素的簡稱，在形式上可記為M=(N，c，v)=(N，c，c(N))。其中M、N、c、v分別是Matter、Name，?Character，?Value的縮寫?？赏丶鲜怯藐P(guān)聯(lián)度將模糊集合的[0，1]閉合區(qū)間連續(xù)取值拓廣到(-∞，+∞)實(shí)數(shù)軸，以表達(dá)物元的量值為實(shí)軸上的一點(diǎn)時(shí)符合要求的程度。物元分析是研究物元及其變化并用以解決矛盾問
2、題的規(guī)律和方法，可拓學(xué)是用形式化的工具，從定性和定量兩個(gè)角度去研究解決矛盾問題的規(guī)律和方法。物元可拓法結(jié)合二者，是將辨證邏輯和形式邏輯相結(jié)合的可拓邏輯，豐富了事物的內(nèi)涵，客觀地反映了物質(zhì)世界的真實(shí)狀態(tài)。本次選用評價(jià)因子污染貢獻(xiàn)率方法來確定權(quán)系數(shù)。主要計(jì)算程序：Dim?sRow?As?Integer,?sCol?As?Integer????'起始的行與列Dim?i?As?Integer,?j?As?Integer??????????'循環(huán)變量Dim?Xj?As?Double????????????????????????'定義實(shí)
3、測值Dim?Aij?As?Double,?Bij?As?Double????????'定義標(biāo)準(zhǔn)域區(qū)間Dim?Apj?As?Double,?Bpj?As?Double????????'定義節(jié)域變量Dim?YZS?As?Integer??????????????????????'定義評價(jià)因子個(gè)數(shù)Dim?DJS?As?Integer??????????????????????'定義評價(jià)等級數(shù)'得到起始行列值sRow?=?InputBox("請輸入監(jiān)測數(shù)據(jù)第一個(gè)數(shù)的行號！",?"輸入行號",?0)sCol?=?InputBox("請輸
4、入監(jiān)測數(shù)據(jù)第一個(gè)數(shù)的列號！",?"輸入列號",?0)YZS?=?InputBox("請輸入評價(jià)因子個(gè)數(shù)!",?"輸入因子個(gè)數(shù)",?0)DJS?=?InputBox("請輸入評價(jià)等級個(gè)數(shù)!",?"輸入評價(jià)等級數(shù)",?0)'插入標(biāo)記列文字With?Sheets("sheet1")??For?i?=?1?To?DJS??????Cells(sRow?+?DJS?+?2?+?i,?sCol?-?1).Value?=?"關(guān)聯(lián)函數(shù)k_等級"?&?i??Next?i??Cells(sRow?+?2?*?DJS?+?3,?sCol?-?1).
5、Value?=?"X/S"??Cells(sRow?+?2?*?DJS?+?4,?sCol?-?1).Value?=?"歸一化權(quán)重"??For?i?=?1?To?DJS??????Cells(sRow?+?2?*?DJS?+?4?+?i,?sCol?-?1).Value?=?"關(guān)聯(lián)度K_等級"?&?i??Next?i??Cells(sRow?+?3?*?DJS?+?5,?sCol?-?1).Value?=?"可拓指數(shù)"????'按列循環(huán)計(jì)算??For?j?=?sCol?To?sCol?+?YZS?-?1????'賦初值????
6、Xj?=?Cells(sRow,?j).Value????????????'實(shí)測值????Apj?=?Cells(sRow?+?1,?j).Value???????'可拓域最小值????Bpj?=?Cells(sRow?+?DJS?+?2,?j).Value?'可拓域最大值????????For?i?=?1?To?DJS??????'對aij,bij賦值??????Aij?=?Cells(sRow?+?i,?j).Value??????Bij?=?Cells(sRow?+?i?+?1,?j).Value????????????
7、'按條件選擇公式計(jì)算關(guān)聯(lián)度??????If?Xj?>?Aij?And?Xj?
8、)????????End?If??????????????Else??????????'xj<>Xij?點(diǎn)x位于本標(biāo)準(zhǔn)之外??????????????If?Xj?
