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

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

#2350 Fixed SteadyState ALPS Mover and MainLoop.

File size: 12.3 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 createWorkingScope = new BestSelector();
82      var workingScopeProcessor = new SubScopesProcessor() { Name = "Working Scope Processor" };
83      var createRandomIndividual = new SolutionsCreator() { Name = "Create random Individual" };
84      var initializeAgeProcessor = new UniformSubScopesProcessor();
85      var initializeAge = new Assigner() { Name = "Initialize Age" };
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 resetNextIndex = new Assigner() { Name = "NextInit = 1" };
95      var resetTargetIndex = new Assigner() { Name = "TargetIndex = 0" };
96      var clearMatingPool = new SubScopesRemover() { Name = "Clear WorkingScope" };
97      var tryMoveUp = new AlpsSsMover() { Name = "Try Move Up" };
98      var incrementEvaluations = new IntCounter() { Name = "incr. EvaluatedSolutions" };
99      var incrIterations = new IntCounter() { Name = "Incr. Iterations" };
100      var layerAnalyzerProcessor = new UniformSubScopesProcessor();
101      var layerAnalyzer = new Placeholder() { Name = "LayerAnalyzer (Placeholder)" };
102      var analyzer = new Placeholder() { Name = "Analyzer (Placeholder)" };
103      var iterationsComparator = new Comparator() { Name = "Iterations >= MaximumIterations" };
104      var terminateBranch = new ConditionalBranch() { Name = "Terminate?" };
105
106
107      OperatorGraph.InitialOperator = variableCreator;
108
109      variableCreator.CollectedValues.Add(new ValueParameter<BoolValue>("DoInit", new BoolValue(false)));
110      variableCreator.CollectedValues.Add(new ValueParameter<IntValue>("NextInit", new IntValue(0)));
111      variableCreator.CollectedValues.Add(new ValueParameter<IntValue>("OpenLayers", new IntValue(1)));
112      variableCreator.CollectedValues.Add(new ValueParameter<IntValue>("TargetIndex", new IntValue(0)));
113      variableCreator.CollectedValues.Add(new ValueParameter<IntValue>("Iterations", new IntValue(0)));
114      variableCreator.CollectedValues.Add(new ValueParameter<IntValue>("MatingPoolSize", new IntValue(0)));
115      variableCreator.CollectedValues.Add(new ValueParameter<BoolValue>("ValidParents", new BoolValue(false)));
116      variableCreator.CollectedValues.Add(new ValueParameter<BoolValue>("IsLayerZero", new BoolValue(false)));
117      variableCreator.Successor = layersProcessor;
118
119      layersProcessor.Operator = randomScopeProcessor;
120      layersProcessor.TargetScopeParameter.ActualName = "Layers";
121
122      randomScopeProcessor.Operator = isLayerZeroComperator;
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 = createWorkingScope;
153
154      createWorkingScope.NumberOfSelectedSubScopesParameter.Value = new IntValue(0);
155      createWorkingScope.CopySelected = new BoolValue(false);
156      createWorkingScope.Successor = workingScopeProcessor;
157
158      workingScopeProcessor.Operators.Add(createRandomIndividual);
159      workingScopeProcessor.Operators.Add(new EmptyOperator());
160
161      createRandomIndividual.NumberOfSolutions = new IntValue(1);
162      createRandomIndividual.Successor = initializeAgeProcessor;
163
164      initializeAgeProcessor.Operator = initializeAge;
165
166      initializeAge.LeftSideParameter.ActualName = "EvalsCreated";
167      initializeAge.RightSideParameter.ActualName = "EvaluatedSolutions";
168
169      selectRandomTargetIndex.LeftSideParameter.ActualName = "TargetIndex";
170      selectRandomTargetIndex.MinimumParameter.Value = new IntValue(0);
171      selectRandomTargetIndex.MaximumParameter.ActualName = "LayerSize";
172      selectRandomTargetIndex.MaximumParameter.Value = null;
173      selectRandomTargetIndex.Successor = matingPoolCreator;
174
175      matingPoolCreator.Successor = matingPoolProcessor;
176
177      matingPoolProcessor.Operator = matingPoolSize;
178      matingPoolProcessor.TargetScopeParameter.ActualName = "WorkingScope";
179
180      matingPoolSize.ValueParameter.ActualName = "MatingPoolSize";
181      matingPoolSize.AccumulateParameter.Value = new BoolValue(false);
182      matingPoolSize.Successor = matingPoolSizeMin2;
183
184      matingPoolSizeMin2.LeftSideParameter.ActualName = "MatingPoolSize";
185      matingPoolSizeMin2.RightSideParameter.Value = new IntValue(2);
186      matingPoolSizeMin2.Comparison = new Comparison(ComparisonType.GreaterOrEqual);
187      matingPoolSizeMin2.ResultParameter.ActualName = "ValidParents";
188      matingPoolSizeMin2.Successor = validParentsBranch;
189
190      validParentsBranch.ConditionParameter.ActualName = "ValidParents";
191      validParentsBranch.TrueBranch = mainOperator;
192      validParentsBranch.FalseBranch = reactivateInit;
193
194      reactivateInit.Successor = resetNextIndex;
195      reactivateInit.LeftSideParameter.ActualName = "DoInit";
196      reactivateInit.RightSideParameter.Value = new BoolValue(true);
197
198      resetNextIndex.Successor = resetTargetIndex;
199      resetNextIndex.LeftSideParameter.ActualName = "NextIndex";
200      resetNextIndex.RightSideParameter.Value = new IntValue(1);
201
202      resetTargetIndex.Successor = clearMatingPool;
203      resetTargetIndex.LeftSideParameter.ActualName = "TargetIndex";
204      resetTargetIndex.RightSideParameter.Value = new IntValue(0);
205
206      clearMatingPool.Successor = createRandomIndividual;
207
208      tryMoveUp.Successor = incrementEvaluations;
209
210      incrementEvaluations.Increment = new IntValue(1);
211      incrementEvaluations.ValueParameter.ActualName = "EvaluatedSolutions";
212
213      incrIterations.ValueParameter.ActualName = "Iterations";
214      incrIterations.Increment = new IntValue(1);
215      incrIterations.Successor = layerAnalyzerProcessor;
216
217      layerAnalyzerProcessor.Operator = layerAnalyzer;
218      layerAnalyzerProcessor.Successor = analyzer;
219
220      layerAnalyzer.OperatorParameter.ActualName = "LayerAnalyzer";
221
222      analyzer.OperatorParameter.ActualName = "Analyzer";
223      analyzer.Successor = iterationsComparator;
224
225      iterationsComparator.Comparison = new Comparison(ComparisonType.GreaterOrEqual);
226      iterationsComparator.LeftSideParameter.ActualName = "Iterations";
227      iterationsComparator.RightSideParameter.ActualName = MaximumIterationsParameter.Name;
228      iterationsComparator.ResultParameter.ActualName = "Terminate";
229      iterationsComparator.Successor = terminateBranch;
230
231      terminateBranch.ConditionParameter.ActualName = "Terminate";
232      terminateBranch.FalseBranch = randomScopeProcessor;
233    }
234  }
235}
Note: See TracBrowser for help on using the repository browser.