Changeset 4377 for branches/VRP/HeuristicLab.Problems.VehicleRouting

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

Files:

• SingleDepotVRP/CVRP/CVRPEvaluator.cs (modified) (1 diff)
• SingleDepotVRP/CVRP/CVRPTW/CVRPTWEvaluator.cs (modified) (3 diffs)
• VRPProblemInstance.cs (modified) (4 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;

branches/VRP/HeuristicLab.Problems.VehicleRouting/3.4/ProblemInstances/VRPProblemInstance.cs

@@ -56 +56 @@
       get { return (ValueParameter<DoubleMatrix>)Parameters["Coordinates"]; }
     }
-    protected OptionalValueParameter<DoubleMatrix> DistanceMatrixParameter {
-      get { return (OptionalValueParameter<DoubleMatrix>)Parameters["DistanceMatrix"]; }
-    }
     protected ValueParameter<BoolValue> UseDistanceMatrixParameter {
       get { return (ValueParameter<BoolValue>)Parameters["UseDistanceMatrix"]; }
@@ -80 +77 @@
       set { CoordinatesParameter.Value = value; }
     }
-    public DoubleMatrix DistanceMatrix {
-      get { return DistanceMatrixParameter.Value; }
-      set { DistanceMatrixParameter.Value = value; }
-    }
+    
+    [Storable]
+    public DoubleMatrix DistanceMatrix { get; set; }
+    
     public BoolValue UseDistanceMatrix {
       get { return UseDistanceMatrixParameter.Value; }
@@ -138 +135 @@
       double distance = 0.0;
 
-      if (UseDistanceMatrix.Value) {
-        if (DistanceMatrixParameter.Value != null) {
-          distance = DistanceMatrixParameter.Value[start, end];
-        } else {
-          if (DistanceMatrixParameter.ActualValue == null) {
-            DistanceMatrixParameter.ActualValue = CreateDistanceMatrix();
-          }
-
-          distance = DistanceMatrix[start, end];
-        }
-      } else {
+      if (DistanceMatrix == null && UseDistanceMatrix.Value) 
+        DistanceMatrix = CreateDistanceMatrix();
+      
+      if(DistanceMatrix != null)
+        distance = DistanceMatrix[start, end];
+      else 
         distance = CalculateDistance(start, end);
-      } 
 
       return distance;
@@ -180 +171 @@
       : base() {
       Parameters.Add(new ValueParameter<DoubleMatrix>("Coordinates", "The x- and y-Coordinates of the cities.", new DoubleMatrix()));
-      Parameters.Add(new OptionalValueParameter<DoubleMatrix>("DistanceMatrix", "The matrix which contains the distances between the cities."));
       Parameters.Add(new ValueParameter<BoolValue>("UseDistanceMatrix", "True if a distance matrix should be calculated and used for evaluation, otherwise false.", new BoolValue(true)));
       Parameters.Add(new ValueParameter<IntValue>("Vehicles", "The number of vehicles.", new IntValue(0)));