物元可拓源码
可拓性模型
等级分类标准，各指标取值均以秦岭淮河以
南人口100万以上的全部城市为准。
物 元 可 拓 模 型 应 用
物 元 可 拓 模 型 应 用
物 确定各评判指标的权重系数 根据上述
元 评判指标及评判物元模型，以AHP法来
可 确定各评判指标的权重，权重值如表2
拓 模
所示。
型
应
用
物 元 可 拓 模 型 应 用
)
Vi Vij
8.17 0.3828 13.17 8.17
物 元 可 拓 模 型 应 用
课堂教学质量评价指标体系
物 元 可 拓 模 型 应 用
物元矩阵和指标权重
物 元 可 拓 模 型 应 用
关联系数矩阵
物 元 可 拓 模 型 应 用
物元可拓方法从事物向外、向内、平行、
变通和组合分解的角度提供了多条变换
物
元 可 拓 模 型
例：选取建城区绿化覆盖率、建城区绿地率、
建城区人均公共绿地面积三大指标为园林绿
化质量的评判因子特征，分别记为C1 ，C2 ， C3，，，将园林绿化质量划分为4个等级，即
应
N01=优、 N02 =良、 N03 =可、 N04 =差。C由
用 来自教学单位、科研单位、园林行业协会、
园林行政管理部门11位专家讨论确定了评判
区间的模： Vi j bij ij 点到区间的距离：
p(Vi ,Vij )
Vi
1 2
(
ij
bij )
1 2 (bij
ij )
p(Vi ,Vpi
)
Vi
1 2
(
pi
b pi )
物元可拓法在水环境质量评价中的应用
物元可拓法在水环境质量评价中的应用随着环境保护意识的增强，水环境质量评价已成为环境管理的重要组成部分。
在这种情况下，可拓分析法被广泛用于水环境质量评价，其主要原理是建立一组属性的关联性网络，以确定同一物质的不同性质和特性。
本文旨在通过介绍物元可拓法，展现其在水环境质量评价中的应用。
首先，物元可拓法的基本概念是将客观实体划分为无限的最小物元，也就是可拓元，其中每个元素都拥有自身的属性和特征。
此外，所有物元之间均存在连接关系，可拓分析运用该连接关系来分析和研究客观实体的特性。
其次，物元可拓法是一种数学模型，主要用于对某种物质的系统规律的模拟和推理研究。
它建立了一组属性的关联网络，以表明某个物质的不同性质和特性，而这些性质和特性又可以用数学模型表示出来。
再次，应用物元可拓法，可以实现对水环境质量的全面评价，以确定水环境质量的总体情况。
从而，可以有效地识别水环境中存在的各种污染物，并对水环境质量的不同状态进行清晰的表述。
此外，物元可拓法也可用于水污染的源的识别与分析，可以从客观实体的层面识别出水污染物的来源及其关联，从而更有效地实施管理治理措施。
最后，物元可拓法在水环境质量评价中具有系统性、客观性和可控性，可以有效地评价水环境质量，为水环境管理提供参考。
综上所述，物元可拓法在水环境质量评价中具有重要作用，不仅可以帮助相关方面识别水污染物的来源及其关联，还可以更有效地实施管理治理措施，提高水环境的管理能力。
但是，物元可拓法也存在一定的局限性，比如它不能用于强排放量的评估。
因此，未来关于物元可拓法在水环境质量评价中的研究，应结合实际情况，分析和研究根据其局限性，更好地应用物元可拓法，以实现更好的环境保护。
总之，物元可拓法在水环境质量评价中有着重要的作用，它可以帮助我们更好地了解水环境质量的总体情况，从而帮助实施更有效的水环境管理措施，最终实现水环境的持续改善。
物元可拓法Excel计算程序
物元可拓法Excel计算程序物元可拓法于80年代由我国蔡⽂教授创⽴，⽬前已⼴泛应⽤于新产品构思与设计、优化决策、控制、识别与评价等各个领域，⽆论在理论还是在实践上都发挥了越来越重要的作⽤。
物元是描述事物的名称、特征及量值3个基本元素的简称，在形式上可记为M=(N，c，v)=(N，c，c(N))。
其中M、N、c、v分别是Matter、Name， Character， Value的缩写。
可拓集合是⽤关联度将模糊集合的[0，1]闭合区间连续取值拓⼴到(-∞，+∞)实数轴，以表达物元的量值为实轴上的⼀点时符合要求的程度。
物元分析是研究物元及其变化并⽤以解决⽭盾问题的规律和⽅法，可拓学是⽤形式化的⼯具，从定性和定量两个⾓度去研究解决⽭盾问题的规律和⽅法。
物元可拓法结合⼆者，是将辨证逻辑和形式逻辑相结合的可拓逻辑，丰富了事物的内涵，客观地反映了物质世界的真实状态。
本次选⽤评价因⼦污染贡献率⽅法来确定权系数。
主要计算程序：Dim sRow As Integer, sCol As Integer'起始的⾏与列Dim i As Integer, j As Integer'循环变量Dim Xj As Double'定义实测值Dim Aij As Double, Bij As Double'定义标准域区间Dim Apj As Double, Bpj As Double'定义节域变量Dim YZS As Integer'定义评价因⼦个数Dim DJS As Integer'定义评价等级数'得到起始⾏列值sRow = InputBox("请输⼊监测数据第⼀个数的⾏号！", "输⼊⾏号", 0)sCol = InputBox("请输⼊监测数据第⼀个数的列号！", "输⼊列号", 0)YZS = InputBox("请输⼊评价因⼦个数!", "输⼊因⼦个数", 0)DJS = InputBox("请输⼊评价等级个数!", "输⼊评价等级数", 0)'插⼊标记列⽂字With Sheets("sheet1")For i = 1To DJSCells(sRow + DJS + 2 + i, sCol - 1).Value = "关联函数k_等级" & iNext iCells(sRow + 2 * DJS + 3, sCol - 1).Value = "X/S"Cells(sRow + 2 * DJS + 4, sCol - 1).Value = "归⼀化权重"For i = 1To DJSCells(sRow + 2 * DJS + 4 + i, sCol - 1).Value = "关联度K_等级" & iNext iCells(sRow + 3 * DJS + 5, sCol - 1).Value = "可拓指数"'按列循环计算For j = sCol To sCol + YZS - 1'赋初值Xj = Cells(sRow, j).Value '实测值Apj = Cells(sRow + 1, j).Value '可拓域最⼩值Bpj = Cells(sRow + DJS + 2, j).Value '可拓域最⼤值For i = 1To DJS'对aij,bij赋值Aij = Cells(sRow + i, j).ValueBij = Cells(sRow + i + 1, j).Value'按条件选择公式计算关联度If Xj > Aij And Xj < Bij Then'xj<Xij 点x位于本标准之内If Xj <= ((Aij + Bij) / 2) ThenCells(sRow + i + DJS + 2, j).Value = -(Aij - Xj) / (Bij - Aij)ElseCells(sRow + i + DJS + 2, j).Value = -(Xj - Bij) / (Bij - Aij)End IfElse'xj<>Xij 点x位于本标准之外If Xj < Aij Then'x位于标准的左边,此时有x<(ai+bi)/2If Xj <= (Apj + Bpj) / 2ThenCells(sRow + i + DJS + 2, j).Value = (Aij - Xj) / (Apj - Aij)ElseCells(sRow + i + DJS + 2, j).Value = (Aij - Xj) / (2 * Xj - Bpj - Aij)End IfElseIf Xj > Bij Then'x位于标准的右边,此时有x>(ai+bi)/2If Xj <= (Apj + Bpj) / 2ThenCells(sRow + i + DJS + 2, j).Value = (Xj - Bij) / (Apj + Bij - 2 * Xj)ElseCells(sRow + i + DJS + 2, j).Value = (Xj - Bij) / (Bij - Bpj)End IfEnd IfEnd IfNext iNext j'计算X/SFor j = sCol To sCol + YZS - 1Dim a As Doublea = 0For i = 1To DJS + 2a = a + Cells(sRow + i, j)Next iCells(sRow + 2 * DJS + 3, j).Value = Cells(sRow, j).Value * (DJS + 2) / aNext j'计算权重'计算x/s的总和a = 0For i = sCol To sCol + YZS - 1a = a + Cells(sRow + 2 * DJS + 3, i)Next iFor j = sCol To sCol + YZS - 1Cells(sRow + 2 * DJS + 4, j).Value = Cells(sRow + 2 * DJS + 3, j).Value / aNext j'计算关联度Cells(sRow + 2 * DJS + 4, sCol + YZS) = "综合关联度"For i = 1To DJSFor j = sCol To sCol + YZS - 1Cells(sRow + 2 * DJS + 4 + i, j).Value = Cells(sRow + DJS + 2 + i, j).Value * Cells(sRow + 2 * DJS + 4, j).Value Next jDim k As Integera = 0For k = sCol To sCol + YZS - 1a = a + Cells(sRow + 2 * DJS + 4 + i, k) '综合关联度累加Next kCells(sRow + 2 * DJS + 4 + i, sCol + YZS).Value = aNext i'计算可拓指数'找最⼩与最⼤关联度Dim Kmax, Kmin As DoubleKmax = Cells(sRow + 2 * DJS + 4 + 1, sCol + YZS).ValueKmin = KmaxFor i = 2To DJSIf Kmax < Cells(sRow + 2 * DJS + 4 + i, sCol + YZS).Value ThenKmax = Cells(sRow + 2 * DJS + 4 + i, sCol + YZS).ValueEnd IfIf Kmin > Cells(sRow + 2 * DJS + 4 + i, sCol + YZS).Value ThenKmin = Cells(sRow + 2 * DJS + 4 + i, sCol + YZS).ValueEnd IfNext iDim KXP() As DoubleReDim KXP(DJS) As DoubleFor i = 1To DJSKXP(i) = (Cells(sRow + 2 * DJS + 4 + i, sCol + YZS).Value - Kmin) / (Kmax - Kmin)Next iDim FZ, FM As DoubleFor i = 1To DJSFZ = FZ + i * KXP(i)FM = FM + KXP(i)Next iCells(sRow + 3 * DJS + 5, sCol).Value = FZ / FMEnd With。
可拓学
"可拓学"是中国人创立的一门新学科，第一篇文章发表于1983年，经过二十多年的努力，
这门学科已取得长足的进展：建立了初步的理论框架——可拓论，发展了自己特有的方法体
系——可拓方法，并在诸多领域得到应用，形成了可拓工程。
可拓论、可拓方法和可拓工程
构成了"可拓学"，它已从理论研究走向应用研究，从广东走向全国，正在从中国走向世界
可拓论及其应用
(广东工业大学可拓工程研究所, 广州, 510090)
“可拓集合和不相容问题”一文的发表,提出了探讨事物的可拓性,以解决矛盾问题的研究方向。
15年来, 对这一方向的研究逐步形成了可拓论,它以物元理论和可拓集合论为支柱, 以可拓方法为特有的方法,它的应用方法称为可拓工程方法, 包括可拓信息方法, 可拓系统方法,可拓决策方法等,本文综述这一研究工作提出的基本概念、理论、方法以及在经济领域、管理、控制领域和人工智能的初步应用。
关键词可拓论物元可拓集合
14
3.1 可拓学的定义 可拓学是用形式化模型研究事物拓展的可能性和开拓创新的规律与方法，以解决矛盾问题的科学 可拓论+可拓方法+可拓工程=可拓学。
基于可拓物元模型的供应链柔性评价
可拓学研 究如何用正规 化的概念来解 决不兼容 或相互矛 盾 的问题 。可拓评价方法则利用可拓学中关 联函数来评价
事物 。物元模 型是一种 定性与定 量相结 合的评价 模型 ， 可 以对供应链柔性进行定 量评 价。本文根据 可拓学 中物元模型
与关联函数理论 ， 建立供应 链柔性综 合评价 的物元模 型 ， 通过 计算其综合关联度 ， 找出定量 的数值评定结果 。这种结果不但
关键词 ：供 应链 柔性 ；可拓评 价 ；物元 模型 ；关联 函数 中图分 类号 ：Ｆ ７ ． ２２５ 文献标 志码 ：Ａ 文章编 号 ：１０ — ６ ５ ２ １ ）０ ３ ２ — ３ ０ １３ ９ （ ０ ０ １ ・７ ４ ０
ｄｉ１ ． ９ ９ ｊｉ ｎ １ ０ —６ ５ ２ １ ．０ ０ １ ｏ：０ ３ ６ ／．ｓ ．０ １３９ ．０ ０ １ ． ３ ｓ
织柔性 和信息 系统 柔性 。徐 健 围绕 顾 客满 意这 一 重要 指
收稿 Ｅ期 ：２ １—４ １ ｔ ００ ０ －２；修 回 日期 ：２ １—５ ２ ０ ００ — ２
：
：
ｉ
Ｆ
Ｆ
Ｘ、
作者简介 ： 王桂花（９ ６ ） 女 ， １７ 一 ， 山东沂水人 ， 士研 究生 ， 博 主要研 究方向为工业工程、 物流与供应链管理（ ｉ ｗ ｎ＠１３ ｃｒ ｍｄ ａｇ ６ ．ｏ ） ＿ ｎ
Ｔｃ ｎ ｌ ｙ Ｊ ￣ｕ Ｖ ｃ ｔ ｎ ｌ Ｔ ｃ ｎ ａ ｓ ｔｔ，Ｎ ｎ ｎ １ １ ８ ｈｎ ） ｅｈ ｏ ｇ ， ＆ｎ ｏ ａｉ ａ ＆ ｅｈ ｉ ｌ ｎ ｔｕｅ ａｆ ｇ ２ １ ６ ，Ｃ ｉａ ｏ ｏ ｃ Ｉ ｉ ｉ
Ａ ｓ ａ ｔ ｎｏｄ ｒ ｏｔ ｃ ｍ ｌ ａ ｄａｊ ｓ ｄ ｎ ｍ ｃｌ ｕ ｐｙｃ ａ ｅ ｉｉｔ，ｐ ｌ ｄｔｅｅｔ ｓ ｎｅ ａ ａ ｏ ｅ ｏ ｂ ｔ ｃ ：Ｉ ｒｅ ａｋｔ ｅ ｎ ｄ ｔ ｙ ａ ｉ ｌ ｓ ｐ ｌ ｈ ｉ ｆ ｘ ｌｙ ａ ｐ ｅ ｘｅ ｉ ｖ ｌ ｔ ｎ ｍ ｔ ｄｔ ｒ ｔ ｒ ｉ ｙ ｕ ａｙ ｎｌ ｂ ｉ ｉ ｈ ｎｏ ｕ ｉ ｈ ｏ
可拓学第三章
第三章可拓集合理论本章提要⏹从经典集合到可拓集合⏹可拓集合的定义⏹可拓集合的特色⏹基元可拓集合⏹关联函数理论1. 从经典集合到可拓集合⏹集合——人脑思维对事物识别和分类的方法⏹康托集合——u具有性质p或不具有性质p——特征函数{0，1}⏹模糊集合——u具有性质p的程度——隶属函数[0，1]⏹可拓集合——u具有性质p和不具有性质p的程度u不具有性质p，通过变换具有性质p——关联函数（－∞，+∞）可拓集合是可拓学中用于描述事物可变性、对事物进行动态分类的定量化工具，它是可拓学用于解决矛盾问题、形式化描述量变和质变的基础。
2. 可拓集合的定义可拓集合定义的演变:u （u, y) （u, y,y’）为了概括十多年来关于可拓集合的研究成果，使可拓集合的定义能直接描述元素性质的可变性和量变、质变的过程，我们用三元组（u, y,y’）和可拓变换T=(TU , Tk, Tu)来规定可拓集合。
2. 可拓集合的定义定义1（关于元素变换的可拓集合）设U 为论域，k 是U 到实域I 的一个映射，T 为给定的对U 中元素的变换,称(T )={ (u,y,y’)∣u ∈U, y=k (u )∈I,y’=k (Tu )∈I }为论域U 上关于元素变换T 的一个可拓集合，y =k (u )为(T )的关联函数。
A ~A ~2. 可拓集合的定义⏹当T=e （e 为幺变换）时，称为静态可拓集合⏹当T ≠e 时，称为动态可拓集合+(T )= { (u,y,y’)∣u ∈U, y =k (u )≤0 ,y =k (Tu )≥0}称为(T )的正可拓域；-(T )= { (u,y,y’)∣u ∈U, y =k (u )≥0 ,y =k (Tu )≤0}称为(T )的负可拓域；A +(T )= { (u,y,y’)∣u ∈U, y =k (u )≥0 ,y =k (Tu )≥0}称为(T )的正稳定域；A -(T )= { (u,y,y’)∣u ∈U, y =k (u )≤0 ,y =k (Tu )≤0}称为(T )的负稳定域。
可拓学
利用相关网，人们可以找到处理问题时需要的相关事物，从而生成创意
一物存在或一事实现，会导致另一物存在或另一事实现，这种关系叫做蕴含关系。
在出现矛盾问题时，某一个目标无法达到，可以找蕴含它的另一个目标，先实现这个目标，由于蕴含关系，原目标也就能达到。这是生成创意的另一条途径。
负与正：别人不要，我要!
潜与显：为何老停电？物有虚实两部，虚实结合，方成一物
虚部是有价值的，虚部分为主观虚部和客观虚部
诸葛亮用虚部对付司马懿——实是基础，虚可以使用
在一定条件下，实部和虚部可以互相转化
用水把洞变为实部，将老鼠赶出洞外——虚与实转化，可以产生创意
物有软硬两部，软硬结合，方成一物。
杀鬼见血—创造潜化和显化的机会
从被冷落到做左丞相—潜部到处都有，使潜部显化就是创意
未卜先知—预知潜在危险和危机并加以预防，使它潜化也是好创意
为何老停电ቤተ መጻሕፍቲ ባይዱ
第三章 生成创意的拓展四法
发散树：不要吊死在一棵树上
相关网：牵一发而动全身
蕴含系：日本人为何能捷足先登
变圆为扁—用物元的变换处理不相容问题
煤灰化冰—用事元的变换处理不相容问题
反收购—用关系元的变换处理不相容问题
处理对立问题有三种方法：
一边倒的方法，只满足一方。
折中调和的方法，你七成我三成。
转换桥方法，各行其道，各得其所。
转换桥方法是双赢或多赢的方法
有的不相容问题，单靠目标或条件的变换无法解决，或者虽能解决但耗时费力，可以使用目标和条件同时变换的方案去处理。
物元可拓评价法
物元可拓评价法
1. 简单易懂：物元可拓的评价法提供了一种简单易懂的评价方法，适用于各类物品与产品的评估。
2. 全面全面：该评价法考虑了物品的多个方面，包括可持续性、环境影响、经济价值等多个因素，能够提供全面的评估结果。
3. 灵活性：物元可拓的评价法能够根据需求进行灵活的调整与适应，以满足不同情境下的评估需求。
4. 可比性：该评价法提供了一套统一的评价指标与方法，使得不同物品与产品的评估结果具有可比性，方便进行比较与选择。
5. 可追溯性：物元可拓的评价法所使用的指标与方法具有明确的来源与依据，可以追溯评价结果的出处，增加了评估结果的可信度。
6. 可视化：通过物元可拓的评价法，可以将抽象的评估概念转化为可视化的图表与数据，更加直观地展现评估结果。
7. 适用范围广：物元可拓的评价法不仅适用于具体物品与产品的评估，也适用于项目、政策的评价，具有广泛的应用范围。
9. 综合性评价：物元可拓的评价法能够综合考虑多个因素对评估结果的影响，避免单一指标的片面性评价。
10. 风险评估：该评价法能够对物品与产品的潜在风险进行评估，帮助用户进行风险管理与决策。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
物元可拓法于80年代由我国蔡文教授创立，目前已广泛应用于新产品构思与设计、优化决策、控制、识别与评价等各个领域，无论在理论还是在实践上都发挥了越来越重要的作用。
物元是描述事物的名称、特征及量值3个基本元素的简称，在形式上可记为M=(N，c，v)=(N，c，c(N))。
其中M、N、c、v分别是Matter、Name，Character， Value的缩写。
可拓集合是用关联度将模糊集合的[0，1]闭合区间连续取值拓广到(-∞，+∞)实数轴，以表达物元的量值为实轴上的一点时符合要求的程度。
物元分析是研究物元及其变化并用以解决矛盾问题的规律和方法，可拓学是用形式化的工具，从定性和定量两个角度去研究解决矛盾问题的规律和方法。
物元可拓法结合二者，是将辨证逻辑和形式逻辑相结合的可拓逻辑，丰富了事物的内涵，客观地反映了物质世界的真实状态。
本次选用评价因子污染贡献率方法来确定权系数。
主要计算程序：Dim sRow As Integer, sCol As Integer'起始的行与列Dim i As Integer, j As Integer'循环变量Dim Xj As Double'定义实测值Dim Aij As Double, Bij As Double'定义标准域区间Dim Apj As Double, Bpj As Double'定义节域变量Dim YZS As Integer'定义评价因子个数Dim DJS As Integer'定义评价等级数'得到起始行列值sRow = InputBox("请输入监测数据第一个数的行号！", "输入行号", 0)sCol = InputBox("请输入监测数据第一个数的列号！", "输入列号", 0)YZS = InputBox("请输入评价因子个数!", "输入因子个数", 0)DJS = InputBox("请输入评价等级个数!", "输入评价等级数", 0)'插入标记列文字With Sheets("sheet1")For i = 1To DJSCells(sRow + DJS + 2 + i, sCol - 1).Value = "关联函数k_等级" & iNext iCells(sRow + 2 * DJS + 3, sCol - 1).Value = "X/S"Cells(sRow + 2 * DJS + 4, sCol - 1).Value = "归一化权重"For i = 1To DJSCells(sRow + 2 * DJS + 4 + i, sCol - 1).Value = "关联度K_等级" & iNext iCells(sRow + 3 * DJS + 5, sCol - 1).Value = "可拓指数"'按列循环计算For j = sCol To sCol + YZS - 1'赋初值Xj = Cells(sRow, j).Value '实测值Apj = Cells(sRow + 1, j).Value '可拓域最小值Bpj = Cells(sRow + DJS + 2, j).Value '可拓域最大值For i = 1To DJS'对aij,bij赋值Aij = Cells(sRow + i, j).ValueBij = Cells(sRow + i + 1, j).Value'按条件选择公式计算关联度If Xj > Aij And Xj < Bij Then'xj<Xij 点x位于本标准之内If Xj <= ((Aij + Bij) / 2) ThenCells(sRow + i + DJS + 2, j).Value = -(Aij - Xj) / (Bij - Aij) ElseCells(sRow + i + DJS + 2, j).Value = -(Xj - Bij) / (Bij - Aij) End IfElse'xj<>Xij 点x位于本标准之外If Xj < Aij Then'x位于标准的左边,此时有x<(ai+bi)/2If Xj <= (Apj + Bpj) / 2ThenCells(sRow + i + DJS + 2, j).Value = (Aij - Xj) / (Apj - Aij) ElseCells(sRow + i + DJS + 2, j).Value = (Aij - Xj) / (2 * Xj - Bpj - Aij) End IfElseIf Xj > Bij Then'x位于标准的右边,此时有x>(ai+bi)/2If Xj <= (Apj + Bpj) / 2ThenCells(sRow + i + DJS + 2, j).Value = (Xj - Bij) / (Apj + Bij - 2 * Xj) ElseCells(sRow + i + DJS + 2, j).Value = (Xj - Bij) / (Bij - Bpj) End IfEnd IfEnd IfNext iNext j'计算X/SFor j = sCol To sCol + YZS - 1Dim a As Doublea = 0For i = 1To DJS + 2a = a + Cells(sRow + i, j)Next iCells(sRow + 2 * DJS + 3, j).Value = Cells(sRow, j).Value * (DJS + 2) / a Next j'计算权重'计算x/s的总和a = 0For i = sCol To sCol + YZS - 1a = a + Cells(sRow + 2 * DJS + 3, i)Next iFor j = sCol To sCol + YZS - 1Cells(sRow + 2 * DJS + 4, j).Value = Cells(sRow + 2 * DJS + 3, j).Value / aNext j'计算关联度Cells(sRow + 2 * DJS + 4, sCol + YZS) = "综合关联度"For i = 1To DJSFor j = sCol To sCol + YZS - 1Cells(sRow + 2 * DJS + 4 + i, j).Value = Cells(sRow + DJS + 2 + i, j).V alue * Cells(sRow + 2 * DJS + 4, j).ValueNext jDim k As Integera = 0For k = sCol To sCol + YZS - 1a = a + Cells(sRow + 2 * DJS + 4 + i, k) '综合关联度累加Next kCells(sRow + 2 * DJS + 4 + i, sCol + YZS).Value = aNext i'计算可拓指数'找最小与最大关联度Dim Kmax, Kmin As DoubleKmax = Cells(sRow + 2 * DJS + 4 + 1, sCol + YZS).ValueKmin = KmaxFor i = 2To DJSIf Kmax < Cells(sRow + 2 * DJS + 4 + i, sCol + YZS).Value ThenKmax = Cells(sRow + 2 * DJS + 4 + i, sCol + YZS).ValueEnd IfIf Kmin > Cells(sRow + 2 * DJS + 4 + i, sCol + YZS).Value ThenKmin = Cells(sRow + 2 * DJS + 4 + i, sCol + YZS).ValueEnd IfNext iDim KXP() As DoubleReDim KXP(DJS) As DoubleFor i = 1To DJSKXP(i) = (Cells(sRow + 2 * DJS + 4 + i, sCol + YZS).Value - Kmin) / (Kmax - Kmin)Next iDim FZ, FM As DoubleFor i = 1To DJSFZ = FZ + i * KXP(i)FM = FM + KXP(i)Next iCells(sRow + 3 * DJS + 5, sCol).Value = FZ / FMEnd With我做地下水水质评价时用到的公式是这样的:矩跟关联度的公式是通常用到的那个,即:p(xj,xij)=|xj-0.5(aij+bij)|-0.5(bij-aij)关联函数计算公式:当xj属于xij时,ki(xj)=-p(xj,xij)/|xij|当xj不属于xij时,ki(xj)=p(xj,xij)/[p(xj,xrj)-p(xj,xij)]综合关联度计算公式:Kj(p)=a1*kj(x1)+a2*kj(x2)+...+an*kj(xn)权重用的污染因子贡献率法:ai=(xi/Si)/(x1/S1+x2/S2+...xn/Sn)可拓指数用公式:KXP=(Kj(X)-Min(Kj(X)))/(Max(Kj(X))-Min(Kj(X)))由于涉及的内容或者思路一同,可能选用的关联度计算公式,权重计算公式不同,酌情参考。
参考源程序里最初的部分，后面的变量说明有详细解释，定义要评价的参数个数，评价的等级等，相应的在excel表格里的参数个数与评价等级的行数要与之对应。
PS:上面的代码里因子个数是通过跳出的对话框手动输入进去的。