Observe the share of port of origin for FCs according to their region

models/Experiments.gaml

@@ -456,6 +456,120 @@ experiment 'Every output' type: gui {
 			}
 		}/**/
 
+		display 'Share of port origin - Region Basse-Normandie' refresh:every(1) {
+			chart  "Share of port origin - Region Basse-Normandie" type: series {
+				RegionObserver sr <- nil;
+				ask RegionObserver {
+					if(self.name = "Basse-Normandie"){
+						sr <- self;
+					}
+				}
+				if(sr!=nil){
+					data "Number of FC choosing Antwerp" value: sr.nbAntwerp color: rgb('green') ;
+					data "Number of FC choosing Le Havre" value: sr.nbHavre color: rgb('red') ;
+				}
+				else { // At step 0, RegionObserver are not initialized, so, sr = nil
+					data "Number of FC choosing Antwerp" value: 0 color: rgb('green') ;
+					data "Number of FC choosing Le Havre" value: 0 color: rgb('red') ;
+				}
+			}
+		}/**/
+
+		display 'Share of port origin - Region Centre' refresh:every(1) {
+			chart  "Share of port origin - Region Centre" type: series {
+				RegionObserver sr <- nil;
+				ask RegionObserver {
+					if(self.name = "Centre"){
+						sr <- self;
+					}
+				}
+				if(sr!=nil){
+					data "Number of FC choosing Antwerp" value: sr.nbAntwerp color: rgb('green') ;
+					data "Number of FC choosing Le Havre" value: sr.nbHavre color: rgb('red') ;
+				}
+				else { // At step 0, RegionObserver are not initialized, so, sr = nil
+					data "Number of FC choosing Antwerp" value: 0 color: rgb('green') ;
+					data "Number of FC choosing Le Havre" value: 0 color: rgb('red') ;
+				}
+			}
+		}/**/
+
+		display 'Share of port origin - Region Haute-Normandie' refresh:every(1) {
+			chart  "Share of port origin - Region Haute-Normandie" type: series {
+				RegionObserver sr <- nil;
+				ask RegionObserver {
+					if(self.name = "Haute-Normandie"){
+						sr <- self;
+					}
+				}
+				if(sr!=nil){
+					data "Number of FC choosing Antwerp" value: sr.nbAntwerp color: rgb('green') ;
+					data "Number of FC choosing Le Havre" value: sr.nbHavre color: rgb('red') ;
+				}
+				else { // At step 0, RegionObserver are not initialized, so, sr = nil
+					data "Number of FC choosing Antwerp" value: 0 color: rgb('green') ;
+					data "Number of FC choosing Le Havre" value: 0 color: rgb('red') ;
+				}
+			}
+		}/**/
+
+		display 'Share of port origin - Region Ile-de-France' refresh:every(1) {
+			chart  "Share of port origin - Region Ile-de-France" type: series {
+				RegionObserver sr <- nil;
+				ask RegionObserver {
+					if(self.name = "Ile-de-France"){
+						sr <- self;
+					}
+				}
+				if(sr!=nil){
+					data "Number of FC choosing Antwerp" value: sr.nbAntwerp color: rgb('green') ;
+					data "Number of FC choosing Le Havre" value: sr.nbHavre color: rgb('red') ;
+				}
+				else { // At step 0, RegionObserver are not initialized, so, sr = nil
+					data "Number of FC choosing Antwerp" value: 0 color: rgb('green') ;
+					data "Number of FC choosing Le Havre" value: 0 color: rgb('red') ;
+				}
+			}
+		}/**/
+
+		display 'Share of port origin - Region Picardie' refresh:every(1) {
+			chart  "Share of port origin - Region Picardie" type: series {
+				RegionObserver sr <- nil;
+				ask RegionObserver {
+					if(self.name = "Picardie"){
+						sr <- self;
+					}
+				}
+				if(sr!=nil){
+					data "Number of FC choosing Antwerp" value: sr.nbAntwerp color: rgb('green') ;
+					data "Number of FC choosing Le Havre" value: sr.nbHavre color: rgb('red') ;
+				}
+				else { // At step 0, RegionObserver are not initialized, so, sr = nil
+					data "Number of FC choosing Antwerp" value: 0 color: rgb('green') ;
+					data "Number of FC choosing Le Havre" value: 0 color: rgb('red') ;
+				}
+			}
+		}/**/
+
+		display 'Share of port origin - Region Antwerp' refresh:every(1) {
+			chart  "Share of port origin - Region Antwerp" type: series {
+				RegionObserver sr <- nil;
+				ask RegionObserver {
+					if(self.name = "Antwerpen"){
+						sr <- self;
+					}
+				}
+				if(sr!=nil){
+					data "Number of FC choosing Antwerp" value: sr.nbAntwerp color: rgb('green') ;
+					data "Number of FC choosing Le Havre" value: sr.nbHavre color: rgb('red') ;
+				}
+				else { // At step 0, RegionObserver are not initialized, so, sr = nil
+					data "Number of FC choosing Antwerp" value: 0 color: rgb('green') ;
+					data "Number of FC choosing Le Havre" value: 0 color: rgb('red') ;
+				}
+			}
+		}/**/
+
 		display 'Share of the different strategies adopted' refresh:every(1) {
 			chart  "Share of the different strategies adopted" type: series {
 				data "Strategy 1 (closest/largest warehouse according to a probability)" value: nbLPStrat1 color: rgb('green') ;

models/Main.gaml

@@ -245,6 +245,9 @@ global {
 			ask ((Building as list) + (Warehouse as list) + (MaritimeTerminal as list) + (RiverTerminal as list) + (MaritimeRiverTerminal as list)) inside self {
 				myself.buildings <+ self;
 			}
+			ask ((FinalDestinationManager as list)) inside self {
+				myself.fcs <+ self;
+			}
 		}
 		// We associate a provider to each LSPs according to the distance and the attractiveness
 //		LHAttractiveness <- 1.0;

models/Observer.gaml

@@ -515,6 +515,23 @@ global {
 		}
 	}
 
+	reflex portsSharePerRegion {
+		ask RegionObserver {
+			nbAntwerp <- 0;
+			nbHavre <- 0;
+			int i <- 0;
+			loop while: i < length(fcs) {
+				if(fcs[i].logisticsServiceProvider.provider.port = "ANTWERP") {
+					nbAntwerp <- nbAntwerp + 1;
+				}
+				else {
+					nbHavre <- nbHavre + 1;
+				}
+				i <- i + 1;
+			}
+		}
+	}
+
 	float averageThreshold <- 0.0;
 	reflex computeAverageThreshold {
 		float sum <- 0.0;
@@ -582,6 +599,12 @@ global {
 		do saveShareTransportModeRegion(params, "Picardie");
 		do saveShareTransportModeRegion(params, "Antwerpen");
 
+		do saveSharePortOriginRegion(params, "Basse-Normandie");
+		do saveSharePortOriginRegion(params, "Haute-Normandie");
+		do saveSharePortOriginRegion(params, "Centre");
+		do saveSharePortOriginRegion(params, "Ile-de-France");
+		do saveSharePortOriginRegion(params, "Picardie");
+		do saveSharePortOriginRegion(params, "Antwerpen");
 	}
 
 	action saveShareTransportModeRegion(string params, string n){
@@ -601,6 +624,21 @@ global {
 		}
 	}
 
+	action saveSharePortOriginRegion(string params, string n){
+		RegionObserver sr <- nil;
+		int i <- 0;
+		bool notfound <- true;
+		loop while: i < length(RegionObserver) and notfound {
+			if(RegionObserver[i].name = n){
+				sr <- RegionObserver[i];
+				save "" + ((time/3600.0) as int) + ";" + sr.nbAntwerp + ";" +  sr.nbHavre + ";"
+					to: CSVFolderPath + date_simu_starts + "_share_port_origin_region_" + n + params  + ".csv" type: text rewrite: false;
+				notfound <- false;
+			}
+			i <- i + 1;
+		}
+	}
+
 	string setParams {
 		string params <- "";
 		if(allowScenarionCanalSeineNord){

models/RegionObserver.gaml

@@ -5,6 +5,8 @@ import "Building.gaml"
 
 species RegionObserver {
 	string name;
+	list<Building> buildings <- [];
+	list<FinalDestinationManager> fcs <- [];
 
 	// Share by number of vehicle
 	float sumRoadVehicleRO <- 0.0;
@@ -24,7 +26,9 @@ species RegionObserver {
 	float shareMaritimeQuantitiesRO <- 0.0;
 	float sumQuantitiesRO;
 
-	list<Building> buildings <- [];
+	// Share of FC by origin port
+	int nbAntwerp <- 0;
+	int nbHavre <- 0;
 
 	aspect geom {
 		draw shape color: rgb("grey") border: rgb("black");