Skip to content
Snippets Groups Projects
Commit 67ab4366 authored by ThibautDemare's avatar ThibautDemare
Browse files

Add a RegionObserver monitoring the port of Le Havre

parent 2b12d9a0
Branches
Tags
No related merge requests found
Hide whitespace changes
Inline Side-by-side
models/Experiments.gaml
+ 145
− 0
View file @ 67ab4366
...@@ -334,6 +334,27 @@ experiment 'Every output' type: gui { ...@@ -334,6 +334,27 @@ experiment 'Every output' type: gui {
} }
}/**/ }/**/
display 'Share of mode of transport (number of vehicles) - Region Le Havre' refresh:every(1) {
chart "Share of mode of transport (number of vehicles) - Region Le Havre" type: series {
RegionObserver sr <- nil;
ask RegionObserver {
if(self.name = "Le Havre"){
sr <- self;
}
}
if(sr!=nil){
data "Share of road" value: sr.shareRoadVehicleRO * 100.0 color: divergingCol5 ;
data "Share of river" value: sr.shareRiverVehicleRO * 100.0 color: divergingCol6 ;
data "Share of maritime" value: sr.shareMaritimeVehicleRO * 100.0 color: divergingCol7 ;
}
else { // At step 0, RegionObserver are not initialized, so, sr = nil
data "Share of road" value: 0 color: divergingCol5 ;
data "Share of river" value: 0 color: divergingCol6 ;
data "Share of maritime" value: 0 color: divergingCol7 ;
}
}
}/**/
display 'Share of mode of transport (quantities of goods)' refresh:every(1) { display 'Share of mode of transport (quantities of goods)' refresh:every(1) {
chart "Share of mode of transport (quantities of goods)" type: series { chart "Share of mode of transport (quantities of goods)" type: series {
data "Share of road" value: shareRoadQuantities * 100 color: divergingCol5 ; data "Share of road" value: shareRoadQuantities * 100 color: divergingCol5 ;
...@@ -468,6 +489,27 @@ experiment 'Every output' type: gui { ...@@ -468,6 +489,27 @@ experiment 'Every output' type: gui {
} }
}/**/ }/**/
display 'Share of mode of transport (quantities of goods) - Region Le Havre' refresh:every(1) {
chart "Share of mode of transport - Region Le Havre" type: series {
RegionObserver sr <- nil;
ask RegionObserver {
if(self.name = "Le Havre"){
sr <- self;
}
}
if(sr!=nil){
data "Share of road" value: sr.shareRoadQuantitiesRO * 100.0 color: divergingCol5 ;
data "Share of river" value: sr.shareRiverQuantitiesRO * 100.0 color: divergingCol6 ;
data "Share of maritime" value: sr.shareMaritimeQuantitiesRO * 100.0 color: divergingCol7 ;
}
else { // At step 0, RegionObserver are not initialized, so, sr = nil
data "Share of road" value: 0 color: divergingCol5 ;
data "Share of river" value: 0 color: divergingCol6 ;
data "Share of maritime" value: 0 color: divergingCol7 ;
}
}
}/**/
display 'Share of port origin - Region Basse-Normandie' refresh:every(1) { display 'Share of port origin - Region Basse-Normandie' refresh:every(1) {
chart "Share of port origin - Region Basse-Normandie" type: series { chart "Share of port origin - Region Basse-Normandie" type: series {
RegionObserver sr <- nil; RegionObserver sr <- nil;
...@@ -582,6 +624,25 @@ experiment 'Every output' type: gui { ...@@ -582,6 +624,25 @@ experiment 'Every output' type: gui {
} }
}/**/ }/**/
display 'Share of port origin - Region Le Havre' refresh:every(1) {
chart "Share of port origin - Region Le Havre" type: series {
RegionObserver sr <- nil;
ask RegionObserver {
if(self.name = "Le Havre"){
sr <- self;
}
}
if(sr!=nil){
data "Number of FC choosing Antwerp" value: sr.nbAntwerp color: divergingCol2 ;
data "Number of FC choosing Le Havre" value: sr.nbHavre color: divergingCol4 ;
}
else { // At step 0, RegionObserver are not initialized, so, sr = nil
data "Number of FC choosing Antwerp" value: 0 color: divergingCol2 ;
data "Number of FC choosing Le Havre" value: 0 color: divergingCol4 ;
}
}
}/**/
display 'Share of the different strategies adopted' refresh:every(1) { display 'Share of the different strategies adopted' refresh:every(1) {
chart "Share of the different strategies adopted" type: series { chart "Share of the different strategies adopted" type: series {
data "Strategy 1 (closest/largest warehouse according to a probability)" value: nbLPStrat1 color: divergingCol1 ; data "Strategy 1 (closest/largest warehouse according to a probability)" value: nbLPStrat1 color: divergingCol1 ;
...@@ -801,6 +862,27 @@ experiment 'Every output' type: gui { ...@@ -801,6 +862,27 @@ experiment 'Every output' type: gui {
} }
}/**/ }/**/
display 'Share of vehicles leaving terminals per mode of transport - Region Le Havre' refresh:every(1) {
chart "Share of vehicles leaving terminals per mode of transport - Region Le Havre" type: series {
RegionObserver sr <- nil;
ask RegionObserver {
if(self.name = "Le Havre"){
sr <- self;
}
}
if(sr!=nil){
data "Share of road" value: sr.shareLeavingRoadVehicleRO * 100.0 color: divergingCol5 ;
data "Share of river" value: sr.shareLeavingRiverVehicleRO * 100.0 color: divergingCol6 ;
data "Share of maritime" value: sr.shareLeavingMaritimeVehicleRO * 100.0 color: divergingCol7 ;
}
else { // At step 0, RegionObserver are not initialized, so, sr = nil
data "Share of road" value: 0 color: divergingCol5 ;
data "Share of river" value: 0 color: divergingCol6 ;
data "Share of maritime" value: 0 color: divergingCol7 ;
}
}
}/**/
display 'Share of volume leaving terminals per mode of transport - Region Basse-Normandie' refresh:every(1) { display 'Share of volume leaving terminals per mode of transport - Region Basse-Normandie' refresh:every(1) {
chart "Share of volume leaving terminals per mode of transport - Region Basse-Normandie" type: series { chart "Share of volume leaving terminals per mode of transport - Region Basse-Normandie" type: series {
RegionObserver sr <- nil; RegionObserver sr <- nil;
...@@ -926,5 +1008,68 @@ experiment 'Every output' type: gui { ...@@ -926,5 +1008,68 @@ experiment 'Every output' type: gui {
} }
} }
}/**/ }/**/
display 'Share of volume leaving terminals per mode of transport - Region Le Havre' refresh:every(1) {
chart "Share of volume leaving terminals per mode of transport - Region Le Havre" type: series {
RegionObserver sr <- nil;
ask RegionObserver {
if(self.name = "Le Havre"){
sr <- self;
}
}
if(sr!=nil){
data "Share of road" value: sr.shareLeavingRoadQuantitiesRO * 100.0 color: divergingCol5 ;
data "Share of river" value: sr.shareLeavingRiverQuantitiesRO * 100.0 color: divergingCol6 ;
data "Share of maritime" value: sr.shareLeavingMaritimeQuantitiesRO * 100.0 color: divergingCol7 ;
}
else { // At step 0, RegionObserver are not initialized, so, sr = nil
data "Share of road" value: 0 color: divergingCol5 ;
data "Share of river" value: 0 color: divergingCol6 ;
data "Share of maritime" value: 0 color: divergingCol7 ;
}
}
}/**/
display 'Share of volume leaving terminals per mode of transport - Region Antwerp' refresh:every(1) {
chart "Volume leaving terminals per mode of transport - Region Antwerp" type: series {
RegionObserver sr <- nil;
ask RegionObserver {
if(self.name = "Antwerpen"){
sr <- self;
}
}
if(sr!=nil){
data "Volume on road" value: sr.sumLeavingRoadQuantitiesRO color: divergingCol5 ;
data "Volume on river" value: sr.sumLeavingRiverQuantitiesRO color: divergingCol6 ;
data "Volume on maritime" value: sr.sumLeavingMaritimeQuantitiesRO color: divergingCol7 ;
}
else { // At step 0, RegionObserver are not initialized, so, sr = nil
data "Share of road" value: 0 color: divergingCol5 ;
data "Share of river" value: 0 color: divergingCol6 ;
data "Share of maritime" value: 0 color: divergingCol7 ;
}
}
}/**/
display 'Share of volume leaving terminals per mode of transport - Region le Havre' refresh:every(1) {
chart "Volume leaving terminals per mode of transport - Region Le Havre" type: series {
RegionObserver sr <- nil;
ask RegionObserver {
if(self.name = "Le Havre"){
sr <- self;
}
}
if(sr!=nil){
data "Volume on road" value: sr.sumLeavingRoadQuantitiesRO color: divergingCol5 ;
data "Volume on river" value: sr.sumLeavingRiverQuantitiesRO color: divergingCol6 ;
data "Volume on maritime" value: sr.sumLeavingMaritimeQuantitiesRO color: divergingCol7 ;
}
else { // At step 0, RegionObserver are not initialized, so, sr = nil
data "Share of road" value: 0 color: divergingCol5 ;
data "Share of river" value: 0 color: divergingCol6 ;
data "Share of maritime" value: 0 color: divergingCol7 ;
}
}
}/**/
} }
} }
\ No newline at end of file
models/Main.gaml
+ 3
− 0
View file @ 67ab4366
...@@ -73,6 +73,8 @@ global { ...@@ -73,6 +73,8 @@ global {
// Data come from : // Data come from :
// Atlas de Belgique - divisions communes (consulted the 06/21/2018) -> http://www.atlas-belgique.be/cms2/index.php?page=cartodata_fr // Atlas de Belgique - divisions communes (consulted the 06/21/2018) -> http://www.atlas-belgique.be/cms2/index.php?page=cartodata_fr
file antwerp_shapefile <- file(pathBD+"Regions/antwerpen_limits.shp"); file antwerp_shapefile <- file(pathBD+"Regions/antwerpen_limits.shp");
// And Le Havre limits
file lh_shapefile <- file(pathBD+"Regions/lh_limits.shp");
//Define the border of the environnement according to the road network //Define the border of the environnement according to the road network
geometry shape <- envelope(roads_shapefile); geometry shape <- envelope(roads_shapefile);
...@@ -105,6 +107,7 @@ global { ...@@ -105,6 +107,7 @@ global {
// Region observers // Region observers
create RegionObserver from: regions_shapefile with: [name::read("nom") as string]; create RegionObserver from: regions_shapefile with: [name::read("nom") as string];
create RegionObserver from: antwerp_shapefile with: [name::read("Name") as string]; create RegionObserver from: antwerp_shapefile with: [name::read("Name") as string];
create RegionObserver from: lh_shapefile with: [name::read("nom") as string];
// Providers // Providers
create Provider from: provider_shapefile with: [port::read("Port") as string]; create Provider from: provider_shapefile with: [port::read("Port") as string];
......
models/Observer.gaml
+ 2
− 0
View file @ 67ab4366
...@@ -721,6 +721,7 @@ global { ...@@ -721,6 +721,7 @@ global {
do saveShareTransportModeRegion(params, "Ile-de-France"); do saveShareTransportModeRegion(params, "Ile-de-France");
do saveShareTransportModeRegion(params, "Picardie"); do saveShareTransportModeRegion(params, "Picardie");
do saveShareTransportModeRegion(params, "Antwerpen"); do saveShareTransportModeRegion(params, "Antwerpen");
do saveShareTransportModeRegion(params, "Le Havre");
do saveSharePortOriginRegion(params, "Basse-Normandie"); do saveSharePortOriginRegion(params, "Basse-Normandie");
do saveSharePortOriginRegion(params, "Haute-Normandie"); do saveSharePortOriginRegion(params, "Haute-Normandie");
...@@ -728,6 +729,7 @@ global { ...@@ -728,6 +729,7 @@ global {
do saveSharePortOriginRegion(params, "Ile-de-France"); do saveSharePortOriginRegion(params, "Ile-de-France");
do saveSharePortOriginRegion(params, "Picardie"); do saveSharePortOriginRegion(params, "Picardie");
do saveSharePortOriginRegion(params, "Antwerpen"); do saveSharePortOriginRegion(params, "Antwerpen");
do saveSharePortOriginRegion(params, "Le Havre");
do saveDistribution(params, distributionNbFCPerLSPY); do saveDistribution(params, distributionNbFCPerLSPY);
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment