Changeset 8714

Timestamp:

10/02/12 09:27:40 (12 years ago)

Author:

svonolfe

Message:

Added support for dynamic dial a ride

Location:

branches/DynamicVehicleRouting/HeuristicLab.PDPSimulation/3.3

Files:

• HeuristicLab.PDPSimulation-3.3.csproj (modified) (1 diff)
• Operators/DialARideEvaluator.cs (added)
• Operators/DynPDPProblemInstance.cs (modified) (1 diff)
• PickupDeliveryAnalyzer.cs (modified) (5 diffs)
• PickupDeliveryScenario.cs (modified) (2 diffs)

branches/DynamicVehicleRouting/HeuristicLab.PDPSimulation/3.3/HeuristicLab.PDPSimulation-3.3.csproj

@@ -181 +181 @@
     <Compile Include="DistanceMeasures\EuclideanDistanceMeasure.cs" />
     <Compile Include="DomainModel\SimulationObject.cs" />
+    <Compile Include="Operators\DialARideEvaluator.cs" />
     <Compile Include="Operators\DynPDPEvaluator.cs" />
     <Compile Include="Operators\DynPushForwardInsertionCreator.cs" />

branches/DynamicVehicleRouting/HeuristicLab.PDPSimulation/3.3/Operators/DynPDPProblemInstance.cs

@@ -212 +212 @@
       TardinessPenalty.Value = scenario.TardinessPenaltyParameter.Value.Value;
       FleetUsageFactor.Value = scenario.FleetUsageFactorParameter.Value.Value;
+      DistanceFactor.Value = scenario.DistanceFactorParameter.Value.Value;
     }
   }

branches/DynamicVehicleRouting/HeuristicLab.PDPSimulation/3.3/PickupDeliveryAnalyzer.cs

@@ -108 +108 @@
         data.Rows.Add(new DataRow("InvalidActions"));
         data.Rows.Add(new DataRow("Tardiness"));
+        data.Rows.Add(new DataRow("CapacityUtilization"));
 
         results.Add(new Result("UsedVehicles", new IntValue()));
@@ -120 +121 @@
       double distance = Math.Round(simulation.Vehicles.Sum(v => v.Distance) * 100.0) / 100.0;
       int invalidActions = simulation.Vehicles.Sum(v => v.InvalidActions);
-      double tardiness = Math.Round(simulation.Vehicles.Sum(v => v.Tardiness) * 100.0) / 100.0;
+      double tardiness = Math.Round(simulation.Vehicles.Sum(v => v.Tardiness) * 100.0) / 100.0;      
+      var used = simulation.Vehicles.Where(v => v.Distance > 0);
+      double capacityUtilization = 0;
+      if(used.Count() > 0)
+        capacityUtilization = Math.Round(used.Average(v => 1.0 - (v.Capacity / v.TotalCapacity)) * 100.0) / 100.0;
 
       vehicleStatistics.Rows["UsedVehicles"].Values.Add(usedVehicles);
@@ -126 +131 @@
       vehicleStatistics.Rows["InvalidActions"].Values.Add(invalidActions);
       vehicleStatistics.Rows["Tardiness"].Values.Add(tardiness);
+      vehicleStatistics.Rows["CapacityUtilization"].Values.Add(capacityUtilization);
 
       (results["UsedVehicles"].Value as IntValue).Value = usedVehicles;
@@ -183 +189 @@
     }
 
+    protected virtual void UpdateTimeHistogram(PickupDeliverySimulation simulation, PickupDeliveryScenario scenario, ResultCollection results) {
+      if (!results.ContainsKey("TimeHistogram")) {
+        DataTable data = new DataTable("TimeHistogram");
+        results.Add(new Result("TimeHistogram", data));
+
+        DataRow row = new DataRow("WaitingTime");
+        row.VisualProperties.ChartType = DataRowVisualProperties.DataRowChartType.Histogram;
+        data.Rows.Add(row);
+
+        row = new DataRow("TransferTime");
+        row.VisualProperties.ChartType = DataRowVisualProperties.DataRowChartType.Histogram;
+        data.Rows.Add(row);
+
+        row = new DataRow("Slack");
+        row.VisualProperties.ChartType = DataRowVisualProperties.DataRowChartType.Histogram;
+        data.Rows.Add(row);
+
+        row = new DataRow("LeadTime");
+        row.VisualProperties.ChartType = DataRowVisualProperties.DataRowChartType.Histogram;
+        data.Rows.Add(row);
+      }
+
+      DataTable timeHistogram = results["TimeHistogram"].Value.Clone() as DataTable;
+
+      //waiting time
+      var values = timeHistogram.Rows["WaitingTime"].Values;
+      values.Clear();
+      foreach (Order order in simulation.Orders.Where(o => o.PickupTime > 0)) {
+        values.Add(order.PickupTime - order.PickupReadyTime);
+      }
+
+      //transfer time
+      values = timeHistogram.Rows["TransferTime"].Values;
+      values.Clear();
+      foreach (Order order in simulation.Orders.Where(o => o.OrderState == OrderState.Delivered)) {
+        values.Add(order.DeliveryTime - order.PickupTime - order.PickupServiceTime);
+      }
+
+      //slack
+      values = timeHistogram.Rows["Slack"].Values;
+      values.Clear();
+      foreach (Order order in simulation.Orders.Where(o => o.PickupTime > 0)) {
+        values.Add(order.PickupDueTime - order.PickupTime);
+      }
+
+      //lead time
+      values = timeHistogram.Rows["LeadTime"].Values;
+      values.Clear();
+      foreach (Order order in simulation.Orders.Where(o => o.OrderState == OrderState.Delivered)) {
+        values.Add(order.DeliveryTime + order.DeliveryServiceTime - order.PickupReadyTime);
+      }
+
+      results["TimeHistogram"].Value = timeHistogram;
+    }
+
     public virtual void Analyze(PickupDeliverySimulation simulation, PickupDeliveryScenario scenario, ResultCollection results) {
       UpdateOrderResults(simulation, scenario, results);
@@ -188 +249 @@
       UpdateConstraintViolationResults(simulation, scenario, results);
       UpdateVehicleHistoryResults(simulation, scenario, results);
+      UpdateTimeHistogram(simulation, scenario, results);
     }
 

branches/DynamicVehicleRouting/HeuristicLab.PDPSimulation/3.3/PickupDeliveryScenario.cs

@@ -73 +73 @@
     }
 
+    public IValueParameter<DoubleValue> DistanceFactorParameter {
+      get { return (IValueParameter<DoubleValue>)Parameters["DistanceFactor"]; }
+    }
+
     public IValueParameter<DoubleValue> FleetUsageFactorParameter {
       get { return (IValueParameter<DoubleValue>)Parameters["FleetUsageFactor"]; }
@@ -142 +146 @@
       Parameters.Add(new ValueParameter<DoubleArray>("VehicleReadyTimes", new DoubleArray()));
       Parameters.Add(new ValueParameter<DoubleArray>("VehicleDueTimes", new DoubleArray()));
+      Parameters.Add(new ValueParameter<DoubleValue>("DistanceFactor", "The distance factor considered in the evaluation.", new DoubleValue(1)));
       Parameters.Add(new ValueParameter<DoubleValue>("FleetUsageFactor", "The fleet usage factor considered in the evaluation.", new DoubleValue(3000)));
       Parameters.Add(new ValueParameter<DoubleValue>("OverloadPenalty", "The overload penalty considered in the evaluation.", new DoubleValue(10000)));