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