Changeset 13402 for trunk/sources/HeuristicLab.Algorithms.ALPS/3.3/AlpsOffspringSelectionGeneticAlgorithmMainLoop.cs

Timestamp:

11/25/15 17:50:52 (8 years ago)

Author:

pfleck

Message:

#2527 Implemented ALPS-OSGA on the base of the AlpsGeneticAlgorithm and and the OffspringSelectionGeneticAlgorithmMainOperator.

File:

• trunk/sources/HeuristicLab.Algorithms.ALPS/3.3/AlpsOffspringSelectionGeneticAlgorithmMainLoop.cs (copied) (copied from trunk/sources/HeuristicLab.Algorithms.ALPS/3.3/AlpsGeneticAlgorithmMainLoop.cs) (10 diffs)

trunk/sources/HeuristicLab.Algorithms.ALPS/3.3/AlpsOffspringSelectionGeneticAlgorithmMainLoop.cs

@@ -32 +32 @@
 namespace HeuristicLab.Algorithms.ALPS {
 
-  [Item("AlpsGeneticAlgorithmMainLoop", "An ALPS genetic algorithm main loop operator.")]
+  [Item("AlpsOffspringSelectionGeneticAlgorithmMainLoop", "An ALPS offspring selection genetic algorithm main loop operator.")]
   [StorableClass]
-  public sealed class AlpsGeneticAlgorithmMainLoop : AlgorithmOperator {
+  public sealed class AlpsOffspringSelectionGeneticAlgorithmMainLoop : AlgorithmOperator {
     #region Parameter Properties
     public IValueLookupParameter<IRandom> GlobalRandomParameter {
@@ -91 +91 @@
       get { return (IValueLookupParameter<BoolValue>)Parameters["ReevaluateElites"]; }
     }
-    public IValueLookupParameter<BoolValue> PlusSelectionParameter {
-      get { return (IValueLookupParameter<BoolValue>)Parameters["PlusSelection"]; }
+
+    public IValueLookupParameter<DoubleValue> SuccessRatioParameter {
+      get { return (IValueLookupParameter<DoubleValue>)Parameters["SuccessRatio"]; }
+    }
+    public ILookupParameter<DoubleValue> ComparisonFactorParameter {
+      get { return (ILookupParameter<DoubleValue>)Parameters["ComparisonFactor"]; }
+    }
+    public IValueLookupParameter<DoubleValue> MaximumSelectionPressureParameter {
+      get { return (IValueLookupParameter<DoubleValue>)Parameters["MaximumSelectionPressure"]; }
+    }
+    public IValueLookupParameter<BoolValue> OffspringSelectionBeforeMutationParameter {
+      get { return (IValueLookupParameter<BoolValue>)Parameters["OffspringSelectionBeforeMutation"]; }
+    }
+    public IValueLookupParameter<BoolValue> FillPopulationWithParentsParameter {
+      get { return (IValueLookupParameter<BoolValue>)Parameters["FillPopulationWithParents"]; }
     }
 
@@ -121 +134 @@
 
     [StorableConstructor]
-    private AlpsGeneticAlgorithmMainLoop(bool deserializing)
+    private AlpsOffspringSelectionGeneticAlgorithmMainLoop(bool deserializing)
       : base(deserializing) { }
-    private AlpsGeneticAlgorithmMainLoop(AlpsGeneticAlgorithmMainLoop original, Cloner cloner)
+    private AlpsOffspringSelectionGeneticAlgorithmMainLoop(AlpsOffspringSelectionGeneticAlgorithmMainLoop original, Cloner cloner)
       : base(original, cloner) { }
     public override IDeepCloneable Clone(Cloner cloner) {
-      return new AlpsGeneticAlgorithmMainLoop(this, cloner);
-    }
-    public AlpsGeneticAlgorithmMainLoop()
+      return new AlpsOffspringSelectionGeneticAlgorithmMainLoop(this, cloner);
+    }
+    public AlpsOffspringSelectionGeneticAlgorithmMainLoop()
       : base() {
       Parameters.Add(new ValueLookupParameter<IRandom>("GlobalRandom", "A pseudo random number generator."));
@@ -151 +164 @@
       Parameters.Add(new ValueLookupParameter<IntValue>("Elites", "The numer of elite solutions which are kept in each generation."));
       Parameters.Add(new ValueLookupParameter<BoolValue>("ReevaluateElites", "Flag to determine if elite individuals should be reevaluated (i.e., if stochastic fitness functions are used.)"));
-      Parameters.Add(new ValueLookupParameter<BoolValue>("PlusSelection", "Include the parents in the selection of the invividuals for the next generation."));
+
+      Parameters.Add(new ValueLookupParameter<DoubleValue>("SuccessRatio", "The ratio of successful to total children that should be achieved."));
+      Parameters.Add(new ValueLookupParameter<DoubleValue>("ComparisonFactor", "The comparison factor is used to determine whether the offspring should be compared to the better parent, the worse parent or a quality value linearly interpolated between them. It is in the range [0;1]."));
+      Parameters.Add(new ValueLookupParameter<DoubleValue>("MaximumSelectionPressure", "The maximum selection pressure that terminates the algorithm."));
+      Parameters.Add(new ValueLookupParameter<BoolValue>("OffspringSelectionBeforeMutation", "True if the offspring selection step should be applied before mutation, false if it should be applied after mutation."));
+      Parameters.Add(new ValueLookupParameter<BoolValue>("FillPopulationWithParents", "True if the population should be filled with parent individual or false if worse children should be used when the maximum selection pressure is exceeded."));
 
       Parameters.Add(new ScopeTreeLookupParameter<DoubleValue>("Age", "The age of individuals."));
@@ -168 +186 @@
       var layerVariableCreator = new VariableCreator() { Name = "Initialize Layer" };
       var initLayerAnalyzerPlaceholder = new Placeholder() { Name = "LayerAnalyzer (Placeholder)" };
+      var layerResultCollector = new ResultsCollector() { Name = "Collect layer results" };
       var initAnalyzerPlaceholder = new Placeholder() { Name = "Analyzer (Placeholder)" };
       var resultsCollector = new ResultsCollector();
@@ -173 +192 @@
       var matingPoolProcessor = new UniformSubScopesProcessor() { Name = "Process Mating Pools" };
       var initializeLayer = new Assigner() { Name = "Reset LayerEvaluatedSolutions" };
-      var mainOperator = new AlpsGeneticAlgorithmMainOperator();
+      var mainOperator = new AlpsOffspringSelectionGeneticAlgorithmMainOperator();
       var generationsIcrementor = new IntCounter() { Name = "Increment Generations" };
       var evaluatedSolutionsReducer = new DataReducer() { Name = "Increment EvaluatedSolutions" };
@@ -195 +214 @@
       layerVariableCreator.CollectedValues.Add(new ValueParameter<IntValue>("Layer", new IntValue(0)));
       layerVariableCreator.CollectedValues.Add(new ValueParameter<ResultCollection>("LayerResults"));
+      layerVariableCreator.CollectedValues.Add(new ValueParameter<DoubleValue>("SelectionPressure", new DoubleValue(0)));
+      layerVariableCreator.CollectedValues.Add(new ValueParameter<DoubleValue>("CurrentSuccessRatio", new DoubleValue(0)));
       layerVariableCreator.Successor = initLayerAnalyzerPlaceholder;
 
       initLayerAnalyzerPlaceholder.OperatorParameter.ActualName = LayerAnalyzerParameter.Name;
-      initLayerAnalyzerPlaceholder.Successor = null;
+      initLayerAnalyzerPlaceholder.Successor = layerResultCollector;
+
+      layerResultCollector.ResultsParameter.ActualName = "LayerResults";
+      layerResultCollector.CollectedValues.Add(new LookupParameter<DoubleValue>("Current Selection Pressure", "Displays the rising selection pressure during a generation.", "SelectionPressure"));
+      layerResultCollector.CollectedValues.Add(new LookupParameter<DoubleValue>("Current Success Ratio", "Indicates how many successful children were already found during a generation (relative to the population size).", "CurrentSuccessRatio"));
+      layerResultCollector.Successor = null;
 
       initAnalyzerPlaceholder.OperatorParameter.ActualName = AnalyzerParameter.Name;
@@ -233 +259 @@
       mainOperator.ElitesParameter.ActualName = ElitesParameter.Name;
       mainOperator.ReevaluateElitesParameter.ActualName = ReevaluateElitesParameter.Name;
-      mainOperator.PlusSelectionParameter.ActualName = PlusSelectionParameter.Name;
+      mainOperator.ComparisonFactorParameter.ActualName = ComparisonFactorParameter.Name;
+      mainOperator.SuccessRatioParameter.ActualName = SuccessRatioParameter.Name;
+      mainOperator.CurrentSuccessRatioParameter.ActualName = "CurrentSuccessRatio";
+      mainOperator.SelectionPressureParameter.ActualName = "SelectionPressure";
+      mainOperator.MaximumSelectionPressureParameter.ActualName = MaximumSelectionPressureParameter.Name;
+      mainOperator.OffspringSelectionBeforeMutationParameter.ActualName = OffspringSelectionBeforeMutationParameter.Name;
+      mainOperator.FillPopulationWithParentsParameter.ActualName = FillPopulationWithParentsParameter.Name;
       mainOperator.AgeParameter.ActualName = AgeParameter.Name;
       mainOperator.AgeInheritanceParameter.ActualName = AgeInheritanceParameter.Name;
@@ -327 +359 @@
       var updateLayerNumber = new Assigner() { Name = "Layer = OpenLayers" };
       var historyWiper = new ResultsHistoryWiper() { Name = "Clear History in Results" };
-      var createChildrenViaCrossover = new AlpsGeneticAlgorithmMainOperator();
+      var createChildrenViaCrossover = new AlpsOffspringSelectionGeneticAlgorithmMainOperator();
       var incrEvaluatedSolutionsForNewLayer = new SubScopesCounter() { Name = "Update EvaluatedSolutions" };
       var incrOpenLayers = new IntCounter() { Name = "Incr. OpenLayers" };
@@ -373 +405 @@
       createChildrenViaCrossover.SelectorParameter.ActualName = SelectorParameter.Name;
       createChildrenViaCrossover.CrossoverParameter.ActualName = CrossoverParameter.Name;
-      createChildrenViaCrossover.MutatorParameter.ActualName = MutatorParameter.Name;
+      createChildrenViaCrossover.MutatorParameter.ActualName = MutatorParameter.ActualName;
       createChildrenViaCrossover.MutationProbabilityParameter.ActualName = MutationProbabilityParameter.Name;
       createChildrenViaCrossover.ElitesParameter.ActualName = ElitesParameter.Name;
       createChildrenViaCrossover.ReevaluateElitesParameter.ActualName = ReevaluateElitesParameter.Name;
-      createChildrenViaCrossover.PlusSelectionParameter.ActualName = PlusSelectionParameter.Name;
+      createChildrenViaCrossover.ComparisonFactorParameter.ActualName = ComparisonFactorParameter.Name;
+      createChildrenViaCrossover.SuccessRatioParameter.ActualName = SuccessRatioParameter.Name;
+      createChildrenViaCrossover.CurrentSuccessRatioParameter.ActualName = "CurrentSuccessRatio";
+      createChildrenViaCrossover.SelectionPressureParameter.ActualName = "SelectionPressure";
+      createChildrenViaCrossover.MaximumSelectionPressureParameter.ActualName = MaximumSelectionPressureParameter.Name;
+      createChildrenViaCrossover.OffspringSelectionBeforeMutationParameter.ActualName = OffspringSelectionBeforeMutationParameter.Name;
+      createChildrenViaCrossover.FillPopulationWithParentsParameter.ActualName = FillPopulationWithParentsParameter.Name;
       createChildrenViaCrossover.AgeParameter.ActualName = AgeParameter.Name;
       createChildrenViaCrossover.AgeInheritanceParameter.ActualName = AgeInheritanceParameter.Name;