Free cookie consent management tool by TermsFeed Policy Generator

source: trunk/sources/HeuristicLab.Problems.TestFunctions/3.3/SingleObjectiveTestFunctionProblem.cs @ 3661

Last change on this file since 3661 was 3661, checked in by abeham, 14 years ago

#999

  • prepared TF visualization
  • removed obsolete TF solution analyzers
File size: 17.4 KB
Line 
1#region License Information
2/* HeuristicLab
3 * Copyright (C) 2002-2010 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;
23using System.Collections.Generic;
24using System.Collections.ObjectModel;
25using System.Drawing;
26using System.Linq;
27using HeuristicLab.Common;
28using HeuristicLab.Core;
29using HeuristicLab.Data;
30using HeuristicLab.Encodings.RealVectorEncoding;
31using HeuristicLab.Optimization;
32using HeuristicLab.Parameters;
33using HeuristicLab.Persistence.Default.CompositeSerializers.Storable;
34using HeuristicLab.PluginInfrastructure;
35using HeuristicLab.Problems.TestFunctions.Analyzers;
36
37namespace HeuristicLab.Problems.TestFunctions {
38  [Item("Single Objective Test Function", "Test function with real valued inputs and a single objective.")]
39  [StorableClass]
40  [Creatable("Problems")]
41  public sealed class SingleObjectiveTestFunctionProblem : ParameterizedNamedItem, ISingleObjectiveProblem {
42    [Storable]
43    private StdDevStrategyVectorCreator strategyVectorCreator;
44    [Storable]
45    private StdDevStrategyVectorCrossover strategyVectorCrossover;
46    [Storable]
47    private StdDevStrategyVectorManipulator strategyVectorManipulator;
48
49    public override Image ItemImage {
50      get { return HeuristicLab.Common.Resources.VS2008ImageLibrary.Type; }
51    }
52
53    #region Parameter Properties
54    public ValueParameter<BoolValue> MaximizationParameter {
55      get { return (ValueParameter<BoolValue>)Parameters["Maximization"]; }
56    }
57    IParameter ISingleObjectiveProblem.MaximizationParameter {
58      get { return MaximizationParameter; }
59    }
60    public ValueParameter<DoubleMatrix> BoundsParameter {
61      get { return (ValueParameter<DoubleMatrix>)Parameters["Bounds"]; }
62    }
63    public ValueParameter<IntValue> ProblemSizeParameter {
64      get { return (ValueParameter<IntValue>)Parameters["ProblemSize"]; }
65    }
66    public ValueParameter<IRealVectorCreator> SolutionCreatorParameter {
67      get { return (ValueParameter<IRealVectorCreator>)Parameters["SolutionCreator"]; }
68    }
69    IParameter IProblem.SolutionCreatorParameter {
70      get { return SolutionCreatorParameter; }
71    }
72    public ValueParameter<ISingleObjectiveTestFunctionProblemEvaluator> EvaluatorParameter {
73      get { return (ValueParameter<ISingleObjectiveTestFunctionProblemEvaluator>)Parameters["Evaluator"]; }
74    }
75    IParameter IProblem.EvaluatorParameter {
76      get { return EvaluatorParameter; }
77    }
78    public OptionalValueParameter<DoubleValue> BestKnownQualityParameter {
79      get { return (OptionalValueParameter<DoubleValue>)Parameters["BestKnownQuality"]; }
80    }
81    IParameter ISingleObjectiveProblem.BestKnownQualityParameter {
82      get { return BestKnownQualityParameter; }
83    }
84    #endregion
85
86    #region Properties
87    public BoolValue Maximization {
88      get { return MaximizationParameter.Value; }
89      set { MaximizationParameter.Value = value; }
90    }
91    public DoubleMatrix Bounds {
92      get { return BoundsParameter.Value; }
93      set { BoundsParameter.Value = value; }
94    }
95    public IntValue ProblemSize {
96      get { return ProblemSizeParameter.Value; }
97      set { ProblemSizeParameter.Value = value; }
98    }
99    public IRealVectorCreator SolutionCreator {
100      get { return SolutionCreatorParameter.Value; }
101      set { SolutionCreatorParameter.Value = value; }
102    }
103    ISolutionCreator IProblem.SolutionCreator {
104      get { return SolutionCreatorParameter.Value; }
105    }
106    public ISingleObjectiveTestFunctionProblemEvaluator Evaluator {
107      get { return EvaluatorParameter.Value; }
108      set { EvaluatorParameter.Value = value; }
109    }
110    ISingleObjectiveEvaluator ISingleObjectiveProblem.Evaluator {
111      get { return EvaluatorParameter.Value; }
112    }
113    IEvaluator IProblem.Evaluator {
114      get { return EvaluatorParameter.Value; }
115    }
116    public DoubleValue BestKnownQuality {
117      get { return BestKnownQualityParameter.Value; }
118      set { BestKnownQualityParameter.Value = value; }
119    }
120    private List<IOperator> operators;
121    public IEnumerable<IOperator> Operators {
122      get { return operators; }
123    }
124    private IEnumerable<IBestSingleObjectiveTestFunctionSolutionAnalyzer> BestSingleObjectiveTestFunctionSolutionAnalyzers {
125      get { return operators.OfType<IBestSingleObjectiveTestFunctionSolutionAnalyzer>(); }
126    }
127    #endregion
128
129    [StorableConstructor]
130    private SingleObjectiveTestFunctionProblem(bool deserializing) : base() { }
131    public SingleObjectiveTestFunctionProblem()
132      : base() {
133      UniformRandomRealVectorCreator creator = new UniformRandomRealVectorCreator();
134      AckleyEvaluator evaluator = new AckleyEvaluator();
135
136      Parameters.Add(new ValueParameter<BoolValue>("Maximization", "Set to false as most test functions are minimization problems.", new BoolValue(evaluator.Maximization)));
137      Parameters.Add(new ValueParameter<DoubleMatrix>("Bounds", "The lower and upper bounds in each dimension.", evaluator.Bounds));
138      Parameters.Add(new ValueParameter<IntValue>("ProblemSize", "The dimension of the problem.", new IntValue(2)));
139      Parameters.Add(new ValueParameter<IRealVectorCreator>("SolutionCreator", "The operator which should be used to create new TSP solutions.", creator));
140      Parameters.Add(new ValueParameter<ISingleObjectiveTestFunctionProblemEvaluator>("Evaluator", "The operator which should be used to evaluate TSP solutions.", evaluator));
141      Parameters.Add(new OptionalValueParameter<DoubleValue>("BestKnownQuality", "The quality of the best known solution of this TSP instance.", new DoubleValue(evaluator.BestKnownQuality)));
142
143      strategyVectorCreator = new StdDevStrategyVectorCreator();
144      strategyVectorCreator.LengthParameter.ActualName = ProblemSizeParameter.Name;
145      strategyVectorCrossover = new StdDevStrategyVectorCrossover();
146      strategyVectorManipulator = new StdDevStrategyVectorManipulator();
147      strategyVectorManipulator.LearningRateParameter.Value = new DoubleValue(0.5);
148      strategyVectorManipulator.GeneralLearningRateParameter.Value = new DoubleValue(0.5);
149
150      creator.RealVectorParameter.ActualName = "Point";
151      ParameterizeSolutionCreator();
152      ParameterizeEvaluator();
153
154      Initialize();
155    }
156
157    public override IDeepCloneable Clone(Cloner cloner) {
158      SingleObjectiveTestFunctionProblem clone = (SingleObjectiveTestFunctionProblem)base.Clone(cloner);
159      clone.Initialize();
160      return clone;
161    }
162
163    #region Events
164    public event EventHandler SolutionCreatorChanged;
165    private void OnSolutionCreatorChanged() {
166      if (SolutionCreatorChanged != null)
167        SolutionCreatorChanged(this, EventArgs.Empty);
168    }
169    public event EventHandler EvaluatorChanged;
170    private void OnEvaluatorChanged() {
171      if (EvaluatorChanged != null)
172        EvaluatorChanged(this, EventArgs.Empty);
173    }
174    public event EventHandler OperatorsChanged;
175    private void OnOperatorsChanged() {
176      if (OperatorsChanged != null)
177        OperatorsChanged(this, EventArgs.Empty);
178    }
179    private void ProblemSizeParameter_ValueChanged(object sender, EventArgs e) {
180      ProblemSize.ValueChanged += new EventHandler(ProblemSize_ValueChanged);
181      ProblemSize_ValueChanged(null, EventArgs.Empty);
182    }
183    private void ProblemSize_ValueChanged(object sender, EventArgs e) {
184      if (ProblemSize.Value < 1) ProblemSize.Value = 1;
185      ParameterizeSolutionCreator();
186      strategyVectorManipulator.GeneralLearningRateParameter.Value = new DoubleValue(1.0 / Math.Sqrt(2 * ProblemSize.Value));
187      strategyVectorManipulator.LearningRateParameter.Value = new DoubleValue(1.0 / Math.Sqrt(2 * Math.Sqrt(ProblemSize.Value)));
188    }
189    private void SolutionCreatorParameter_ValueChanged(object sender, EventArgs e) {
190      ParameterizeSolutionCreator();
191      ParameterizeAnalyzers();
192      SolutionCreator_RealVectorParameter_ActualNameChanged(null, EventArgs.Empty);
193    }
194    private void SolutionCreator_RealVectorParameter_ActualNameChanged(object sender, EventArgs e) {
195      ParameterizeEvaluator();
196      ParameterizeOperators();
197      ParameterizeAnalyzers();
198    }
199    private void EvaluatorParameter_ValueChanged(object sender, EventArgs e) {
200      ParameterizeEvaluator();
201      UpdateMoveEvaluators();
202      ParameterizeAnalyzers();
203      Maximization.Value = Evaluator.Maximization;
204      BoundsParameter.Value = Evaluator.Bounds;
205      if (ProblemSize.Value < Evaluator.MinimumProblemSize)
206        ProblemSize.Value = Evaluator.MinimumProblemSize;
207      else if (ProblemSize.Value > Evaluator.MaximumProblemSize)
208        ProblemSize.Value = Evaluator.MaximumProblemSize;
209      BestKnownQuality = new DoubleValue(Evaluator.BestKnownQuality);
210      Evaluator_QualityParameter_ActualNameChanged(null, EventArgs.Empty);
211    }
212    private void Evaluator_QualityParameter_ActualNameChanged(object sender, EventArgs e) {
213      ParameterizeOperators();
214    }
215    private void BoundsParameter_ValueChanged(object sender, EventArgs e) {
216      Bounds.ToStringChanged += new EventHandler(Bounds_ToStringChanged);
217      Bounds_ToStringChanged(null, EventArgs.Empty);
218    }
219    private void Bounds_ToStringChanged(object sender, EventArgs e) {
220      if (Bounds.Columns != 2 || Bounds.Rows < 1)
221        Bounds = new DoubleMatrix(1, 2);
222    }
223    private void Bounds_ItemChanged(object sender, EventArgs<int, int> e) {
224      if (e.Value2 == 0 && Bounds[e.Value, 1] <= Bounds[e.Value, 0])
225        Bounds[e.Value, 1] = Bounds[e.Value, 0] + 0.1;
226      if (e.Value2 == 1 && Bounds[e.Value, 0] >= Bounds[e.Value, 1])
227        Bounds[e.Value, 0] = Bounds[e.Value, 1] - 0.1;
228    }
229    private void MoveGenerator_AdditiveMoveParameter_ActualNameChanged(object sender, EventArgs e) {
230      string name = ((ILookupParameter<AdditiveMove>)sender).ActualName;
231      foreach (IAdditiveRealVectorMoveOperator op in Operators.OfType<IAdditiveRealVectorMoveOperator>()) {
232        op.AdditiveMoveParameter.ActualName = name;
233      }
234    }
235    private void SphereEvaluator_Parameter_ValueChanged(object sender, EventArgs e) {
236      SphereEvaluator eval = (Evaluator as SphereEvaluator);
237      if (eval != null) {
238        foreach (ISphereMoveEvaluator op in Operators.OfType<ISphereMoveEvaluator>()) {
239          op.C = eval.C;
240          op.Alpha = eval.Alpha;
241        }
242      }
243    }
244    private void RastriginEvaluator_Parameter_ValueChanged(object sender, EventArgs e) {
245      RastriginEvaluator eval = (Evaluator as RastriginEvaluator);
246      if (eval != null) {
247        foreach (IRastriginMoveEvaluator op in Operators.OfType<IRastriginMoveEvaluator>()) {
248          op.A = eval.A;
249        }
250      }
251    }
252    private void strategyVectorCreator_BoundsParameter_ValueChanged(object sender, EventArgs e) {
253      strategyVectorManipulator.BoundsParameter.Value = strategyVectorCreator.BoundsParameter.Value;
254    }
255    private void strategyVectorCreator_StrategyParameterParameter_ActualNameChanged(object sender, EventArgs e) {
256      string name = strategyVectorCreator.StrategyParameterParameter.ActualName;
257      strategyVectorCrossover.ParentsParameter.ActualName = name;
258      strategyVectorCrossover.StrategyParameterParameter.ActualName = name;
259      strategyVectorManipulator.StrategyParameterParameter.ActualName = name;
260    }
261    #endregion
262
263    #region Helpers
264    [StorableHook(HookType.AfterDeserialization)]
265    private void Initialize() {
266      InitializeOperators();
267      ProblemSizeParameter.ValueChanged += new EventHandler(ProblemSizeParameter_ValueChanged);
268      ProblemSize.ValueChanged += new EventHandler(ProblemSize_ValueChanged);
269      BoundsParameter.ValueChanged += new EventHandler(BoundsParameter_ValueChanged);
270      Bounds.ToStringChanged += new EventHandler(Bounds_ToStringChanged);
271      Bounds.ItemChanged += new EventHandler<EventArgs<int, int>>(Bounds_ItemChanged);
272      SolutionCreatorParameter.ValueChanged += new EventHandler(SolutionCreatorParameter_ValueChanged);
273      SolutionCreator.RealVectorParameter.ActualNameChanged += new EventHandler(SolutionCreator_RealVectorParameter_ActualNameChanged);
274      EvaluatorParameter.ValueChanged += new EventHandler(EvaluatorParameter_ValueChanged);
275      Evaluator.QualityParameter.ActualNameChanged += new EventHandler(Evaluator_QualityParameter_ActualNameChanged);
276      strategyVectorCreator.BoundsParameter.ValueChanged += new EventHandler(strategyVectorCreator_BoundsParameter_ValueChanged);
277      strategyVectorCreator.StrategyParameterParameter.ActualNameChanged += new EventHandler(strategyVectorCreator_StrategyParameterParameter_ActualNameChanged);
278    }
279    private void ParameterizeAnalyzers() {
280      foreach (IBestSingleObjectiveTestFunctionSolutionAnalyzer analyzer in BestSingleObjectiveTestFunctionSolutionAnalyzers) {
281        analyzer.RealVectorParameter.ActualName = SolutionCreator.RealVectorParameter.ActualName;
282        analyzer.ResultsParameter.ActualName = "Results";
283      }
284    }
285    private void InitializeOperators() {
286      operators = new List<IOperator>();
287      operators.Add(new BestSingleObjectiveTestFunctionSolutionAnalyzer());
288      ParameterizeAnalyzers();
289      operators.AddRange(ApplicationManager.Manager.GetInstances<IRealVectorOperator>().Cast<IOperator>());
290      operators.Add(strategyVectorCreator);
291      operators.Add(strategyVectorCrossover);
292      operators.Add(strategyVectorManipulator);
293      UpdateMoveEvaluators();
294      ParameterizeOperators();
295      InitializeMoveGenerators();
296    }
297    private void InitializeMoveGenerators() {
298      foreach (IAdditiveRealVectorMoveOperator op in Operators.OfType<IAdditiveRealVectorMoveOperator>()) {
299        if (op is IMoveGenerator) {
300          op.AdditiveMoveParameter.ActualNameChanged += new EventHandler(MoveGenerator_AdditiveMoveParameter_ActualNameChanged);
301        }
302      }
303    }
304    private void UpdateMoveEvaluators() {
305      foreach (ISingleObjectiveTestFunctionMoveEvaluator op in Operators.OfType<ISingleObjectiveTestFunctionMoveEvaluator>().ToList())
306        operators.Remove(op);
307      foreach (ISingleObjectiveTestFunctionMoveEvaluator op in ApplicationManager.Manager.GetInstances<ISingleObjectiveTestFunctionMoveEvaluator>())
308        if (op.EvaluatorType == Evaluator.GetType()) {
309          operators.Add(op);
310          #region Synchronize evaluator specific parameters with the parameters of the corresponding move evaluators
311          if (op is ISphereMoveEvaluator) {
312            SphereEvaluator e = (Evaluator as SphereEvaluator);
313            e.AlphaParameter.ValueChanged += new EventHandler(SphereEvaluator_Parameter_ValueChanged);
314            e.CParameter.ValueChanged += new EventHandler(SphereEvaluator_Parameter_ValueChanged);
315            ISphereMoveEvaluator em = (op as ISphereMoveEvaluator);
316            em.C = e.C;
317            em.Alpha = e.Alpha;
318          } else if (op is IRastriginMoveEvaluator) {
319            RastriginEvaluator e = (Evaluator as RastriginEvaluator);
320            e.AParameter.ValueChanged += new EventHandler(RastriginEvaluator_Parameter_ValueChanged);
321            IRastriginMoveEvaluator em = (op as IRastriginMoveEvaluator);
322            em.A = e.A;
323          }
324          #endregion
325        }
326      ParameterizeOperators();
327      OnOperatorsChanged();
328    }
329    private void ParameterizeSolutionCreator() {
330      SolutionCreator.LengthParameter.Value = new IntValue(ProblemSize.Value);
331    }
332    private void ParameterizeEvaluator() {
333      Evaluator.PointParameter.ActualName = SolutionCreator.RealVectorParameter.ActualName;
334    }
335    private void ParameterizeOperators() {
336      foreach (IRealVectorCrossover op in Operators.OfType<IRealVectorCrossover>()) {
337        op.ParentsParameter.ActualName = SolutionCreator.RealVectorParameter.ActualName;
338        op.ChildParameter.ActualName = SolutionCreator.RealVectorParameter.ActualName;
339        op.BoundsParameter.ActualName = BoundsParameter.Name;
340      }
341      foreach (IRealVectorManipulator op in Operators.OfType<IRealVectorManipulator>()) {
342        op.RealVectorParameter.ActualName = SolutionCreator.RealVectorParameter.ActualName;
343        op.BoundsParameter.ActualName = BoundsParameter.Name;
344      }
345      foreach (IRealVectorMoveOperator op in Operators.OfType<IRealVectorMoveOperator>()) {
346        op.RealVectorParameter.ActualName = SolutionCreator.RealVectorParameter.ActualName;
347      }
348      foreach (IRealVectorMoveGenerator op in Operators.OfType<IRealVectorMoveGenerator>()) {
349        op.BoundsParameter.ActualName = BoundsParameter.Name;
350      }
351      foreach (ISingleObjectiveTestFunctionAdditiveMoveEvaluator op in Operators.OfType<ISingleObjectiveTestFunctionAdditiveMoveEvaluator>()) {
352        op.QualityParameter.ActualName = Evaluator.QualityParameter.ActualName;
353        op.RealVectorParameter.ActualName = SolutionCreator.RealVectorParameter.ActualName;
354      }
355    }
356    #endregion
357  }
358}
Note: See TracBrowser for help on using the repository browser.