Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim Chromolength as integer
- Chromolength = varchromolength * aVariables
- Dim i as integer, j as integer, counter as integer
- Dim Poparr() As Integer
- Dim FitValarr() As Integer
- ReDim Poparr(1 To PopSize, 1 To Chromolength)
- For i = 1 To PopSize
- For j = 1 To Chromolength
- If Rnd < 0.5 Then
- Poparr(i, j) = 0
- Else
- Poparr(i, j) = 1
- End If
- Next j
- Next i
- For i = 1 To PopSize
- j = 1
- counter = Chromolength
- Do While counter > 0
- FitValarr(i) = FitValarr(i) + Poparr(i, counter) * 2 ^ (j - 1)
- j = j + 1
- counter = counter - 1
- Loop
- Next i
- FitValarr(i) = FitValarr(i) + Poparr(i, counter) * 2 ^ (j - 1)
Add Comment
Please, Sign In to add comment