module1.bas

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

Attribute VB_Name = "Module1"
Option Base 1

Public Const Popsize = 60      '种群规模
Public Const Pc# = 0.8         '杂交概率
Public Const Pm# = 0.08        '突变概率
Public Const MaxNum = 1000      '遗传算法循环次数
Public Const Length = 24       '单个变量基因长度
Public Const GeneLength = 240  '基因长度
Public Const DataNum = 14      '实验数据组数
Public Const Min_Var = -5      '变量最小值
Public Const Max_Var = 5       '变量最大值
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 Const GoodNum = 5 '精英数目,不通过交叉、变异直接进入下一代


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