modperformevolution.bas

用vb编写的一个遗传算法的程序

Attribute VB_Name = "ModPerformEvolution"
'保留最佳个体策略
'用当前最优个体代替本代最差个体
Sub PerformEvolution()
test = 0
If BestIndividual.fitness > CurrentBest.fitness Then
    test = 1
    CurrentBest = Population(Best_Index) '好像这个分支没有什么用？？？
    '因为在FindBestAndWorstIndividual()中有CurrentBest = BestIndividual
Else
    Population(Worst_Index) = CurrentBest
End If
End Sub