物元可拓源码.docx

《物元可拓源码.docx》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、物元可拓法于80年代由我国蔡文教授创立，目前已广泛应用于新产品构思与设计、优化决策、控制、识别与评价等各个领域，无论在理论还是在实践上都发挥了越来越重要的作用。物元是描述事物的名称、特征及量值3个基本元素的简称，在形式上可记为M=(N，c，v)=(N，c，c(N))。其中M、N、c、v分别是Matter、Name， Character， Value的缩写。可拓集合是用关联度将模糊集合的[0，1]闭合区间连续取值拓广到(-∞，+∞)实数轴，以表达物元的量值为实轴上的一点时符合要求的程度。物元分析是研究物元及其变化并用以解决矛盾问

2、题的规律和方法，可拓学是用形式化的工具，从定性和定量两个角度去研究解决矛盾问题的规律和方法。物元可拓法结合二者，是将辨证逻辑和形式逻辑相结合的可拓逻辑，丰富了事物的内涵，客观地反映了物质世界的真实状态。本次选用评价因子污染贡献率方法来确定权系数。主要计算程序：Dim sRow As Integer, sCol As Integer    '起始的行与列Dim i As Integer, j As Integer          '循环变量Dim Xj As Double                        '定义实

3、测值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("请输

4、入监测数据第一个数的列号！", "输入列号", 0)YZS = InputBox("请输入评价因子个数!", "输入因子个数", 0)DJS = InputBox("请输入评价等级个数!", "输入评价等级数", 0)'插入标记列文字With Sheets("sheet1")  For i = 1 To DJS      Cells(sRow + DJS + 2 + i, sCol - 1).Value = "关联函数k_等级" & i  Next i  Cells(sRow + 2 * DJS + 3, sCol - 1).

5、Value = "X/S"  Cells(sRow + 2 * DJS + 4, sCol - 1).Value = "归一化权重"  For i = 1 To DJS      Cells(sRow + 2 * DJS + 4 + i, sCol - 1).Value = "关联度K_等级" & i  Next i  Cells(sRow + 3 * DJS + 5, sCol - 1).Value = "可拓指数"    '按列循环计算  For j = sCol To sCol + YZS - 1    '赋初值    

6、Xj = Cells(sRow, j).Value            '实测值    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、'按条件选择公式计算关联度      If Xj > Aij And Xj < Bij Then 'xj

8、)        End If              Else          'xj<>Xij 点x位于本标准之外              If Xj < Aij Then 'x位于标准的左边,此时有x<(ai+bi)/2                  If X