Function minimization (Program screen shot - 156KB)
This sample shows how to use optiGA to minimize a function. The function being minimized is:

You can use binary parameters coding or real parameters coding

Just follow these simple steps and let optiGA's defaults do the job for you:

1) Define the variables:

Dim vMin As Variant, vMax As As Variant

'set the minimum and maximum values of the parameters
vMin = Array(0, 0)
vMax = Array(10, 10)

'reset the control
optiGA1.ResetOptiGA

'define the two real genes.
'just pass to the method the number of genes and their boundaries.
i = optiGA1.DefineRealGenes(2, vMin, vMax)

'set the report interval so you can see the results as the run progresses
optiGA1.ReportEveryGeneration = 1

2) Define the FitnessFunction event:
(This event is fired every time optiGA need to evaluate the fitness function)

Private Sub optiGA1_FitnessFunction(BinaryGenes As Variant, RealGenes As Variant, IntegerGenes As Variant, GenerationNumber As Long, Fitness As Single)

Dim X As Single, Y As Single

X = RealGenes(0)
Y = RealGenes(1)

Fitness = X * Sin(4 * X) + 1.1 * Y * Sin(2 * Y)

End Sub
3) Define the GenerationReport event (you can skip this section and wait for the final results):
(This event is fired evrey generation as set by the optiGA1.ReportEveryGeneration property)

Private Sub optiGA1_GenerationReport(BestFitness As Single, GenerationNumber As Long, BinaryGenes As Variant, RealGenes As Variant, IntegerGenes As Variant, ElapsedTime As Long, GenerationMeanFitness As Single)

'show the current generation report
Label7 = GenerationNumber
Label8 = BestFitness
Label9 = ElapsedTime
Label10 = GenerationMeanFitness

Label11 = RealGenes(0)
Label12 = RealGenes(1)

'use the DoEvents method to make sure the report is updated on the form
DoEvents

End Sub