1  #region License Information


2  /* HeuristicLab


3  * Copyright (C) 20022010 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 


22  using HeuristicLab.Core;


23  using HeuristicLab.Data;


24  using HeuristicLab.Encodings.RealVectorEncoding;


25  using HeuristicLab.Parameters;


26  using HeuristicLab.Persistence.Default.CompositeSerializers.Storable;


27 


28  namespace HeuristicLab.Problems.TestFunctions {


29  [Item("RastriginAdditiveMoveEvaluator", "Class for evaluating an additive move on the Rastrigin function.")]


30  [StorableClass]


31  public class RastriginAdditiveMoveEvaluator : AdditiveMoveEvaluator, IRastriginMoveEvaluator {


32  public override System.Type EvaluatorType {


33  get { return typeof(RastriginEvaluator); }


34  }


35  /// <summary>


36  /// The parameter A is a parameter of the objective function y = Sum((x_i)^2 + A * (1  Cos(2pi*x_i))). Default is A = 10.


37  /// </summary>


38  public ValueParameter<DoubleValue> AParameter {


39  get { return (ValueParameter<DoubleValue>)Parameters["A"]; }


40  }


41  /// <summary>


42  /// The parameter A is a parameter of the objective function y = Sum((x_i)^2 + A * (1  Cos(2pi*x_i))). Default is A = 10.


43  /// </summary>


44  public DoubleValue A {


45  get { return AParameter.Value; }


46  set { if (value != null) AParameter.Value = value; }


47  }


48 


49  public RastriginAdditiveMoveEvaluator() {


50  Parameters.Add(new ValueParameter<DoubleValue>("A", "The parameter A is a parameter of the objective function y = Sum((x_i)^2 + A * (1  Cos(2pi*x_i))). Default is A = 10.", new DoubleValue(10)));


51  }


52 


53  protected override double Evaluate(double quality, RealVector point, AdditiveMove move) {


54  RealVectorAdditiveMoveWrapper wrapper = new RealVectorAdditiveMoveWrapper(move, point);


55  return RastriginEvaluator.Apply(wrapper, A.Value);


56  }


57  }


58  }

