Changeset 6797

Timestamp:

09/19/11 14:30:17 (13 years ago)

Author:

svonolfe

Message:

Improved aspiration criterion for PDP moves (#1177)

Location:

branches/VRP/HeuristicLab.Problems.VehicleRouting/3.4/Encodings/Potvin/Moves/PickupDelivery

Files:

• PDExchange/PotvinPDExchangeMoveTabuCriterion.cs (modified) (2 diffs)
• PDRearrange/PotvinPDRearrangeMoveTabuCriterion.cs (modified) (2 diffs)
• PDShift/PotvinPDShiftMoveTabuCriterion.cs (modified) (2 diffs)

branches/VRP/HeuristicLab.Problems.VehicleRouting/3.4/Encodings/Potvin/Moves/PickupDelivery/PDExchange/PotvinPDExchangeMoveTabuCriterion.cs

@@ -28 +28 @@
 using HeuristicLab.Persistence.Default.CompositeSerializers.Storable;
 using HeuristicLab.Problems.VehicleRouting.Interfaces;
+using HeuristicLab.Problems.VehicleRouting.Variants;
 
 namespace HeuristicLab.Problems.VehicleRouting.Encodings.Potvin {
@@ -115 +116 @@
         PotvinPDRelocateMoveAttribute attribute = tabuMove as PotvinPDRelocateMoveAttribute;
 
-        if (!useAspiration || moveQuality >= attribute.MoveQuality) {
-          if ((attribute.City == move.City && attribute.Tour == move.Tour) || 
+        double distance = 0;
+        if (MoveDistanceParameter.ActualValue != null)
+          distance = MoveDistanceParameter.ActualValue.Value;
+
+        double overload = 0;
+        if (MoveOverloadParameter.ActualValue != null)
+          overload = MoveOverloadParameter.ActualValue.Value;
+
+        double tardiness = 0;
+        if (MoveTardinessParameter.ActualValue != null)
+          tardiness = MoveTardinessParameter.ActualValue.Value;
+
+        IVRPProblemInstance instance = ProblemInstanceParameter.ActualValue;
+        double quality = attribute.Distance * instance.DistanceFactor.Value;
+
+        IHomogenousCapacitatedProblemInstance cvrp = instance as IHomogenousCapacitatedProblemInstance;
+        if (cvrp != null)
+          quality += attribute.Overload * cvrp.OverloadPenalty.Value;
+
+        ITimeWindowedProblemInstance vrptw = instance as ITimeWindowedProblemInstance;
+        if (vrptw != null)
+          quality += attribute.Tardiness * vrptw.TardinessPenalty.Value;
+
+        if (!useAspiration || moveQuality >= quality) {
+          if ((attribute.City == move.City && attribute.Tour == move.Tour) ||
             (attribute.City == move.Replaced && attribute.Tour == move.OldTour)) {
             isTabu = true;
             break;
           }
-
-          double distance = 0;
-          if (MoveDistanceParameter.ActualValue != null)
-            distance = MoveDistanceParameter.ActualValue.Value;
-
-          double overload = 0;
-          if (MoveOverloadParameter.ActualValue != null)
-            overload = MoveOverloadParameter.ActualValue.Value;
-
-          double tardiness = 0;
-          if (MoveTardinessParameter.ActualValue != null)
-            tardiness = MoveTardinessParameter.ActualValue.Value;
 
           if (attribute.Distance == distance && attribute.Overload == overload && attribute.Tardiness == tardiness) {

branches/VRP/HeuristicLab.Problems.VehicleRouting/3.4/Encodings/Potvin/Moves/PickupDelivery/PDRearrange/PotvinPDRearrangeMoveTabuCriterion.cs

@@ -28 +28 @@
 using HeuristicLab.Persistence.Default.CompositeSerializers.Storable;
 using HeuristicLab.Problems.VehicleRouting.Interfaces;
+using HeuristicLab.Problems.VehicleRouting.Variants;
 
 namespace HeuristicLab.Problems.VehicleRouting.Encodings.Potvin {
@@ -115 +116 @@
         PotvinPDRelocateMoveAttribute attribute = tabuMove as PotvinPDRelocateMoveAttribute;
 
-        if (!useAspiration || moveQuality >= attribute.MoveQuality) {
+        double distance = 0;
+        if (MoveDistanceParameter.ActualValue != null)
+          distance = MoveDistanceParameter.ActualValue.Value;
+
+        double overload = 0;
+        if (MoveOverloadParameter.ActualValue != null)
+          overload = MoveOverloadParameter.ActualValue.Value;
+
+        double tardiness = 0;
+        if (MoveTardinessParameter.ActualValue != null)
+          tardiness = MoveTardinessParameter.ActualValue.Value;
+
+        IVRPProblemInstance instance = ProblemInstanceParameter.ActualValue;
+        double quality = attribute.Distance * instance.DistanceFactor.Value;
+
+        IHomogenousCapacitatedProblemInstance cvrp = instance as IHomogenousCapacitatedProblemInstance;
+        if (cvrp != null)
+          quality += attribute.Overload * cvrp.OverloadPenalty.Value;
+
+        ITimeWindowedProblemInstance vrptw = instance as ITimeWindowedProblemInstance;
+        if (vrptw != null)
+          quality += attribute.Tardiness * vrptw.TardinessPenalty.Value;
+
+        if (!useAspiration || moveQuality >= quality) {
           if (attribute.City == move.City && attribute.Tour == move.Tour) {
             isTabu = true;
             break;
           }
-
-          double distance = 0;
-          if (MoveDistanceParameter.ActualValue != null)
-            distance = MoveDistanceParameter.ActualValue.Value;
-
-          double overload = 0;
-          if (MoveOverloadParameter.ActualValue != null)
-            overload = MoveOverloadParameter.ActualValue.Value;
-
-          double tardiness = 0;
-          if (MoveTardinessParameter.ActualValue != null)
-            tardiness = MoveTardinessParameter.ActualValue.Value;
 
           if (attribute.Distance == distance && attribute.Overload == overload && attribute.Tardiness == tardiness) {

branches/VRP/HeuristicLab.Problems.VehicleRouting/3.4/Encodings/Potvin/Moves/PickupDelivery/PDShift/PotvinPDShiftMoveTabuCriterion.cs

@@ -28 +28 @@
 using HeuristicLab.Persistence.Default.CompositeSerializers.Storable;
 using HeuristicLab.Problems.VehicleRouting.Interfaces;
+using HeuristicLab.Problems.VehicleRouting.Variants;
 
 namespace HeuristicLab.Problems.VehicleRouting.Encodings.Potvin {
@@ -115 +116 @@
         PotvinPDRelocateMoveAttribute attribute = tabuMove as PotvinPDRelocateMoveAttribute;
 
-        if (!useAspiration || moveQuality >= attribute.MoveQuality) {
+        double distance = 0;
+        if (MoveDistanceParameter.ActualValue != null)
+          distance = MoveDistanceParameter.ActualValue.Value;
+
+        double overload = 0;
+        if (MoveOverloadParameter.ActualValue != null)
+          overload = MoveOverloadParameter.ActualValue.Value;
+
+        double tardiness = 0;
+        if (MoveTardinessParameter.ActualValue != null)
+          tardiness = MoveTardinessParameter.ActualValue.Value;
+
+        IVRPProblemInstance instance = ProblemInstanceParameter.ActualValue;
+        double quality = attribute.Distance * instance.DistanceFactor.Value;
+
+        IHomogenousCapacitatedProblemInstance cvrp = instance as IHomogenousCapacitatedProblemInstance;
+        if (cvrp != null)
+          quality += attribute.Overload * cvrp.OverloadPenalty.Value;
+
+        ITimeWindowedProblemInstance vrptw = instance as ITimeWindowedProblemInstance;
+        if (vrptw != null)
+          quality += attribute.Tardiness * vrptw.TardinessPenalty.Value;
+
+        if (!useAspiration || moveQuality >= quality) {
           if (attribute.City == move.City && attribute.Tour == move.Tour) {
             isTabu = true;
             break;
           }
-
-          double distance = 0;
-          if (MoveDistanceParameter.ActualValue != null)
-            distance = MoveDistanceParameter.ActualValue.Value;
-
-          double overload = 0;
-          if (MoveOverloadParameter.ActualValue != null)
-            overload = MoveOverloadParameter.ActualValue.Value;
-
-          double tardiness = 0;
-          if (MoveTardinessParameter.ActualValue != null)
-            tardiness = MoveTardinessParameter.ActualValue.Value;
 
           if (attribute.Distance == distance && attribute.Overload == overload && attribute.Tardiness == tardiness) {