Rubicite Genetic Algorith Framework Tutorial
General:
Basic Info
Selection Bias
Hard Problem
Downloads
Crossovers:
Cycle
Order X
Order 1
Edge Recombination
PMX Crossover
Order Multiple
Direct Insertion
Mutations:
Inversion
Random Slide
Insertion
Single Swap
Random Swap
Scramble
Mutation Technique:
Single Swap Mutation
VB.NET 2008 Source Code
Public Sub SingleSwap_Mutation(ByRef Child1 As PChromo) 'Child1 mutation Dim K As Integer = RAND.Next(0, 100) If K < 15 Then Dim X As Integer = RAND.Next(0, AlleleCount) Dim Y As Integer = RAND.Next(0, AlleleCount) K = Child1.Alleles(X) Child1.Alleles(X) = Child1.Alleles(Y) Child1.Alleles(Y) = K End If End Sub
© 2008/2009 Rubicite Interactive Inc.