Skip to content
Snippets Groups Projects
Commit 0629911a authored by ThibautDemare's avatar ThibautDemare
Browse files

Rename the LSP species + add a piece of code to delete some Warehouses

parent 173f43e7
Branches
Tags
No related merge requests found
...@@ -94,7 +94,7 @@ global { ...@@ -94,7 +94,7 @@ global {
// River // River
create RiverLine from: river_shapefile with: [speed::read("speed") as float, length::read("length") as float, is_new::read("is_new") as int]; create RiverLine from: river_shapefile with: [speed::read("speed") as float, length::read("length") as float, is_new::read("is_new") as int];
river_network <- as_edge_graph(RiverLine); river_network <- as_edge_graph(RiverLine);
// 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];
...@@ -141,6 +141,20 @@ global { ...@@ -141,6 +141,20 @@ global {
// Warehouses // Warehouses
create Warehouse from: warehouse_shapefile returns: lw with: [totalSurface::read("surface") as float]; create Warehouse from: warehouse_shapefile returns: lw with: [totalSurface::read("surface") as float];
/*
* The following code can be commented or not, depending if the user want to execute the simulation with every Warehouse
* It is mainly used for tests to avoid CPU overload.
*/
int i <- 100;
list<Warehouse> llsp <- shuffle(Warehouse);
loop while: i < length(llsp) {
Warehouse s <- llsp[i];
remove index: i from: llsp;
ask s {
do die;
}
}
/**/
// Logistic Service providers // Logistic Service providers
create LogisticsServiceProvider from: logistic_provider_shapefile; create LogisticsServiceProvider from: logistic_provider_shapefile;
...@@ -150,9 +164,9 @@ global { ...@@ -150,9 +164,9 @@ global {
* It is mainly used for tests to avoid CPU overload. * It is mainly used for tests to avoid CPU overload.
*/ */
/*int i <- 100; /*int i <- 100;
list<LogisticProvider> llsp <- shuffle(LogisticProvider); list<LogisticsServiceProvider> llsp <- shuffle(LogisticsServiceProvider);
loop while: i < length(llsp) { loop while: i < length(llsp) {
LogisticProvider s <- llsp[i]; LogisticsServiceProvider s <- llsp[i];
remove index: i from: llsp; remove index: i from: llsp;
ask s { ask s {
do die; do die;
...@@ -231,4 +245,4 @@ global { ...@@ -231,4 +245,4 @@ global {
// AntAttractiveness <- 3.0; // AntAttractiveness <- 3.0;
// do update_proba_to_choose_provider; // do update_proba_to_choose_provider;
} }
} }
\ No newline at end of file
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