Enhancing Ecological Education: Utilizing Agent-Based Modeling To Simplify The Impacts Of Deforestation On Amphibians
Model was written in NetLogo 6.3.0
•
Viewed 126 times
•
Downloaded 9 times
•
Run 0 times
Do you have questions or comments about this model? Ask them here! (You'll first need to log in.)
Info tab cannot be displayed because of an encoding error
Comments and Questions
Please start the discussion about this model!
(You'll first need to log in.)
Click to Run Model
; especies Dendropsophus mathiassoni,No bosque ; Amazophrynella minuta Leptodactylus petersii Pristimantis variabilis, borde ; Engystomops petersi Pristimantis acuminatus Pristimantis conspicillatus bosque globals [capacidad_huir_potrero capacidad_huir_borde capacidad_huir_bosque tiempo_de_reproduccion_borde tasa-abandono] ; Todas las tortugas poseen energia, pueden consumirla y recuperarla turtles-own [energia] ;La tierra tiene tres estados, borde abandono y bosque. Cada estado tiene sus valores de temperatura, humedad relativa y dosel patches-own [bordear abandono reforestado potrerizado temperatura humedad dosel ] breed [ potreros potrero ] ; grupo 1: Dendropsophus mathiassoni,No bosque breed [ bordes borde ] ; Grupo 2: Amazophrynella minuta, Leptodactylus petersii, Pristimantis variabilis, borde breed [ bosques bosque ]; Grupo 3: Engystomops petersi, Pristimantis acuminatus, Pristimantis conspicillatus, bosque To Neutral_Values set Pasture_population 15 set Forest_edge_population 4 set Forest_interior_population 5 set tasa-restauracion 50 set tasa-abandono 30 set tasa-deforestacion 50 set capacidad_huir_potrero 4 set capacidad_huir_borde 5 set capacidad_huir_bosque 2 set tiempo_de_reproduccion_borde 10 end to setup resize-world 0 90 0 60 clear-all ;Se segmenta el mundo en potrero, borde y bosque. Se ponen colores para diferenciarlos set capacidad_huir_potrero 4 set capacidad_huir_borde 5 set capacidad_huir_bosque 2 ask patches with [ pxcor <= 30 and pxcor >= min-pxcor and pycor <= 60 and pycor >= min-pycor ] [ set pcolor 35 set temperatura 26.5 set dosel 1 set humedad 90.4 ] ;Potrero ask patches with [ pxcor <= 60 and pxcor >= 30 and pycor <= 60 and pycor >= min-pycor ] [ set pcolor 44 set temperatura 29 set dosel 84.3 set humedad 79.3; ] ;Borde ask patches with [ pxcor <= 90 and pxcor >= 60 and pycor <= 60 and pycor >= min-pycor ] [ set pcolor 66 set temperatura 26.3 set dosel 85.2 set humedad 94 ; ] ;Bosque ;se establece la forma de la rana set-default-shape turtles "frog top" ; Se establecen las condiciones de las ranas, tamaño color y lugar de aparicion. La energia sera igual en todas las ranas en el set up. create-potreros Pasture_population [ set size 3 ;; easier to see set color yellow setxy random xcor random ycor move-to one-of patches with [pcolor = 35] set heading random 45 + 45 set energia 50 ] ;; red = not carrying food ;Potrero create-bordes Forest_edge_population [ set size 3 ;; easier to see set color blue setxy random xcor random ycor move-to one-of patches with [pcolor = 44] set energia 50 set heading random 360 ] ; Borde create-bosques Forest_interior_population [ set size 3 ;; easier to see set color green setxy random xcor random ycor move-to one-of patches with [pcolor = 66] set energia 50 set heading random 45 + 45 ] ; Bosque reset-ticks end to go ask potreros [ morir-r if energia < 20 [descansar-potrero] if energia >= 20 and energia <= 80 [move-potrero] if energia > 80 [ if ticks mod 10 = 0 [reproducirse-potrero]] set heading random 360 fd 1 set energia energia - 2 ] ask bordes [ morir if energia < 20 [descansar-borde] if energia >= 20 and energia <= 80 [move-borde] if energia > 80 [ if ticks mod 10 = 0 [reproducirse-borde]] ifelse Tasa-restauracion > 50 [set heading (45 + random 315)][set heading random 360] fd 1 set energia energia - 2 ] ask bosques [ morir if energia < 20 [descansar-bosque] if energia >= 20 and energia <= 80 [move-bosque] if energia > 80 [ if ticks mod 10 = 0 [reproducirse-bosque]] set heading random 360 fd 1 set energia energia - 2 ] ask patches [restauracion] ask patches [deforestacion] ask patches [abandonacion] ask patches [borderizacion] if ticks >= 300 [stop] tick end to restauracion set reforestado 0 if pcolor = 35 [ set reforestado count neighbors with [pcolor = 44 or pcolor = 25 or pcolor = 75] ] if reforestado >= 3 [if random 100 <= tasa-restauracion and tasa-restauracion > 0 [ set pcolor 75 set temperatura 24.4 + random 3 set humedad 91 + random 9 set dosel 82 + random 5 ] ] end to deforestacion set potrerizado 0 if pcolor = 44 or pcolor = 25 or pcolor = 75 or pcolor = 66 [ set potrerizado count neighbors with [pcolor = 35] ] if potrerizado >= 3 [if random 100 <= tasa-deforestacion [ set pcolor 35 set temperatura 22.7 + random 5 set humedad 84.5 + random 10 set dosel 0 + random 10] ] end to abandonacion set abandono 0 if tasa-deforestacion <= 0 and tasa-restauracion <= 0[ if pcolor = 35 [ set abandono count neighbors with [pcolor = 44 or pcolor = 25] ] if abandono >= 3 [if random 100 <= tasa-abandono [ set pcolor 25 set temperatura 24.6 + random 8 set humedad 68 + random 14 set dosel 79 + random 9] ] ] end to borderizacion set bordear 0 if pcolor = 44 or pcolor = 25 or pcolor = 35 [ set bordear count neighbors with [pcolor = 66] ] if bordear >= 3 [if random 100 <= (tasa-restauracion - tasa-deforestacion) [ set pcolor 66 set temperatura 24.4 + random 3 set humedad 91 + random 9 set dosel 82 + random 5 ] ] end to move-potrero ask turtles in-radius 4 [ ifelse temperatura >= 28.6 or temperatura <= 22.6 or dosel >= 5 or humedad <= 84 [ if any? patches in-radius Capacidad_huir_Potrero with [(temperatura >= 22.6 or dosel <= 5 or humedad >= 85) and (pcolor = 35 or pcolor = 44 or pcolor = 25 or pcolor = 75)][ face one-of patches in-radius Capacidad_huir_Potrero with [(temperatura >= 22.6 or dosel <= 5 or humedad >= 85) and (pcolor = 35 or pcolor = 44 or pcolor = 25 or pcolor = 75)] fd Capacidad_huir_Potrero set energia energia - 10 ]] [descansar-potrero] ] end to descansar-potrero ifelse pcolor = 35 [ if energia <= 200 [set energia energia + 6]] [set energia energia + 1] end to move-borde ask turtles in-radius 5 [ifelse temperatura >= 33.0 or temperatura <= 24.6 or dosel <= 80 or humedad <= 68 [ if any? patches in-radius Capacidad_huir_borde with [(temperatura >= 24.6 or dosel >= 80 or humedad >= 70) and (pcolor = 44 or pcolor = 66 or pcolor = 75 or pcolor = 25)][ face one-of patches in-radius Capacidad_huir_borde with [(temperatura >= 24.6 or dosel >= 80 or humedad >= 70) and (pcolor = 44 or pcolor = 66 or pcolor = 75 or pcolor = 25)] fd Capacidad_huir_borde set energia energia - 10]] [descansar-borde] ] end to descansar-borde ifelse pcolor = 44 or pcolor = 66 or pcolor = 75 [ if energia <= 200 [set energia energia + 6]] [set energia energia + 1] end to move-bosque ask turtles in-radius 2 [ifelse temperatura >= 28.3 or temperatura <= 24.3 or dosel <= 82 or humedad <= 91 [ if any? patches in-radius Capacidad_huir_bosque with [(temperatura >= 24.4 or dosel >= 82 or humedad >= 92 and pcolor = 66 or pcolor = 44 or pcolor = 70)][ face one-of patches in-radius Capacidad_huir_bosque with [(temperatura >= 24.4 or dosel >= 82 or humedad >= 92) and (pcolor = 66 or pcolor = 44 or pcolor = 70)] fd Capacidad_huir_bosque set energia energia - 10]] [descansar-bosque] ] end to descansar-bosque ifelse pcolor = 66 or pcolor = 70 [ if energia <= 200 [set energia energia + 6]] [set energia energia + 1] end to reproducirse-potrero if energia > 80 and count potreros < 100 [ if random 100 > 50 [set energia energia - 60 hatch 1 [ rt random-float 360 fd 2 set energia energia / 3]]] end to reproducirse-borde if energia > 80 and count bordes < 100 [ if random 100 > 50 [set energia energia - 73 hatch 1 [ rt random-float 360 fd 2 set energia energia / 3]]] end to reproducirse-bosque if energia > 80 and count bosques < 100 [ if random 100 > 50 [set energia energia - 67 hatch 1 [ rt random-float 360 fd 2 set energia energia / 3]]] end to morir-r if ticks mod 10 = 0 [if random 100 > 80[die]] if energia < 1 [die] end to morir if ticks mod 10 = 0 [if random 100 > 95[die]] if energia < 1 [die] end
There are 3 versions of this model.
Attached files
File | Type | Description | Last updated | |
---|---|---|---|---|
Enhancing Ecological Education: Utilizing Agent-Based Modeling To Simplify The Impacts Of Deforestation On Amphibians.png | preview | Preview Image | 19 days ago, by Martín Otalora | Download |
Parent: Edge Effect on Frogs of Caqueta, Colombia
This model does not have any descendants.