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