Rubicite Genetic Algorithm Framework

Rubicite Genetic Algorith Framework Tutorial

General:

Crossovers:

Mutations:

Mutation Technique: Scramble

VB.NET 2008 Source Code

'Default Float 0 is "0.01" and represents Minimum Swath Size. Valid Values are [0, 0.75] 'Default Float 0 is "0.53" and represents Maximum Swath Size. Valid Values are [0, 0.75] 'If randswapsize is less than 2, we force it to be 2 so that a scramble happens each time Public Sub Scramble_Mutation(ByRef Child As PChromo) 'X refers to the starting index of the first swap area 'Y refers to the starting index of the second swap area 'These areas are "randomwapsize" long Dim counterscra As Integer = 0 Dim randswathsize As Integer = RAND.Next(Scramble_Master.Doubles(0) * AlleleCount, Scramble_Master.Doubles(1) * AlleleCount) 'Doubles(0) = Min Swath Size || Doubles(1) = Max Swath Size If randswathsize < 2 Then randswathsize = 2 Dim X As Integer = RAND.Next(0, AlleleCount - randswathsize) Dim K(randswathsize - 1) As Integer Dim NewK(randswathsize - 1) As Integer For counterscra = 0 To randswathsize - 1 K(counterscra) = Child.Alleles(X + counterscra) Next Dim TempK As Integer = 0 If (randswathsize <= 2) Then TempK = K(0) K(0) = K(1) K(1) = TempK End If If (randswathsize > 2) Then Dim done As Boolean = False counterscra = 0 While (counterscra < randswathsize) Dim swap1 = RAND.Next(0, randswathsize - 1) Dim swap2 = RAND.Next(0, randswathsize - 1) If (swap2 = swap1) Then While (done = False) swap2 = RAND.Next(0, randswathsize - 1) If (swap2 <> swap1) Then done = True End If End While End If TempK = K(swap1) K(swap1) = K(swap2) K(swap2) = TempK counterscra += 1 End While End If For counterscra = 0 To randswathsize - 1 Child.Alleles(X + counterscra) = K(counterscra) Next End Sub