Metavalley- MAVM's social-ecological performance

No preview image

1 collaborator

Tags

(This model has yet to be categorized with any tags)
Visible to everyone | Changeable by everyone
Model was written in NetLogo 6.0.4 • Viewed 56 times • Downloaded 12 times • Run 0 times
Download the 'Metavalley- MAVM's social-ecological performance' modelDownload this modelEmbed this model

Do you have questions or comments about this model? Ask them here! (You'll first need to log in.)


Comments and Questions

Please start the discussion about this model! (You'll first need to log in.)

Click to Run Model

extensions [ gis ]

globals [socioeco-dataset
         aquifer1-dataset
         aquifer2-dataset
         aquifer3-dataset
         ish-dataset
         z1-dataset
         z2-dataset
         z3-dataset
         socioeco2-dataset
         social-dataset
         ecological-dataset
         boundaries-dataset
          elevation-dataset
          landprice-dataset
          i8t-dataset]

breed [ socioeco-vertices socioeco-vertex]
breed [ aquifer1-vertices aquifer1-vertex]
breed [ aquifer2-vertices aquifer2-vertex]
breed [ aquifer3-vertices aquifer3-vertex]
breed [ ish-vertices ish-vertex]
breed [ z1-vertices z1-vertex]
breed [ z2-vertices z2-vertex]
breed [ z3-vertices z3-vertex]
breed [ social-vertices social-vertex]
breed [ ecological-vertices ecological-vertex]
breed [ landprice-labels landprice-label ]
breed [ boundaries-labels boundaries-label ]
breed [ boundaries-vertices boundaries-vertex]

patches-own [i8t socioeco aquifer1 aquifer2 aquifer3 ish z1 z2 z3 socioeco2 social ecological landprice elevation boundaries]



;SETUP!

to setup
  ca
  ;set x-dataset gis:load-dataset "data/x.shp"
  set socioeco-dataset gis:load-dataset "data/N_socialeco.asc"
  set aquifer1-dataset gis:load-dataset "data/N_aa1.asc"
  set aquifer2-dataset gis:load-dataset "data/N_aa2.asc"
  set aquifer3-dataset gis:load-dataset "data/N_aa3.asc"
   set ish-dataset gis:load-dataset "data/N_ISHa.asc"
   set z1-dataset gis:load-dataset "data/N_Z1a.asc"
   set z2-dataset gis:load-dataset "data/N_Z2a.asc"
   set z3-dataset gis:load-dataset "data/N_Z3a.asc"
  set i8t-dataset gis:load-dataset "data/i8_t.asc"
  set ecological-dataset gis:load-dataset "data/ecologicalresilience.asc"
  set elevation-dataset gis:load-dataset "data/slopemaybe.asc"
  set landprice-dataset gis:load-dataset "data/landprice_raster.asc"
  set boundaries-dataset gis:load-dataset "data/statesmaybe.shp"
  ; Set the world envelope to the union of all of our dataset's envelopes
  gis:set-world-envelope (gis:envelope-union-of (gis:envelope-of socioeco-dataset)
                                                (gis:envelope-of aquifer1-dataset)
                                                (gis:envelope-of aquifer2-dataset)
                                                (gis:envelope-of aquifer3-dataset)
                                                (gis:envelope-of ish-dataset)
                                                (gis:envelope-of z1-dataset)
                                                (gis:envelope-of z2-dataset)
                                                (gis:envelope-of z3-dataset)
                                                (gis:envelope-of ecological-dataset)
                                                (gis:envelope-of landprice-dataset)
                                                (gis:envelope-of boundaries-dataset))
end 




; TO TRANSFORM RASTER INTO PATCHES

to sample-socioeco-with-patches
  let min-socioeco gis:minimum-of socioeco-dataset
  let max-socioeco gis:maximum-of socioeco-dataset
  ask patches
  [ set socioeco gis:raster-sample socioeco-dataset self]
end 

to sample-aquifer1-with-patches
  let min-aquifer1 gis:minimum-of aquifer1-dataset
  let max-aquifer1 gis:maximum-of aquifer1-dataset
  ask patches
  [ set aquifer1 gis:raster-sample aquifer1-dataset self]
end 

to sample-aquifer2-with-patches
  let min-aquifer2 gis:minimum-of aquifer2-dataset
  let max-aquifer2 gis:maximum-of aquifer2-dataset
  ask patches
  [ set aquifer2 gis:raster-sample aquifer2-dataset self]
end 

to sample-aquifer3-with-patches
  let min-aquifer3 gis:minimum-of aquifer3-dataset
  let max-aquifer3 gis:maximum-of aquifer3-dataset
  ask patches
  [ set aquifer3 gis:raster-sample aquifer3-dataset self]
end 

to sample-ish-with-patches
  let min-ish gis:minimum-of ish-dataset
  let max-ish gis:maximum-of ish-dataset
  ask patches
  [ set ish gis:raster-sample ish-dataset self]
end 

to sample-z1-with-patches
  let min-z1 gis:minimum-of z1-dataset
  let max-z1 gis:maximum-of z1-dataset
  ask patches
  [ set z1 gis:raster-sample z1-dataset self]
end 

to sample-z2-with-patches
  let min-z2 gis:minimum-of z2-dataset
  let max-z2 gis:maximum-of z2-dataset
  ask patches
  [ set z2 gis:raster-sample z2-dataset self]
end 

to sample-z3-with-patches
  let min-z3 gis:minimum-of z3-dataset
  let max-z3 gis:maximum-of z3-dataset
  ask patches
  [ set z3 gis:raster-sample z3-dataset self]
end 


; TO INTERVENTIONS

to evaluate
if socioeco  <= 5 [set pcolor red + 4.9]
if socioeco > 5 and socioeco <= 10 [set pcolor red + 4.5]
if socioeco > 10 and socioeco <= 15 [set pcolor red + 4]
if socioeco > 15 and socioeco <= 20 [set pcolor red + 3.5]
if socioeco > 20 and socioeco <= 25 [set pcolor red + 3]
if socioeco > 25 and socioeco <= 30 [set pcolor red + 2.5]
if socioeco > 30 and socioeco <= 35 [set pcolor red + 2]
if socioeco > 35 and socioeco <= 40 [set pcolor red + 1.5]
if socioeco > 40 and socioeco <= 45 [set pcolor red + 1]
if socioeco > 45 and socioeco <= 50 [set pcolor red + 0.5]
if socioeco > 50 and socioeco <= 55 [set pcolor red + 0]
if socioeco > 55 and socioeco <= 60 [set pcolor red - 0.5]
if socioeco > 60 and socioeco <= 65 [set pcolor red - 1]
if socioeco > 65 and socioeco <= 70 [set pcolor red - 1.5]
if socioeco > 70 and socioeco <= 76 [set pcolor red - 2]
if socioeco > 75 and socioeco <= 80 [set pcolor red - 2.5]
if socioeco > 80 and socioeco <= 85 [set pcolor red - 3]
if socioeco > 85 and socioeco <= 90 [set pcolor red - 3.5]
if socioeco > 90 and socioeco <= 95 [set pcolor red - 4]
if socioeco > 95 and socioeco <= 100 [set pcolor red - 4.5]
end 

to wtp-a-ss/2
  ask patches with [z1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 6.87 ]
  ask patches with [z2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 6.87]
  ask patches with [z3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 6.87]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.18]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.83]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + .83]
