module1.bas

基于VB语言编写的遗传算法

Attribute VB_Name = "Module1"
Public Const Popsize = 150      '种群规模
Public Const Pc# = 0.85         '杂交概率
Public Const Pm# = 0.08        '突变概率
Public Const MaxNum = 4000      '遗传算法循环次数
Public Const GoodNum = 2       '精英数目,不通过交叉、变异直接进入下一代

Public Const Min_Var = -1.5    '变量最小值
Public Const Max_Var = 1       '变量最大值
Public Const Length = 27       '单个变量基因长度,通过2^L-1=(Max_var-Min_var)/δ
Public Const GeneLength = 270  '基因长度,为Length与变量数的乘机

Public Const DataNum = 14      '实验数据组数
Public Const VaryNum = 10      '常数a个数
Public Const XNum = 3          '变量数
Public Const Cmax = 1000                    '变量数  适应度函数形式F(X)=Cmax-f(x)
Public Const FunctonMode = "MinImization"   '目标函数为最小值 则适应度函数为最大值
'Public Const Cmin = 1000                   '变量数  适应度函数形式F(X)=f(x)-Cmin
'Public Const FunctonMode = MaxImization    '目标函数为最小值 则适应度函数为最大值

Public Type Individual
       Gene(GeneLength) As Double
       Value(DataNum) As Double
       Fitness As Double
End Type