Changeset 4377 for branches/VRP/HeuristicLab.Problems.VehicleRouting/3.4/ProblemInstances/SingleDepotVRP

Timestamp:

09/10/10 11:26:30 (14 years ago)

Author:

svonolfe

Message:

Fixed performance issue in Evaluator (#1177)

Location:

branches/VRP/HeuristicLab.Problems.VehicleRouting/3.4/ProblemInstances/SingleDepotVRP/CVRP

Files:

• CVRPEvaluator.cs (modified) (1 diff)
• CVRPTW/CVRPTWEvaluator.cs (modified) (3 diffs)

branches/VRP/HeuristicLab.Problems.VehicleRouting/3.4/ProblemInstances/SingleDepotVRP/CVRP/CVRPEvaluator.cs

@@ -47 +47 @@
 
     protected override void EvaluateTour(VRPEvaluation eval, IVRPProblemInstance instance, Tour tour) {
-      base.EvaluateTour(eval, instance, tour);
-
       IHomogenousCapacitatedProblemInstance cvrpInstance = instance as IHomogenousCapacitatedProblemInstance;
+      DoubleArray demand = instance.Demand;
 
       double delivered = 0.0;
       double overweight = 0.0;
+      double distance = 0.0;
 
-      for (int i = 0; i < tour.Stops.Count; i++) {
-        delivered += instance.Demand[tour.Stops[i]];
+      //simulate a tour, start and end at depot
+      for (int i = 0; i <= tour.Stops.Count; i++) {
+        int start = 0;
+        if (i > 0)
+          start = tour.Stops[i - 1];
+        int end = 0;
+        if (i < tour.Stops.Count)
+          end = tour.Stops[i];
+
+        //drive there
+        double currentDistace = instance.GetDistance(start, end);
+        distance += currentDistace;
+
+        delivered += demand[end];
       }
+
+      eval.Quality += instance.FleetUsageFactor.Value;
+      eval.Quality += instance.DistanceFactor.Value * distance;
+
+      eval.Distance = distance;
+      eval.VehicleUtilization = 1;
 
       double capacity = cvrpInstance.Capacity.Value;

branches/VRP/HeuristicLab.Problems.VehicleRouting/3.4/ProblemInstances/SingleDepotVRP/CVRP/CVRPTW/CVRPTWEvaluator.cs

@@ -51 +51 @@
 
     protected override void EvaluateTour(VRPEvaluation eval, IVRPProblemInstance instance, Tour tour) {
-      base.EvaluateTour(eval, instance, tour);
+      IHomogenousCapacitatedProblemInstance cvrpInstance = instance as IHomogenousCapacitatedProblemInstance;
+      DoubleArray demand = instance.Demand;
 
       ITimeWindowedProblemInstance vrptw = instance as ITimeWindowedProblemInstance;
+      DoubleArray dueTime = vrptw.DueTime;
+      DoubleArray readyTime = vrptw.ReadyTime;
+      DoubleArray serviceTimes = vrptw.ServiceTime;
 
       double time = 0.0;
@@ -59 +63 @@
       double serviceTime = 0.0;
       double tardiness = 0.0;
+      double delivered = 0.0;
+      double overweight = 0.0;
+      double distance = 0.0;
 
       //simulate a tour, start and end at depot
@@ -72 +79 @@
         double currentDistace = vrptw.GetDistance(start, end);
         time += currentDistace;
+        distance += currentDistace;
 
         //check if it was serviced on time
-        if (time > vrptw.DueTime[end])
-          tardiness += time - vrptw.DueTime[end];
+        if (time > dueTime[end])
+          tardiness += time - dueTime[end];
 
         //wait
         double currentWaitingTime = 0.0;
-        if (time < vrptw.ReadyTime[end])
-          currentWaitingTime = vrptw.ReadyTime[end] - time;
+        if (time < readyTime[end])
+          currentWaitingTime = readyTime[end] - time;
         waitingTime += currentWaitingTime;
         time += currentWaitingTime;
 
         //service
-        double currentServiceTime = vrptw.ServiceTime[end];
+        double currentServiceTime = serviceTimes[end];
         serviceTime += currentServiceTime;
         time += currentServiceTime;
+        delivered += demand[end];
       }
+
+      eval.Quality += instance.FleetUsageFactor.Value;
+      eval.Quality += instance.DistanceFactor.Value * distance;
+      eval.Distance = distance;
+      eval.VehicleUtilization = 1;
+
+      double capacity = cvrpInstance.Capacity.Value;
+      if (delivered > capacity) {
+        overweight = delivered - capacity;
+      }
+
+      (eval as CVRPEvaluation).Overload = overweight;
+      double penalty = overweight * cvrpInstance.OverloadPenalty.Value;
+      eval.Penalty += penalty;
+      eval.Quality += penalty;
 
       (eval as CVRPTWEvaluation).Tardiness = tardiness;
       (eval as CVRPTWEvaluation).TravelTime = time;
 
-      double penalty = tardiness * vrptw.TardinessPenalty.Value;
+      penalty = tardiness * vrptw.TardinessPenalty.Value;
       eval.Penalty += penalty;
       eval.Quality += penalty;