end 

to wtp-i-10/2
  ask patches with [z1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 4.9]
  ask patches with [z2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 4.9 ]
  ask patches with [z3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 4.9 ]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.32]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.42]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.43]
end 

to wtp-a/2
  ask patches with [z1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 8.05 ]
  ask patches with [z2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 8.05]
  ask patches with [z3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 8.05]
  ask patches with [ish = 1 and socioeco <= 100 ] [set socioeco socioeco + 8.05]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.725]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 3.21]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 3.22]
end 

to z2-h/2
  ask patches with [z2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 8.25]
end 

to z3-h/3
  ask patches with [z3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 2.75]
end 

to z2-25-Rainfall/2
  ask patches with [z2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 2.06 ]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.31]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.165]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.185]
end 

to z2-50-Rainfall/3
  ask patches with [z3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.37 ]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.41]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.03]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.016]
end 

to z3-25-Rainfall/2
  ask patches with [z3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 2.06 ]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.61]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.045]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.025]
end 

to z3-50-Rainfall/3
  ask patches with [z3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.37 ]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.82]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.06]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.033]
end 

to wells-increase/3
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco - 3.04]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco - 15.66]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco - 12.28]
end 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,;ZONES

to z1-h
  ask patches with [z1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 25]
end 

to z2-h
  ask patches with [z2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 16.5]
end 

to z3-h
  ask patches with [z3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 8.25]
end 

to ISH-wetland
  ask patches with [ish = 1 and socioeco <= 100 ] [set socioeco socioeco + 6.1 ]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.4]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.35]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.45]
end 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,,,RAINFALL

to ISH-Rainfall
  ask patches with [ish = 1 and socioeco <= 100 ] [set socioeco socioeco + 4.12 ]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.08]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 4.63]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 4.58]
end 

to z1-25-Rainfall
  ask patches with [z1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 4.12 ]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.085]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.045]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.205]
end 

to z1-50-Rainfall
  ask patches with [z1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 4.12 ]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.17]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.095]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 2.41]
end 

to z1-75-Rainfall
  ask patches with [z1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 4.12 ]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.25]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.14]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 3.615]
end 

to z1-100-Rainfall
  ask patches with [z1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 4.12 ]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.34]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.19]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 4.82]
end 

to z2-12-Rainfall
  ask patches with [z2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 4.12 ]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.31]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.165]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.185]
end 

to z2-25-Rainfall
  ask patches with [z2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 4.12 ]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.62]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.33]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.37]
end 

to z2-50-Rainfall
  ask patches with [z2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 4.12 ]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.24]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.66]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.74]
end 

to z3-12-Rainfall
  ask patches with [z3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 4.12 ]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.615]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.045]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.025]
