#region License Information
/* HeuristicLab
* Copyright (C) 2002-2015 Joseph Helm and Heuristic and Evolutionary Algorithms Laboratory (HEAL)
*
* This file is part of HeuristicLab.
*
* HeuristicLab is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* HeuristicLab is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with HeuristicLab. If not, see .
*/
#endregion
using HeuristicLab.Common;
using HeuristicLab.Core;
using HeuristicLab.Data;
using HeuristicLab.Encodings.PermutationEncoding;
using HeuristicLab.Operators;
using HeuristicLab.Optimization;
using HeuristicLab.Parameters;
using HeuristicLab.Persistence.Default.CompositeSerializers.Storable;
using HeuristicLab.Problems.BinPacking;
namespace HeuristicLab.Encodings.PackingEncoding.PackingSequence {
[Item("SequenceMoveSoftTabuCriterion", "")]
[StorableClass]
public class SequenceMoveSoftTabuCriterion : SingleSuccessorOperator, IPackingSequenceMoveOperator, ITabuChecker {
public override bool CanChangeName {
get { return false; }
}
public ILookupParameter> PackingMoveParameter {
get { return (ILookupParameter>)Parameters["PackingMove"]; }
}
public ILookupParameter PackingSequenceParameter {
get { return (ILookupParameter)Parameters["PackingSequence"]; }
}
public ILookupParameter> TabuListParameter {
get { return (ILookupParameter>)Parameters["TabuList"]; }
}
public ILookupParameter MoveTabuParameter {
get { return (ILookupParameter)Parameters["MoveTabu"]; }
}
public IValueLookupParameter MaximizationParameter {
get { return (IValueLookupParameter)Parameters["Maximization"]; }
}
public ILookupParameter MoveQualityParameter {
get { return (ILookupParameter)Parameters["MoveQuality"]; }
}
public ValueParameter UseAspirationCriterionParameter {
get { return (ValueParameter)Parameters["UseAspirationCriterion"]; }
}
[StorableConstructor]
protected SequenceMoveSoftTabuCriterion(bool deserializing) : base(deserializing) { }
protected SequenceMoveSoftTabuCriterion(SequenceMoveSoftTabuCriterion original, Cloner cloner) : base(original, cloner) { }
public SequenceMoveSoftTabuCriterion()
: base() {
Parameters.Add(new LookupParameter>("PackingMove", "The move to evaluate."));
Parameters.Add(new LookupParameter("PackingSequence", "The solution to evaluate."));
Parameters.Add(new LookupParameter("MoveTabu", "The variable to store if a move was tabu."));
Parameters.Add(new LookupParameter>("TabuList", "The tabu list."));
Parameters.Add(new ValueLookupParameter("Maximization", "True if the problem is a maximization problem, else if it is a minimization problem."));
Parameters.Add(new LookupParameter("MoveQuality", "The quality of the current move."));
Parameters.Add(new ValueParameter("UseAspirationCriterion", "Whether to use the aspiration criterion or not.", new BoolValue(true)));
}
public override IDeepCloneable Clone(Cloner cloner) {
return new SequenceMoveSoftTabuCriterion(this, cloner);
}
public override IOperation Apply() {
ItemList tabuList = TabuListParameter.ActualValue;
SequenceMove move = PackingMoveParameter.ActualValue as SequenceMove;
double moveQuality = MoveQualityParameter.ActualValue.Value;
bool maximization = MaximizationParameter.ActualValue.Value;
bool useAspiration = UseAspirationCriterionParameter.Value.Value;
bool isTabu = IsMoveTabu(tabuList, move, moveQuality, maximization, useAspiration);
MoveTabuParameter.ActualValue = new BoolValue(isTabu);
return base.Apply();
}
private bool IsMoveTabu(ItemList tabuList, SequenceMove move, double moveQuality, bool maximization, bool useAspiration) {
bool isTabu = false;
var attributes = tabuList.FindAll(ta => ta.GetType() == move.GetMoveAttributeType());
foreach (IItem attr in attributes) {
SequenceMoveAttribute gvAttr = attr as SequenceMoveAttribute;
if (gvAttr != null
&& (!useAspiration
|| maximization && moveQuality <= gvAttr.MoveQuality
|| !maximization && moveQuality >= gvAttr.MoveQuality)) {
isTabu = move.BelongsToAttribute(gvAttr, false); // only difference to hard tabu criterion
}
if (isTabu) break;
}
return isTabu;
}
}
}