代码搜索结果
找到约 10,000 项符合
K 的代码
+ʢk
VERSION 5.00
Begin VB.Form frmFile
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "模糊物元"
ClientHeight = 5490
ClientLeft = 60
Cli
+ʢk
Attribute VB_Name = "modParameter"
'模糊物元分析
'公有变量和数组
Option Explicit
Public N As Integer '事物个数=模糊物元矩阵的行数
Public M As Integer '物元指标个数=模糊物元矩阵的列数
Public intRo
+ʢk
VERSION 5.00
Begin VB.Form frmFile2
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "求加权系数"
ClientHeight = 6405
ClientLeft = 60
C
+ʢk
frmFile = 17, 3, 654, 579, , 27, 13, 528, 562, C
modModel = 40, 0, 659, 544,
modParameter = 10, 23, 641, 487,
modMethod = 10, 4, 696, 609,
frmResu = 24, 2, 720, 480, , 2, -10, 611, 625, C
+ʢk
Attribute VB_Name = "modMethod"
'模糊物元分析
'计算隶属度方法模块
Option Explicit
'模式I:
'越大越优型
'R(1 To n):模糊物元分析数据矩阵
Public Sub Method1(X() As Double)
Dim N As Integer, I As Integer
Dim dC1 As Doubl
+ʢk
VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form frmResu
Appearance = 0 'Flat
BackColor = &H80000005&
Caption =
+ʢk
Type=Exe
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation
Form=模糊物元F1.frm
Module=modModel; 模糊物元M2.bas
Module=modParameter; 模糊物元M1.bas
Module=