Changeset 5202 for branches/VRP/HeuristicLab.Problems.VehicleRouting/3.4/Analyzer/BestSolution

Timestamp:

01/03/11 16:19:17 (14 years ago)

Author:

svonolfe

Message:

Added usage of the TS memory in the customer relocation move (#1177)

File:

• branches/VRP/HeuristicLab.Problems.VehicleRouting/3.4/Analyzer/BestSolution/BestVRPSolutionAnalyzer.cs (modified) (3 diffs)

branches/VRP/HeuristicLab.Problems.VehicleRouting/3.4/Analyzer/BestSolution/BestVRPSolutionAnalyzer.cs

@@ -58 +58 @@
       get { return (LookupParameter<VRPSolution>)Parameters["BestSolution"]; }
     }
+    public LookupParameter<VRPSolution> BestValidSolutionParameter {
+      get { return (LookupParameter<VRPSolution>)Parameters["BestValidSolution"]; }
+    }
     public ValueLookupParameter<ResultCollection> ResultsParameter {
       get { return (ValueLookupParameter<ResultCollection>)Parameters["Results"]; }
@@ -84 +87 @@
         Parameters.Add(new ScopeTreeLookupParameter<DoubleValue>("VehiclesUtilized", "The utilized vehicles of the VRP solutions which should be analyzed."));
 
-        Parameters.Add(new LookupParameter<VRPSolution>("BestSolution", "The best TSP solution."));
+        Parameters.Add(new LookupParameter<VRPSolution>("BestSolution", "The best VRP solution."));
+        Parameters.Add(new LookupParameter<VRPSolution>("BestValidSolution", "The best valid VRP solution."));
         Parameters.Add(new ValueLookupParameter<ResultCollection>("Results", "The result collection where the best VRP solution should be stored."));
     }
@@ -140 +144 @@
       }
 
+      VRPSolution validSolution = BestValidSolutionParameter.ActualValue;
+      if (validSolution == null) {
+        if (ProblemInstanceParameter.ActualValue.Feasible(best)) {
+          validSolution = new VRPSolution(problemInstance, best.Clone() as IVRPEncoding, new DoubleValue(qualities[i].Value));
+          BestValidSolutionParameter.ActualValue = validSolution;
+          results.Add(new Result("Best valid VRP Solution", validSolution));
+        }
+      } else {
+        if (qualities[i].Value <= validSolution.Quality.Value) {
+          if (ProblemInstanceParameter.ActualValue.Feasible(best)) {
+            validSolution.ProblemInstance = problemInstance;
+            validSolution.Solution = best.Clone() as IVRPEncoding;
+            validSolution.Quality.Value = qualities[i].Value;
+          }
+        }
+      }
+
       if (bestKnownQuality == null ||
           qualities[i].Value < bestKnownQuality.Value) {