1  #region License Information


2  /* HeuristicLab


3  * Copyright (C) 20022011 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.Common;


23  using HeuristicLab.Core;


24  using HeuristicLab.Data;


25  using HeuristicLab.Encodings.PermutationEncoding;


26  using HeuristicLab.Operators;


27  using HeuristicLab.Parameters;


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


29 


30  namespace HeuristicLab.Problems.QuadraticAssignment {


31  [StorableClass]


32  public class QAPEvaluator : SingleSuccessorOperator, IQAPEvaluator {


33 


34  public ILookupParameter<Permutation> PermutationParameter {


35  get { return (ILookupParameter<Permutation>)Parameters["Permutation"]; }


36  }


37  public ILookupParameter<DoubleMatrix> DistanceMatrixParameter {


38  get { return (ILookupParameter<DoubleMatrix>)Parameters["DistanceMatrix"]; }


39  }


40  public ILookupParameter<DoubleMatrix> CoordinatesParameter {


41  get { return (ILookupParameter<DoubleMatrix>)Parameters["Coordinates"]; }


42  }


43  public ILookupParameter<DoubleMatrix> WeightsParameter {


44  get { return (ILookupParameter<DoubleMatrix>)Parameters["Weights"]; }


45  }


46  public ILookupParameter<DoubleValue> QualityParameter {


47  get { return (ILookupParameter<DoubleValue>)Parameters["Quality"]; }


48  }


49 


50  [StorableConstructor]


51  protected QAPEvaluator(bool deserializing) : base(deserializing) { }


52  protected QAPEvaluator(QAPEvaluator original, Cloner cloner) : base(original, cloner) { }


53  public QAPEvaluator() {


54  Parameters.Add(new LookupParameter<Permutation>("Permutation", "The permutation that represents the current solution."));


55  Parameters.Add(new LookupParameter<DoubleMatrix>("DistanceMatrix", "The distance matrix that contains the distances between the locations."));


56  Parameters.Add(new LookupParameter<DoubleMatrix>("Coordinates", "The coordinates in case the distance matrix should not be used."));


57  Parameters.Add(new LookupParameter<DoubleMatrix>("Weights", "The matrix with the weights between the facilities, that is how strongly they're connected to each other."));


58  Parameters.Add(new LookupParameter<DoubleValue>("Quality", "The quality value aka fitness value of the solution."));


59  }


60 


61  public override IDeepCloneable Clone(Cloner cloner) {


62  return new QAPEvaluator(this, cloner);


63  }


64 


65  public static double Apply(Permutation assignment, DoubleMatrix weights, DoubleMatrix distances) {


66  double quality = 0;


67  for (int i = 0; i < assignment.Length; i++) {


68  for (int j = 0; j < assignment.Length; j++) {


69  quality += weights[i, j] * distances[assignment[i], assignment[j]];


70  }


71  }


72  return quality;


73  }


74 


75  public override IOperation Apply() {


76  Permutation assignment = PermutationParameter.ActualValue;


77  DoubleMatrix weights = WeightsParameter.ActualValue;


78  DoubleMatrix distanceMatrix = DistanceMatrixParameter.ActualValue;


79 


80  double quality = Apply(assignment, weights, distanceMatrix);


81  QualityParameter.ActualValue = new DoubleValue(quality);


82 


83  return base.Apply();


84  }


85  }


86  }

