Improved the consistency of generation and evaluation

Author: IntegerMan

MattEland.FSharpGeneticAlgorithm.Logic/Fitness.fs

@@ -11,13 +11,20 @@ let standardFitnessFunction (gameStates: GameState[]): float =
 
   let gotAcornBonus = 
     match lastState.World.Acorn.IsActive with 
-    | true  -> 25.0 
+    | true  -> 100.0 
     | false -> 0.0
 
   let finalStateBonus =
     match lastState.SimState with
-    | SimulationState.Won  -> 100.0 - gameLength // Reward quick wins
+    | SimulationState.Won  -> 500.0 - gameLength // Reward quick wins
     | SimulationState.Lost -> -50.0 + gameLength
     | _                    -> 0.0 + gameLength
 
   gotAcornBonus + finalStateBonus
+
+let killRabbitFitnessFunction (gameStates: GameState[]): float =
+  let rabbitBonus = Seq.map (fun s -> match s.World.Rabbit.IsActive with
+                                      | false -> 10.0
+                                      | _ -> 0.0) gameStates |> Seq.sum 
+
+  rabbitBonus + standardFitnessFunction gameStates

MattEland.FSharpGeneticAlgorithm.Logic/Population.fs

@@ -1,21 +1,19 @@
 module MattEland.FSharpGeneticAlgorithm.Genetics.Population
 
-open MattEland.FSharpGeneticAlgorithm.Logic.States
 open MattEland.FSharpGeneticAlgorithm.Logic.Simulator
 open MattEland.FSharpGeneticAlgorithm.Genetics.Genes
 open MattEland.FSharpGeneticAlgorithm.Logic.World
 
-let simulateGeneration states random actors =
+let simulateGeneration states actors =
   actors 
-  |> Seq.map (fun b -> simulate random b states) 
+  |> Seq.map (fun b -> simulate b states) 
   |> Seq.sortByDescending (fun r -> r.totalScore)
 
 let buildInitialPopulation random =
   Seq.init<ActorChromosome> 10 (fun _ -> getRandomChromosome random)
 
 let simulateFirstGeneration states random =
-  buildInitialPopulation random 
-  |> simulateGeneration states random
+  buildInitialPopulation random |> simulateGeneration states
 
 let mutateBrains (random: System.Random, brains: ActorChromosome[]): ActorChromosome[] =
   if brains.Length <> 10 then failwith "Expecting exactly 10 entries"
@@ -25,17 +23,17 @@ let mutateBrains (random: System.Random, brains: ActorChromosome[]): ActorChromo
     getRandomChromosome random;
     getRandomChromosome random;
     getRandomChromosome random;
+    getRandomChromosome random;
+    getRandomChromosome random;
   |]
 
   let children = [| 
     createChild(random, survivors.[0].genes, survivors.[1].genes, 0.05);
-    createChild(random, survivors.[0].genes, survivors.[1].genes, 0.1);
     createChild(random, survivors.[0].genes, survivors.[1].genes, 0.25);
-    createChild(random, survivors.[0].genes, survivors.[1].genes, 0.5);
   |]
 
   Array.append children randos |> Array.append survivors
 
 let mutateAndSimulateGeneration (random: System.Random, worlds: World[], results: SimulationResult[]) =
   let brains = Seq.map (fun b -> b.brain) results |> Seq.toArray
-  mutateBrains(random, brains) |> simulateGeneration worlds random
+  mutateBrains(random, brains) |> simulateGeneration worlds

MattEland.FSharpGeneticAlgorithm.Logic/Simulator.fs

@@ -132,7 +132,7 @@ let handleChromosomeMove random chromosome state =
     state
 
 let buildStartingStateForWorld world =
-  { World = world; SimState = SimulationState.Simulating; TurnsLeft = 30}
+  { World = world; SimState = SimulationState.Simulating; TurnsLeft = 50}
 
 let buildStartingState (random: System.Random) = 
   makeWorld 13 13 random.Next |> buildStartingStateForWorld
@@ -149,7 +149,6 @@ let simulateIndividualGame random brain fitnessFunction world: IndividualWorldRe
     states = gameStates.ToArray();
   }
 
-
 let simulateGame random brain fitnessFunction states =
   let results: IndividualWorldResult seq = Seq.map (fun world -> simulateIndividualGame random brain fitnessFunction world) states
   {
@@ -158,6 +157,7 @@ let simulateGame random brain fitnessFunction states =
     brain = brain
   }
 
-let simulate random brain worlds =
+let simulate brain worlds =
   let states = Seq.map (fun w -> buildStartingStateForWorld w) worlds
-  simulateGame random brain standardFitnessFunction states
+  let random = new System.Random(42)
+  simulateGame random brain killRabbitFitnessFunction states

MattEland.FSharpGeneticAlgorithm.WindowsClient/ViewModels/MainViewModel.cs

@@ -32,12 +32,10 @@ private void SimulateCurrentPopulation()
             if (!Population.Any()) return;
 
             var pop = Population.Select(p => p.Brain.Model);
-            var result = Genetics.Population.simulateGeneration(_worlds, GetRandomForSimulation(), pop).ToList();
+            var result = Genetics.Population.simulateGeneration(_worlds, pop).ToList();
             UpdatePopulation(result);
         }
 
-        private Random GetRandomForSimulation() => new Random(42);
-
         public SimulationResultViewModel SelectedBrain
         {
             get => _brain;
@@ -85,7 +83,7 @@ private void AdvanceToNextGeneration()
             var priorResults = Population.Select(p => p.Model).ToArray();
 
             var brains = Genetics.Population.mutateBrains(_random, priorResults.Select(r => r.brain).ToArray());
-            var generation = Genetics.Population.simulateGeneration(_worlds, GetRandomForSimulation(), brains).ToList();
+            var generation = Genetics.Population.simulateGeneration(_worlds, brains).ToList();
 
             UpdatePopulation(generation);
         }