New chart: distribution of number of FC according to LSP

models/Experiments.gaml

@@ -657,5 +657,18 @@ experiment 'Every output' type: gui {
 				data "Number of LP using Antwerp" value: nbAntwerp color: divergingCol4 ;
 			}
 		}/**/
+
+		display "Distribution of number of FC per LSP" type: java2D {
+			chart "Distribution of number of FC per LSP"
+				type: series
+				x_label: 'Nb of FC'
+				y_label: 'Nb of LSP'
+				x_tick_unit: 1
+				y_tick_unit: 1
+				x_serie_labels: distributionNbFCPerLSPX
+			{
+				data "Distribution of number of FC per LSP" value: distributionNbFCPerLSPY color: divergingCol2;
+			}
+		}/**/
 	}
 }
\ No newline at end of file

models/Observer.gaml

@@ -547,6 +547,26 @@ global {
 		}
 	}
 
+	list<int> distributionNbFCPerLSPY;
+	list<int> distributionNbFCPerLSPX;
+	reflex distributionNbFCPerLSP {
+		distributionNbFCPerLSPY <- [];
+		ask LogisticsServiceProvider {
+			int nbCustomers <- length(self.customers);
+			loop while: length(distributionNbFCPerLSPY) <= nbCustomers{
+				 distributionNbFCPerLSPY <- distributionNbFCPerLSPY + 0;
+			}
+			distributionNbFCPerLSPY[nbCustomers] <- distributionNbFCPerLSPY[nbCustomers] + 1;
+		}
+
+		distributionNbFCPerLSPX <- [];
+		int i <- 0;
+		loop while: i < length(distributionNbFCPerLSP) {
+			distributionNbFCPerLSPX <- distributionNbFCPerLSPX + i;
+			i <- i + 1;
+		}
+	}
+
 	string CSVFolderPath <- "../results/CSV/";
 	reflex saveObservations when: saveObservations {
 		if(date_simu_starts = nil) {