Create new variable for a parameter which used to be hard coded in the source

models/Observer.gaml

@@ -146,7 +146,7 @@ global {
 			if(length(customers) > 0){
 				int j <- 0;
 
-				loop while: 50 < length(timeToDeliver) {
+				loop while: nbDeliveriesConsideredForTimeToDelivered < length(timeToDeliver) {
 					remove index: 0 from: timeToDeliver;
 				}
 
@@ -172,7 +172,7 @@ global {
 			int j <- 0;
 			int localSum <- 0;
 
-			loop while: 50 < length(localTimeToBeDeliveredLastDeliveries) {
+			loop while: nbDeliveriesConsideredForTimeToDelivered < length(localTimeToBeDeliveredLastDeliveries) {
 				remove index: 0 from: localTimeToBeDeliveredLastDeliveries;
 			}
 

models/Parameters.gaml

@@ -34,6 +34,7 @@ global {
 	list<int> possibleLSPSwitcStrats <- [1, 2, 3]; // 1 : NbStockShortages - 2 : TimeToBeDelivered - 3 : Costs
 	int globalLSPSwitchStrat <- 3;
 	int nbStepsConsideredForLPEfficiency <- 96; // 4 days // The number of steps considered to compute the logistic provider efficiency
+	int nbDeliveriesConsideredForTimeToDelivered <- 50;
 
 	// Attractiveness parameters
 	float LHAttractiveness;