end 

to z3-25-Rainfall
  ask patches with [z3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 4.12 ]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.235]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.09]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.05]
end 

to z3-50-Rainfall
  ask patches with [z3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 4.12 ]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 2.475]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.18]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.10]
end 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; WTP

to wtp-i
  ask patches with [z1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 9.68 ]
  ask patches with [z2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 9.68 ]
  ask patches with [z3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 9.68 ]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.64]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 2.84]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 2.86]
end 

to wtp-a
  ask patches with [z1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 16.13 ]
  ask patches with [z2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 16.13]
  ask patches with [z3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 16.13]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.45]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 6.42]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 6.44]
end 

to wtp-a2
  ask patches with [z1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 2.68 ]
  ask patches with [z2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 2.68]
  ask patches with [z3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 2.68]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 2.37]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0]
end 

to wtp-a3
  ask patches with [z1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.785 ]
  ask patches with [z2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.785]
  ask patches with [z3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.785]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.805]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0]
end 

to wtp-a-ss
  ask patches with [z1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 13.745 ]
  ask patches with [z2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 13.745]
  ask patches with [z3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 13.745]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.375]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.66]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.675]
end 

to wtp-a2-ss
  ask patches with [z1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 2.285]
  ask patches with [z2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 2.285]
  ask patches with [z3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 2.285]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.615]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0]
end 

to wtp-a3-ss
  ask patches with [z1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.565]
  ask patches with [z2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.565]
  ask patches with [z3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.565]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.47]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0]
end 


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  WETLANDS

to wetland-z1-25
  ask patches with [z1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 3.05]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.013]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.007]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.17]
end 

to wetland-z1-50
  ask patches with [z1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 3.05]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.025]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.15]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.38]
end 

to wetland-z1-75
  ask patches with [z1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 3.05]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.05]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.025]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.765]
end 

to wetland-z1
  ask patches with [z1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 3.05]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.1]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.45]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.5]
end 

to wetland-z2-12
  ask patches with [z2 = 2 and socioeco <= 100 ] [set socioeco socioeco + 3.05]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.135]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.155]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.29]
end 

to wetland-z2-25
  ask patches with [z2 = 2 and socioeco <= 100 ] [set socioeco socioeco + 3.05]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.275]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.29]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + .58]
end 

to wetland-z2-50
  ask patches with [z2 = 2 and socioeco <= 100 ] [set socioeco socioeco + 3.05]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.55]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.55]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.15]
end 

to wetland-z3-12
  ask patches with [z3 = 3 and socioeco <= 100 ] [set socioeco socioeco + 3.05]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.27]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.035]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.02]
end 

to wetland-z3-25
  ask patches with [z3 = 3 and socioeco <= 100 ] [set socioeco socioeco + 3.05]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.54]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.07]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.04]
end 

to wetland-z3-50
  ask patches with [z3 = 3 and socioeco <= 100 ] [set socioeco socioeco + 3.05]
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.095]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.14]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.125]
end 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; WATER EXTRACTION

to wells-increase
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco - 9.212]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco - 47.07]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco - 36.845]
end 

to lagoon
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.025]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 2.985]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 4.345]
end 

to lagoon-z2
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.75]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 12.65]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 3.04]
end 

to lagoon-z3
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.445]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 16.3]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 5.915]
end 

to well
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 2.21]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 2.21]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 2.21]
end 

to well-z2
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 2.21]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 2.21]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 2.21]
end 

to well-z3
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 2.21]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 2.21]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 2.21]
end 

to inyection
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.115]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.34]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.445]
end 

to vegetation_low
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.44]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.17]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.87]
end 

to vegetation_high
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.095]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.525]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.025]
end 

to terracing_low
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.31]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.83]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.325]
end 

to terracing_high
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.065]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.395]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.725]
end 

to vegetationterracing_low
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.575]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.53]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 2.44]
end 

to vegetationterracing_high
  ask patches with [aquifer1 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.125]
  ask patches with [aquifer2 = 1 and socioeco <= 100 ] [set socioeco socioeco + 0.685]
  ask patches with [aquifer3 = 1 and socioeco <= 100 ] [set socioeco socioeco + 1.335]
end 


; TO WORK WITH NEIGHBOURS

to regeneration-10
if (z1 = 1) and (socioeco >= 25)
  [ask neighbors [set pcolor magenta]]
end 

to regeneration-20
if ( pcolor = magenta) and (socioeco >= 25)
  [ask neighbors [set pcolor magenta]]
end 

to regeneration-30
if ( pcolor = magenta) and (socioeco >= 25)
  [ask neighbors [set pcolor magenta]]
end 





; TO STORE!

to store
  let patches_out nobody
  ask one-of patches [
    set patches_out gis:patch-dataset pcolor
  ]
  gis:store-dataset patches_out "R_E_Process_20y2.asc"
end 

There is only one version of this model, created over 4 years ago by Emma Paola Flores Herrera.

Attached files

No files

This model does not have any ancestors.

This model does not have any descendants.