source: branches/ALPS/HeuristicLab.Algorithms.ALPS.SteadyState/3.3/AlpsSsGeneticAlgorithmMainLoop.cs @ 12171

Last change on this file since 12171 was 12171, checked in by pfleck, 7 years ago

#2350 Changed SteadyStateMatingPoolCreator to only select individuals young enough for the current layer.

File size: 12.1 KB
Line 
1#region License Information
2/* HeuristicLab
3 * Copyright (C) 2002-2015 Heuristic and Evolutionary Algorithms Laboratory (HEAL)
4 *
5 * This file is part of HeuristicLab.
6 *
7 * HeuristicLab is free software: you can redistribute it and/or modify
8 * it under the terms of the GNU General Public License as published by
9 * the Free Software Foundation, either version 3 of the License, or
10 * (at your option) any later version.
11 *
12 * HeuristicLab is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15 * GNU General Public License for more details.
16 *
17 * You should have received a copy of the GNU General Public License
18 * along with HeuristicLab. If not, see <http://www.gnu.org/licenses/>.
19 */
20#endregion
21
22using System.Linq;
23using HeuristicLab.Common;
24using HeuristicLab.Core;
25using HeuristicLab.Data;
26using HeuristicLab.Operators;
27using HeuristicLab.Optimization;
28using HeuristicLab.Optimization.Operators;
29using HeuristicLab.Parameters;
30using HeuristicLab.Persistence.Default.CompositeSerializers.Storable;
31using HeuristicLab.Selection;
32
33namespace HeuristicLab.Algorithms.ALPS.SteadyState {
34  [Item("AlpsSsGeneticAlgorithmMainLoop", "An ALPS steady-state genetic algorithm main loop operator.")]
35  [StorableClass]
36  public class AlpsSsGeneticAlgorithmMainLoop : AlgorithmOperator {
37    #region Parameter Properties
38    public ValueLookupParameter<BoolValue> MaximizationParameter {
39      get { return (ValueLookupParameter<BoolValue>)Parameters["Maximization"]; }
40    }
41    public ScopeTreeLookupParameter<DoubleValue> QualityParameter {
42      get { return (ScopeTreeLookupParameter<DoubleValue>)Parameters["Quality"]; }
43    }
44    public ILookupParameter<IntValue> MaximumIterationsParameter {
45      get { return (ILookupParameter<IntValue>)Parameters["MaximumIterations"]; }
46    }
47    public ILookupParameter<IOperator> AnalyzerParameter {
48      get { return (ILookupParameter<IOperator>)Parameters["Analyzer"]; }
49    }
50    public ILookupParameter<IOperator> LayerAnalyzerParameter {
51      get { return (ILookupParameter<IOperator>)Parameters["LayerAnalyzer"]; }
52    }
53    #endregion
54
55    [StorableConstructor]
56    private AlpsSsGeneticAlgorithmMainLoop(bool deserializing)
57      : base(deserializing) { }
58    private AlpsSsGeneticAlgorithmMainLoop(AlpsSsGeneticAlgorithmMainLoop original, Cloner cloner)
59      : base(original, cloner) { }
60    public override IDeepCloneable Clone(Cloner cloner) {
61      return new AlpsSsGeneticAlgorithmMainLoop(this, cloner);
62    }
63
64    public AlpsSsGeneticAlgorithmMainLoop()
65      : base() {
66      Parameters.Add(new ValueLookupParameter<BoolValue>("Maximization", "True if the problem is a maximization problem, otherwise false."));
67      Parameters.Add(new ScopeTreeLookupParameter<DoubleValue>("Quality", "The value which represents the quality of a solution."));
68      Parameters.Add(new LookupParameter<IntValue>("MaximumIterations", "The maximum number of iterations that the algorithm should process."));
69      Parameters.Add(new LookupParameter<IOperator>("Analyzer", "The operator used to the analyze all individuals."));
70      Parameters.Add(new LookupParameter<IOperator>("LayerAnalyzer", "The operator used to analyze each layer."));
71
72      var variableCreator = new VariableCreator() { Name = "Initialize" };
73      var layersProcessor = new NamedSubScopeProcessor() { Name = "Process Layers" };
74      var randomScopeProcessor = new RandomLayerProcessor() { Name = "Select a layer" };
75      var isLayerZeroComperator = new Comparator() { Name = "IsLayerZero = Layer == 0" };
76      var isLayerZeroBranch = new ConditionalBranch() { Name = "IsLayerZero?" };
77      var isDoInitBranch = new ConditionalBranch() { Name = "DoInit?" };
78      var setTargetIndedxToNextInit = new Assigner() { Name = "TargetIndex = NextInit" };
79      var incrementNextInit = new IntCounter() { Name = "Incr. NextInit" };
80      var checkInitFinished = new Comparator() { Name = "DoInit = NextInit >= PopulationSize" };
81      var workingScopeProcessor = new NamedSubScopeProcessor() { Name = "WorkingScope Processor" };
82      var createRandomIndividual = new SolutionsCreator() { Name = "Create random Individual" };
83      var initializeAgeProcessor = new UniformSubScopesProcessor();
84      var initializeAge = new Assigner() { Name = "Initialize Age" };
85      var removeEmptySubscope = new SubScopesRemover() { Name = "Remove empty subscope (from solutioncreator)" };
86      var selectRandomTargetIndex = new RandomIntAssigner();
87      var matingPoolCreator = new SteadyStateMatingPoolCreator() { Name = "Create MatingPool" };
88      var matingPoolProcessor = new NamedSubScopeProcessor() { Name = "Process MatingPool" };
89      var matingPoolSize = new SubScopesCounter() { Name = "MatingPoolSize" };
90      var matingPoolSizeMin2 = new Comparator() { Name = "ValidParents = MatingPoolSize >= 2" };
91      var validParentsBranch = new ConditionalBranch() { Name = "ValidParents?" };
92      var mainOperator = new AlpsSsGeneticAlgorithmMainOperator();
93      var reactivateInit = new Assigner() { Name = "DoInit = true" };
94      var resetNextInit = new Assigner() { Name = "NextInit = 1" };
95      var resetTargetIndex = new Assigner() { Name = "TargetIndex = 0" };
96      var tryMoveUp = new AlpsSsMover() { Name = "Try Move Up" };
97      var incrementEvaluations = new IntCounter() { Name = "incr. EvaluatedSolutions" };
98      var incrIterations = new IntCounter() { Name = "Incr. Iterations" };
99      var layerAnalyzerProcessor = new UniformSubScopesProcessor();
100      var layerAnalyzer = new Placeholder() { Name = "LayerAnalyzer (Placeholder)" };
101      var analyzer = new Placeholder() { Name = "Analyzer (Placeholder)" };
102      var iterationsComparator = new Comparator() { Name = "Iterations >= MaximumIterations" };
103      var terminateBranch = new ConditionalBranch() { Name = "Terminate?" };
104
105
106      OperatorGraph.InitialOperator = variableCreator;
107
108      variableCreator.CollectedValues.Add(new ValueParameter<BoolValue>("DoInit", new BoolValue(false)));
109      variableCreator.CollectedValues.Add(new ValueParameter<IntValue>("NextInit", new IntValue(0)));
110      variableCreator.CollectedValues.Add(new ValueParameter<IntValue>("OpenLayers", new IntValue(1)));
111      variableCreator.CollectedValues.Add(new ValueParameter<IntValue>("TargetIndex", new IntValue(0)));
112      variableCreator.CollectedValues.Add(new ValueParameter<IntValue>("Iterations", new IntValue(0)));
113      variableCreator.CollectedValues.Add(new ValueParameter<IntValue>("MatingPoolSize", new IntValue(0)));
114      variableCreator.CollectedValues.Add(new ValueParameter<BoolValue>("ValidParents", new BoolValue(false)));
115      variableCreator.CollectedValues.Add(new ValueParameter<BoolValue>("IsLayerZero", new BoolValue(false)));
116      variableCreator.Successor = layersProcessor;
117
118      layersProcessor.Operator = randomScopeProcessor;
119      layersProcessor.TargetScopeParameter.ActualName = "Layers";
120
121      randomScopeProcessor.Operator = isLayerZeroComperator;
122      // TODO move to old individuals
123      randomScopeProcessor.Successor = incrIterations;
124
125      isLayerZeroComperator.LeftSideParameter.ActualName = "Layer";
126      isLayerZeroComperator.RightSideParameter.Value = new IntValue(0);
127      isLayerZeroComperator.ResultParameter.ActualName = "IsLayerZero";
128      isLayerZeroComperator.Comparison = new Comparison(ComparisonType.Equal);
129      isLayerZeroComperator.Successor = isLayerZeroBranch;
130
131      isLayerZeroBranch.ConditionParameter.ActualName = "IsLayerZero";
132      isLayerZeroBranch.TrueBranch = isDoInitBranch;
133      isLayerZeroBranch.FalseBranch = selectRandomTargetIndex;
134      isLayerZeroBranch.Successor = tryMoveUp;
135
136      isDoInitBranch.ConditionParameter.ActualName = "DoInit";
137      isDoInitBranch.TrueBranch = setTargetIndedxToNextInit;
138      isDoInitBranch.FalseBranch = selectRandomTargetIndex;
139
140      setTargetIndedxToNextInit.LeftSideParameter.ActualName = "TargetIndex";
141      setTargetIndedxToNextInit.RightSideParameter.ActualName = "NextInit";
142      setTargetIndedxToNextInit.Successor = incrementNextInit;
143
144      incrementNextInit.ValueParameter.ActualName = "NextInit";
145      incrementNextInit.Increment = new IntValue(1);
146      incrementNextInit.Successor = checkInitFinished;
147
148      checkInitFinished.LeftSideParameter.ActualName = "NextInit";
149      checkInitFinished.RightSideParameter.ActualName = "PopulationSize";
150      checkInitFinished.Comparison = new Comparison(ComparisonType.GreaterOrEqual);
151      checkInitFinished.ResultParameter.ActualName = "DoInit";
152      checkInitFinished.Successor = workingScopeProcessor;
153
154      workingScopeProcessor.Operator = createRandomIndividual;
155      workingScopeProcessor.TargetScopeParameter.ActualName = "WorkingScope";
156
157      createRandomIndividual.NumberOfSolutions = new IntValue(1);
158      createRandomIndividual.Successor = initializeAgeProcessor;
159
160      initializeAgeProcessor.Operator = initializeAge;
161      initializeAgeProcessor.Successor = removeEmptySubscope;
162
163      initializeAge.LeftSideParameter.ActualName = "EvalsCreated";
164      initializeAge.RightSideParameter.ActualName = "EvaluatedSolutions";
165
166      selectRandomTargetIndex.LeftSideParameter.ActualName = "TargetIndex";
167      selectRandomTargetIndex.MinimumParameter.Value = new IntValue(0);
168      selectRandomTargetIndex.MaximumParameter.ActualName = "LayerSize";
169      selectRandomTargetIndex.MaximumParameter.Value = null;
170      selectRandomTargetIndex.Successor = matingPoolCreator;
171
172      matingPoolCreator.Successor = matingPoolProcessor;
173
174      matingPoolProcessor.Operator = matingPoolSize;
175      matingPoolProcessor.TargetScopeParameter.ActualName = "WorkingScope";
176
177      matingPoolSize.ValueParameter.ActualName = "MatingPoolSize";
178      matingPoolSize.AccumulateParameter.Value = new BoolValue(false);
179      matingPoolSize.Successor = matingPoolSizeMin2;
180
181      matingPoolSizeMin2.LeftSideParameter.ActualName = "MatingPoolSize";
182      matingPoolSizeMin2.RightSideParameter.Value = new IntValue(2);
183      matingPoolSizeMin2.Comparison = new Comparison(ComparisonType.GreaterOrEqual);
184      matingPoolSizeMin2.ResultParameter.ActualName = "ValidParents";
185      matingPoolSizeMin2.Successor = validParentsBranch;
186
187      validParentsBranch.ConditionParameter.ActualName = "ValidParents";
188      validParentsBranch.TrueBranch = mainOperator;
189      validParentsBranch.FalseBranch = reactivateInit;
190
191      reactivateInit.Successor = resetNextInit;
192      reactivateInit.LeftSideParameter.ActualName = "DoInit";
193      reactivateInit.RightSideParameter.Value = new BoolValue(true);
194
195      resetNextInit.Successor = resetTargetIndex;
196      resetNextInit.LeftSideParameter.ActualName = "NextInit";
197      resetNextInit.RightSideParameter.Value = new IntValue(1);
198
199      resetTargetIndex.LeftSideParameter.ActualName = "TargetIndex";
200      resetTargetIndex.RightSideParameter.Value = new IntValue(0);
201      resetTargetIndex.Successor = createRandomIndividual;
202
203      tryMoveUp.Successor = incrementEvaluations;
204
205      incrementEvaluations.Increment = new IntValue(1);
206      incrementEvaluations.ValueParameter.ActualName = "EvaluatedSolutions";
207
208      incrIterations.ValueParameter.ActualName = "Iterations";
209      incrIterations.Increment = new IntValue(1);
210      incrIterations.Successor = layerAnalyzerProcessor;
211
212      layerAnalyzerProcessor.Operator = layerAnalyzer;
213      layerAnalyzerProcessor.Successor = analyzer;
214
215      layerAnalyzer.OperatorParameter.ActualName = "LayerAnalyzer";
216
217      analyzer.OperatorParameter.ActualName = "Analyzer";
218      analyzer.Successor = iterationsComparator;
219
220      iterationsComparator.Comparison = new Comparison(ComparisonType.GreaterOrEqual);
221      iterationsComparator.LeftSideParameter.ActualName = "Iterations";
222      iterationsComparator.RightSideParameter.ActualName = MaximumIterationsParameter.Name;
223      iterationsComparator.ResultParameter.ActualName = "Terminate";
224      iterationsComparator.Successor = terminateBranch;
225
226      terminateBranch.ConditionParameter.ActualName = "Terminate";
227      terminateBranch.FalseBranch = randomScopeProcessor;
228    }
229  }
230}
Note: See TracBrowser for help on using the repository browser.