Attribute VB_Name = "Module1"
Public Const Popsize = 150      '種群規(guī)模
Public Const Pc# = 0.85         '雜交概率
Public Const Pm# = 0.08        '突變概率
Public Const MaxNum = 10000      '遺傳算法循環(huán)次數(shù)
Public Const GoodNum = 2       '精英數(shù)目,不通過交叉、變異直接進(jìn)入下一代

Public Const Min_Var = -1.5    '變量最小值
Public Const Max_Var = 1       '變量最大值
Public Const Length = 25       '單個(gè)變量基因長(zhǎng)度,通過2^L-1=(Max_var-Min_var)/δ
Public Const GeneLength = 25  '基因長(zhǎng)度,為L(zhǎng)ength與變量數(shù)的乘機(jī)

Public Const DataNum = 14      '實(shí)驗(yàn)數(shù)據(jù)組數(shù)
Public Const VaryNum = 10      '常數(shù)a個(gè)數(shù)
Public Const XNum = 3          '變量數(shù)
Public Const Cmax = 1000                    '變量數(shù)  適應(yīng)度函數(shù)形式F(X)=Cmax-f(x)
Public Const FunctonMode = "MinImization"   '目標(biāo)函數(shù)為最小值 則適應(yīng)度函數(shù)為最大值
'Public Const Cmin = 1000                   '變量數(shù)  適應(yīng)度函數(shù)形式F(X)=f(x)-Cmin
'Public Const FunctonMode = MaxImization    '目標(biāo)函數(shù)為最小值 則適應(yīng)度函數(shù)為最大值

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