Matriz Agroecológica

patches-own [
  tipo
  nuevos_organismos

  prob_mortalidad
  prob_movimiento

  grupo

  vals
  estado
  tiempo_desde_quemado
]

turtles-own [
  vivo?
]

globals [
  num_grupos
  p             ;; parámetro para crear paisajes con el ruido de perlin
]

to setup
;  clear-all
  clear-globals
  clear-ticks
  clear-turtles
  clear-patches
  clear-drawing
  clear-output
  inicializar_graficas

  inicializar_paisaje
  inicializar_poblacion

  colorear_cuadros

  reset-ticks
end 

to go


  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;;;;;;;; MODELO FAHRIG ;;;;;;;;;;
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ask patches [
    sprout nuevos_organismos [
      inicialiar_agente
    ]
    actualizar_variables_celda
  ]
  ask turtles with [ vivo? = false ] [ die ]
  ask turtles [
    foreach shuffle [ "mortalidad" "movimiento" "reproduccion" ] [ procedimiento -> run procedimiento ]
  ]
  mortalidad_sobreabundancia
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  actualizar_matriz_paisaje

  if random-float 1.0 < PROB_INCENDIOS [
    let origen ifelse-value INCENDIOS_SOLO_EN_BOSQUE? [ one-of patches with [ tipo = "bosque" ] ][ one-of patches ]
    iniciar_incendio [pxcor] of origen [pycor] of origen
  ]

  extender_incendio
  ask patches with [ estado = "quemandose" ][ ask turtles-here [ die ]]
  colorear_cuadros


  tick
end 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;; MODELO FAHRIG ;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

to mortalidad
  if random-float 1.00 < prob_mortalidad [
    set vivo? false
  ]
end 

to movimiento
  if random-float 1.00 < prob_movimiento  [
    if FORMA_MOVIMIENTO = "saltos (fahrig)" [
      set heading random 360
      jump one-of [ 1 2 3 4 ]
    ]
    if FORMA_MOVIMIENTO = "caminata aleatoria 360" [
      set heading random 360
      fd 1
    ]
    if FORMA_MOVIMIENTO = "caminata aleatoria 90" [
      rt random-float 90
      lt random-float 90
      jump 1
    ]
    if FORMA_MOVIMIENTO = "caminata aleatoria 4 vecinos" [
      set heading one-of [ 0 90 180 270 ]
      fd 1
    ]
    if FORMA_MOVIMIENTO = "movimiento browniano" [
      set heading random 360
      fd random-normal 0 1
    ]
    if FORMA_MOVIMIENTO = "vuelo de levy" [
      set heading random 360
      fd .5 * (random-float 1) ^ (-1 / 2.5)
    ]
  ]
end 

to reproduccion
  if tipo = "bosque" and random-float 1.00 < PROB_REPRODUCCION [
    set nuevos_organismos nuevos_organismos + 1
  ]
end 

to mortalidad_sobreabundancia
  ask patches [
    if count turtles-here > CAPACIDAD_MAX_CELDA [
      ask n-of ( count turtles-here - CAPACIDAD_MAX_CELDA ) turtles-here [ die ]
    ]
  ]
end 

to actualizar_variables_celda
  set nuevos_organismos 0

  if tipo = "bosque" [
    set prob_mortalidad PROB_MORTALIDAD_BOSQUE
    set prob_movimiento PROB_MOVIMIENTO_BOSQUE
  ]

  if tipo = "agri. baja intensidad" [
    set prob_mortalidad PROB_MORTALIDAD_AGRI_BAJA_INT
    set prob_movimiento PROB_MOVIMIENTO_AGRI_BAJA_INT
  ]

  if tipo = "agri. alta intensidad" [
    set prob_mortalidad PROB_MORTALIDAD_AGRI_ALTA_INT
    set prob_movimiento PROB_MOVIMIENTO_AGRI_ALTA_INT
  ]
end 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

to inicializar_paisaje
  ask patches [
    set grupo -999
    set estado "NA"
    set tiempo_desde_quemado -999
  ]
  ;; se crean los parches de hábitat de acuerdo al algoritmo seleccionado
  if PAISAJE = "sólo bosque" [ inicializar_paisaje_solo_habitat ]
  if PAISAJE = "cuadricula regular" [ inicializar_paisaje_cuadricula_regular ]
  if PAISAJE = "fahrig fragmentado" [ inicializar_paisaje_fragmentado ]
  if PAISAJE = "ruido de perlin" [ inicializar_paisaje_ruido_perlin ]
  if PAISAJE = "bordes" [ inicializar_paisaje_bordes ]

   ;el resto del pasiaje se crea de forma aleatoria
 ask patches with [ tipo != "bosque" ][
   ifelse random-float 1.0 > PROP_AGRI_ALTA_INT [ set tipo "agri. baja intensidad" ][ set tipo "agri. alta intensidad"]
 ]
  ask patches with [ tipo != "bosque" ][ set tipo "agri. baja intensidad" ]
  actualizar_matriz_paisaje

   if PAISAJE = "Zaachila" [ inicializar_paisaje_zaa]

  ask patches [ actualizar_variables_celda ]
  formar_vecindades
end 

to actualizar_matriz_paisaje
  while [ count patches with [ tipo = "agri. alta intensidad" ] > round (PROP_AGRI_ALTA_INT * count patches with [ tipo != "bosque" ]) ] [
    ;; hay más celdas de matríz 2 que la que debería
    ask one-of patches with [ tipo = "agri. alta intensidad" ] [
      set tipo "agri. baja intensidad"
    ]
  ]
  while [ count patches with [ tipo = "agri. alta intensidad" ] < round (PROP_AGRI_ALTA_INT * count patches with [ tipo != "bosque" ]) ] [
    ;; hay más celdas de matríz 2 que la que debería
    ask one-of patches with [ tipo = "agri. baja intensidad" ] [
      set tipo "agri. alta intensidad"
    ]
  ]
end 

to inicializar_paisaje_ruido_perlin
  ask patches [ set vals [] ]
  let octavas 8
  let umbral 0.2
  foreach range octavas [
    set p shuffle range 256
    ask patches [
      set vals lput (perlin_noise (0.3 * pxcor) (0.3 * pycor)) vals
    ]
  ]
  ask patches [
    if (sum vals > umbral) [ set tipo "bosque" ]
  ]
end 

to inicializar_paisaje_fragmentado
  while [ count patches with [ tipo = "bosque" ] != round (COVERTURA * count patches ) ] [
    ask one-of patches [
      if tipo != "bosque" [
        if random-float 1.00 < FRAGMENTACION or any? neighbors4 with [ tipo = "bosque" ][
          set tipo "bosque"
        ]
      ]
    ]
  ]
end 

to inicializar_paisaje_solo_habitat
  ask patches [ set tipo "bosque" ]
end 

to inicializar_paisaje_bordes
  ask patches with [pxcor <= LONG_BORDE] [ set tipo "bosque" ]
  ask patches with [pxcor >= max-pxcor - LONG_BORDE] [  set tipo "bosque" ]
end 

to inicializar_paisaje_cuadricula_regular
  generar_cuadricula_regular_habitat
end 

to generar_cuadricula_regular_habitat
  let tamanio_cuadro LONG_CUADRO
  let tamanio_espacio LONG_ESPACIO

  let contador_espacio_y 0
  let contador_cuadro_y 0

  foreach sort remove-duplicates [pycor] of patches [
    cy ->
    set contador_espacio_y contador_espacio_y + 1
    if contador_espacio_y > tamanio_espacio [

      let contador_espacio_x 0
      let contador_cuadro_x 0

      foreach sort remove-duplicates [pxcor] of patches [
        cx ->
        set contador_espacio_x contador_espacio_x + 1
        if contador_espacio_x > tamanio_espacio [
          ask patch cx cy [
            set tipo "bosque"
          ]
          set contador_cuadro_x contador_cuadro_x + 1
          if contador_cuadro_x > tamanio_cuadro [
            set contador_espacio_x 0
            set contador_cuadro_x 0
          ]
        ]
      ]
      set contador_cuadro_y contador_cuadro_y + 1
      if contador_cuadro_y > tamanio_cuadro [
        set contador_cuadro_y 0
        set contador_espacio_y 0
      ]
    ]
  ]
end 

to  inicializar_paisaje_zaa
  set PROP_AGRI_ALTA_INT 0.25
  let data [[21 22 "bosque"] [45 9 "bosque"] [22 13 "agri. alta intensidad"] [9 26 "bosque"] [9 27 "bosque"] [34 3 "agri. alta intensidad"] [42 18 "bosque"] [12 23 "agri. baja intensidad"] [48 31 "bosque"] [21 13 "agri. alta intensidad"] [16 28 "bosque"] [16 25 "bosque"] [3 22 "bosque"] [37 30 "agri. baja intensidad"] [54 9 "bosque"] [51 11 "bosque"] [45 18 "bosque"] [33 19 "agri. baja intensidad"] [8 8 "bosque"] [31 26 "agri. baja intensidad"] [4 13 "bosque"] [51 2 "bosque"] [36 20 "agri. baja intensidad"] [15 22 "bosque"] [35 11 "agri. baja intensidad"] [54 1 "bosque"] [24 25 "agri. baja intensidad"] [26 15 "agri. baja intensidad"] [0 16 "bosque"] [17 19 "agri. baja intensidad"] [13 9 "bosque"] [31 16 "agri. baja intensidad"] [34 28 "agri. alta intensidad"] [22 30 "agri. baja intensidad"] [37 0 "agri. baja intensidad"] [49 25 "bosque"] [20 30 "agri. baja intensidad"] [0 23 "bosque"] [50 2 "bosque"] [11 6 "bosque"] [1 8 "bosque"] [29 31 "agri. baja intensidad"] [37 16 "bosque"] [34 9 "agri. alta intensidad"] [21 11 "agri. baja intensidad"] [11 15 "bosque"] [28 26 "agri. alta intensidad"] [1 23 "bosque"] [18 12 "agri. baja intensidad"] [13 3 "bosque"] [4 9 "bosque"] [45 24 "bosque"] [37 27 "agri. baja intensidad"] [15 1 "bosque"] [40 32 "bosque"] [21 10 "agri. baja intensidad"] [0 11 "bosque"] [33 7 "agri. alta intensidad"] [9 24 "bosque"] [18 10 "agri. baja intensidad"] [11 16 "bosque"] [9 4 "bosque"] [24 10 "agri. baja intensidad"] [11 10 "agri. baja intensidad"] [41 17 "bosque"] [36 1 "agri. baja intensidad"] [8 4 "bosque"] [29 26 "agri. baja intensidad"] [33 28 "agri. alta intensidad"] [2 23 "bosque"] [54 0 "bosque"] [6 25 "bosque"] [16 26 "bosque"] [19 16 "bosque"] [29 3 "agri. baja intensidad"] [42 3 "bosque"] [43 12 "bosque"] [48 26 "bosque"] [10 2 "bosque"] [44 11 "bosque"] [46 24 "bosque"] [31 8 "agri. baja intensidad"] [30 18 "agri. baja intensidad"] [34 21 "agri. alta intensidad"] [12 25 "bosque"] [7 27 "bosque"] [49 8 "bosque"] [7 2 "bosque"] [49 9 "bosque"] [7 25 "bosque"] [6 10 "bosque"] [12 24 "agri. baja intensidad"] [25 7 "agri. baja intensidad"] [27 17 "agri. baja intensidad"] [20 29 "agri. baja intensidad"] [23 21 "bosque"] [37 24 "agri. alta intensidad"] [20 4 "agri. baja intensidad"] [44 16 "bosque"] [4 17 "bosque"] [2 6 "bosque"] [15 13 "bosque"] [32 4 "agri. alta intensidad"] [35 23 "agri. alta intensidad"] [8 14 "bosque"] [25 24 "agri. baja intensidad"] [4 15 "bosque"] [40 18 "agri. baja intensidad"] [53 22 "bosque"] [46 16 "bosque"] [34 4 "agri. alta intensidad"] [48 32 "bosque"] [17 25 "bosque"] [49 30 "bosque"] [30 6 "agri. baja intensidad"] [10 5 "bosque"] [47 30 "bosque"] [32 2 "agri. baja intensidad"] [48 11 "bosque"] [53 13 "bosque"] [3 1 "bosque"] [46 3 "bosque"] [13 7 "agri. baja intensidad"] [36 32 "agri. baja intensidad"] [39 20 "agri. baja intensidad"] [2 20 "bosque"] [20 7 "agri. baja intensidad"] [39 12 "bosque"] [44 26 "bosque"] [13 12 "agri. baja intensidad"] [39 3 "bosque"] [20 9 "agri. baja intensidad"] [38 20 "agri. baja intensidad"] [52 8 "bosque"] [24 16 "agri. baja intensidad"] [3 25 "bosque"] [31 32 "agri. baja intensidad"] [18 23 "bosque"] [27 8 "agri. baja intensidad"] [35 13 "agri. baja intensidad"] [52 9 "bosque"] [10 32 "bosque"] [9 21 "bosque"] [5 29 "bosque"] [3 30 "bosque"] [48 29 "bosque"] [3 10 "bosque"] [33 0 "agri. baja intensidad"] [48 4 "bosque"] [1 14 "bosque"] [43 7 "bosque"] [17 32 "bosque"] [37 12 "agri. baja intensidad"] [48 22 "bosque"] [42 13 "bosque"] [42 2 "agri. baja intensidad"] [31 25 "agri. baja intensidad"] [6 4 "bosque"] [11 21 "bosque"] [22 14 "agri. alta intensidad"] [28 20 "agri. baja intensidad"] [18 7 "agri. baja intensidad"] [24 27 "bosque"] [4 22 "bosque"] [42 9 "agri. baja intensidad"] [46 0 "bosque"] [23 2 "agri. alta intensidad"] [9 2 "bosque"] [10 8 "bosque"] [4 32 "bosque"] [12 9 "bosque"] [33 13 "agri. alta intensidad"] [9 7 "bosque"] [9 28 "bosque"] [21 18 "agri. baja intensidad"] [14 10 "agri. baja intensidad"] [13 24 "bosque"] [45 31 "bosque"] [26 27 "agri. baja intensidad"] [23 7 "agri. baja intensidad"] [39 8 "agri. baja intensidad"] [38 25 "agri. baja intensidad"] [12 26 "bosque"] [22 19 "agri. baja intensidad"] [46 32 "bosque"] [49 29 "bosque"] [32 3 "agri. alta intensidad"] [27 4 "agri. baja intensidad"] [19 29 "agri. baja intensidad"] [46 8 "bosque"] [38 1 "agri. baja intensidad"] [21 3 "agri. baja intensidad"] [33 18 "agri. alta intensidad"] [26 10 "agri. baja intensidad"] [19 25 "bosque"] [11 30 "bosque"] [41 22 "agri. baja intensidad"] [51 25 "bosque"] [0 4 "bosque"] [32 21 "agri. alta intensidad"] [26 20 "agri. baja intensidad"] [10 28 "bosque"] [37 28 "agri. baja intensidad"] [11 29 "bosque"] [11 5 "bosque"] [17 28 "agri. baja intensidad"] [16 30 "bosque"] [42 27 "bosque"] [42 12 "bosque"] [45 4 "bosque"] [19 32 "agri. baja intensidad"] [33 10 "agri. alta intensidad"] [3 21 "bosque"] [44 13 "bosque"] [0 18 "bosque"] [28 5 "agri. baja intensidad"] [16 11 "agri. baja intensidad"] [10 3 "bosque"] [48 25 "bosque"] [9 25 "bosque"] [40 22 "agri. baja intensidad"] [25 21 "agri. baja intensidad"] [8 19 "bosque"] [16 15 "bosque"] [30 31 "agri. baja intensidad"] [16 6 "agri. baja intensidad"] [8 6 "bosque"] [22 1 "agri. baja intensidad"] [19 22 "bosque"] [6 19 "bosque"] [47 1 "bosque"] [33 8 "agri. alta intensidad"] [26 22 "agri. baja intensidad"] [43 29 "bosque"] [0 26 "bosque"] [23 23 "agri. baja intensidad"] [47 16 "bosque"] [1 15 "bosque"] [4 18 "bosque"] [46 9 "bosque"] [40 5 "agri. baja intensidad"] [32 25 "agri. baja intensidad"] [36 28 "agri. baja intensidad"] [8 12 "bosque"] [28 9 "agri. baja intensidad"] [38 15 "agri. baja intensidad"] [6 12 "bosque"] [54 15 "bosque"] [28 4 "agri. baja intensidad"] [0 9 "bosque"] [32 20 "agri. alta intensidad"] [22 6 "agri. baja intensidad"] [1 19 "bosque"] [24 30 "agri. baja intensidad"] [4 29 "bosque"] [38 7 "bosque"] [18 29 "agri. baja intensidad"] [8 22 "bosque"] [53 7 "bosque"] [33 17 "agri. alta intensidad"] [2 12 "bosque"] [48 16 "bosque"] [2 27 "bosque"] [37 25 "agri. alta intensidad"] [2 10 "bosque"] [35 29 "agri. alta intensidad"] [25 5 "agri. baja intensidad"] [9 15 "bosque"] [1 17 "bosque"] [13 27 "bosque"] [52 15 "bosque"] [49 20 "bosque"] [46 19 "bosque"] [2 8 "bosque"] [39 5 "agri. baja intensidad"] [38 22 "agri. baja intensidad"] [45 14 "bosque"] [38 23 "agri. baja intensidad"] [18 22 "agri. baja intensidad"] [47 10 "bosque"] [43 16 "bosque"] [23 18 "agri. alta intensidad"] [35 3 "agri. alta intensidad"] [40 21 "agri. baja intensidad"] [24 31 "agri. baja intensidad"] [37 11 "bosque"] [26 25 "agri. alta intensidad"] [6 6 "bosque"] [43 26 "bosque"] [23 15 "agri. baja intensidad"] [10 14 "bosque"] [18 3 "agri. baja intensidad"] [46 7 "bosque"] [51 0 "bosque"] [36 18 "agri. baja intensidad"] [1 9 "bosque"] [41 10 "agri. baja intensidad"] [27 13 "agri. baja intensidad"] [1 4 "bosque"] [46 15 "bosque"] [39 23 "agri. baja intensidad"] [12 29 "bosque"] [39 32 "bosque"] [38 0 "agri. baja intensidad"] [47 21 "bosque"] [16 3 "agri. baja intensidad"] [7 8 "bosque"] [40 4 "bosque"] [20 12 "agri. alta intensidad"] [42 24 "bosque"] [7 13 "bosque"] [42 1 "bosque"] [15 15 "bosque"] [18 0 "agri. baja intensidad"] [48 27 "bosque"] [12 31 "bosque"] [40 13 "bosque"] [28 8 "agri. baja intensidad"] [46 14 "bosque"] [1 29 "bosque"] [49 16 "bosque"] [13 32 "bosque"] [24 18 "agri. alta intensidad"] [4 5 "bosque"] [47 12 "bosque"] [49 21 "bosque"] [43 14 "bosque"] [19 2 "agri. baja intensidad"] [28 23 "agri. baja intensidad"] [35 19 "agri. alta intensidad"] [17 31 "agri. baja intensidad"] [29 14 "agri. alta intensidad"] [42 6 "bosque"] [29 23 "agri. baja intensidad"] [26 1 "agri. baja intensidad"] [29 32 "agri. baja intensidad"] [14 27 "bosque"] [46 11 "bosque"] [40 12 "bosque"] [41 23 "bosque"] [48 5 "bosque"] [25 13 "agri. baja intensidad"] [10 13 "bosque"] [16 14 "bosque"] [8 17 "bosque"] [31 11 "agri. alta intensidad"] [26 21 "agri. baja intensidad"] [35 32 "agri. baja intensidad"] [47 5 "bosque"] [18 31 "agri. baja intensidad"] [7 14 "bosque"] [17 9 "agri. baja intensidad"] [44 18 "bosque"] [21 6 "agri. baja intensidad"] [44 8 "bosque"] [43 25 "bosque"] [45 5 "bosque"] [3 6 "bosque"] [10 17 "bosque"] [1 6 "bosque"] [29 28 "agri. baja intensidad"] [11 17 "bosque"] [11 13 "agri. baja intensidad"] [6 18 "bosque"] [7 29 "bosque"] [27 10 "agri. baja intensidad"] [7 0 "bosque"] [42 10 "agri. baja intensidad"] [30 7 "agri. baja intensidad"] [0 5 "bosque"] [37 8 "agri. alta intensidad"] [19 0 "agri. baja intensidad"] [42 23 "bosque"] [23 1 "agri. baja intensidad"] [24 6 "agri. baja intensidad"] [3 9 "bosque"] [47 11 "bosque"] [19 7 "agri. baja intensidad"] [44 4 "bosque"] [50 5 "bosque"] [11 24 "bosque"] [54 32 "bosque"] [27 11 "agri. baja intensidad"] [30 20 "agri. alta intensidad"] [54 31 "bosque"] [39 13 "bosque"] [31 1 "agri. baja intensidad"] [39 28 "bosque"] [45 2 "bosque"] [22 16 "agri. alta intensidad"] [12 7 "bosque"] [2 26 "bosque"] [44 19 "bosque"] [37 21 "agri. baja intensidad"] [10 27 "bosque"] [45 11 "bosque"] [44 3 "bosque"] [25 17 "agri. alta intensidad"] [45 3 "bosque"] [22 12 "agri. alta intensidad"] [19 30 "bosque"] [41 11 "agri. baja intensidad"] [36 4 "agri. baja intensidad"] [30 27 "agri. baja intensidad"] [3 29 "bosque"] [20 11 "agri. baja intensidad"] [45 22 "bosque"] [14 1 "bosque"] [13 29 "bosque"] [35 25 "agri. alta intensidad"] [4 19 "bosque"] [43 11 "bosque"] [6 29 "bosque"] [26 29 "agri. baja intensidad"] [34 24 "agri. alta intensidad"] [52 11 "bosque"] [5 24 "bosque"] [40 9 "agri. baja intensidad"] [21 7 "agri. baja intensidad"] [2 30 "bosque"] [50 30 "bosque"] [22 10 "agri. baja intensidad"] [14 26 "bosque"] [42 7 "bosque"] [21 25 "agri. baja intensidad"] [25 16 "agri. baja intensidad"] [50 28 "bosque"] [19 24 "agri. baja intensidad"] [20 15 "agri. alta intensidad"] [18 24 "agri. baja intensidad"] [49 26 "bosque"] [17 20 "bosque"] [19 23 "agri. baja intensidad"] [12 28 "bosque"] [46 1 "bosque"] [18 18 "agri. baja intensidad"] [14 21 "bosque"] [33 12 "agri. alta intensidad"] [12 11 "bosque"] [2 13 "bosque"] [34 7 "agri. alta intensidad"] [34 12 "agri. alta intensidad"] [25 6 "agri. baja intensidad"] [7 4 "bosque"] [23 3 "agri. alta intensidad"] [46 30 "bosque"] [22 24 "agri. baja intensidad"] [11 14 "agri. baja intensidad"] [36 11 "agri. baja intensidad"] [3 5 "bosque"] [46 31 "bosque"] [34 13 "agri. baja intensidad"] [4 8 "bosque"] [12 27 "bosque"] [26 28 "agri. baja intensidad"] [43 2 "bosque"] [24 1 "agri. baja intensidad"] [14 8 "bosque"] [42 17 "bosque"] [23 25 "agri. baja intensidad"] [40 31 "agri. baja intensidad"] [20 27 "agri. baja intensidad"] [41 1 "agri. baja intensidad"] [24 9 "agri. baja intensidad"] [32 12 "agri. baja intensidad"] [32 15 "agri. alta intensidad"] [23 28 "agri. baja intensidad"] [36 26 "agri. alta intensidad"] [11 22 "bosque"] [6 27 "bosque"] [51 24 "bosque"] [0 7 "bosque"] [29 17 "agri. baja intensidad"] [3 18 "bosque"] [22 25 "agri. baja intensidad"] [25 19 "agri. alta intensidad"] [49 18 "bosque"] [0 3 "bosque"] [41 7 "bosque"] [9 18 "bosque"] [25 11 "agri. alta intensidad"] [42 4 "bosque"] [51 32 "bosque"] [45 19 "bosque"] [29 13 "agri. baja intensidad"] [11 32 "bosque"] [38 17 "bosque"] [47 0 "bosque"] [6 5 "bosque"] [41 4 "bosque"] [39 29 "bosque"] [15 23 "agri. baja intensidad"] [21 1 "agri. baja intensidad"] [32 1 "agri. alta intensidad"] [33 16 "agri. alta intensidad"] [13 15 "agri. baja intensidad"] [51 7 "bosque"] [31 2 "agri. baja intensidad"] [12 8 "bosque"] [14 2 "agri. baja intensidad"] [10 21 "bosque"] [30 15 "agri. alta intensidad"] [28 6 "agri. baja intensidad"] [42 25 "bosque"] [40 24 "agri. baja intensidad"] [25 12 "agri. baja intensidad"] [7 23 "bosque"] [9 12 "bosque"] [36 0 "agri. baja intensidad"] [51 22 "bosque"] [21 4 "agri. baja intensidad"] [37 14 "agri. baja intensidad"] [23 32 "agri. baja intensidad"] [46 21 "bosque"] [37 1 "agri. baja intensidad"] [17 2 "agri. baja intensidad"] [45 0 "bosque"] [39 0 "agri. baja intensidad"] [22 3 "agri. baja intensidad"] [41 6 "bosque"] [30 10 "agri. alta intensidad"] [42 32 "bosque"] [11 4 "bosque"] [32 16 "agri. baja intensidad"] [52 12 "bosque"] [16 32 "bosque"] [30 8 "agri. baja intensidad"] [33 30 "agri. alta intensidad"] [28 13 "agri. baja intensidad"] [17 7 "bosque"] [13 6 "agri. baja intensidad"] [19 9 "agri. baja intensidad"] [50 0 "bosque"] [11 1 "bosque"] [35 0 "agri. baja intensidad"] [40 1 "bosque"] [20 26 "agri. baja intensidad"] [2 18 "bosque"] [2 11 "bosque"] [24 24 "agri. baja intensidad"] [19 31 "agri. baja intensidad"] [19 8 "agri. baja intensidad"] [22 29 "agri. baja intensidad"] [14 20 "bosque"] [50 17 "bosque"] [29 10 "agri. baja intensidad"] [29 18 "agri. baja intensidad"] [21 23 "agri. baja intensidad"] [13 13 "bosque"] [36 2 "agri. baja intensidad"] [53 29 "bosque"] [15 4 "agri. baja intensidad"] [22 26 "agri. baja intensidad"] [44 20 "bosque"] [14 15 "agri. baja intensidad"] [50 3 "bosque"] [43 5 "bosque"] [22 5 "agri. alta intensidad"] [23 22 "agri. baja intensidad"] [36 16 "agri. baja intensidad"] [30 3 "agri. baja intensidad"] [50 8 "bosque"] [43 17 "bosque"] [23 17 "agri. baja intensidad"] [50 20 "bosque"] [16 9 "bosque"] [23 12 "agri. alta intensidad"] [24 17 "agri. alta intensidad"] [32 11 "agri. alta intensidad"] [51 10 "bosque"] [39 2 "bosque"] [24 3 "agri. alta intensidad"] [49 13 "bosque"] [26 9 "agri. baja intensidad"] [32 14 "agri. alta intensidad"] [4 26 "bosque"] [24 21 "bosque"] [53 11 "bosque"] [4 10 "bosque"] [9 13 "bosque"] [19 18 "agri. baja intensidad"] [27 16 "agri. baja intensidad"] [33 11 "agri. alta intensidad"] [9 14 "bosque"] [34 16 "agri. baja intensidad"] [34 15 "agri. alta intensidad"] [21 15 "agri. alta intensidad"] [13 1 "bosque"] [24 32 "agri. baja intensidad"] [16 24 "agri. baja intensidad"] [47 32 "bosque"] [15 7 "bosque"] [6 22 "bosque"] [36 22 "agri. alta intensidad"] [36 31 "agri. baja intensidad"] [44 9 "bosque"] [19 21 "bosque"] [49 12 "bosque"] [21 31 "agri. baja intensidad"] [7 15 "bosque"] [0 13 "bosque"] [16 13 "agri. baja intensidad"] [20 14 "agri. alta intensidad"] [6 17 "bosque"] [37 18 "bosque"] [50 7 "bosque"] [7 24 "bosque"] [39 11 "bosque"] [54 28 "bosque"] [51 14 "bosque"] [33 20 "agri. alta intensidad"] [41 15 "bosque"] [33 1 "agri. alta intensidad"] [5 27 "bosque"] [34 18 "agri. baja intensidad"] [42 31 "bosque"] [14 17 "bosque"] [38 18 "agri. baja intensidad"] [34 17 "agri. baja intensidad"] [13 31 "bosque"] [47 29 "bosque"] [45 6 "bosque"] [41 28 "agri. baja intensidad"] [52 6 "bosque"] [24 23 "bosque"] [12 3 "bosque"] [30 22 "agri. alta intensidad"] [15 26 "agri. baja intensidad"] [13 14 "agri. baja intensidad"] [47 3 "bosque"] [48 7 "bosque"] [48 20 "bosque"] [32 27 "agri. alta intensidad"] [54 5 "bosque"] [47 2 "bosque"] [45 32 "bosque"] [49 2 "bosque"] [23 16 "agri. baja intensidad"] [35 31 "agri. baja intensidad"] [3 7 "bosque"] [17 14 "bosque"] [24 19 "agri. alta intensidad"] [52 25 "bosque"] [42 22 "agri. baja intensidad"] [45 23 "bosque"] [25 18 "agri. alta intensidad"] [28 1 "agri. baja intensidad"] [37 26 "agri. alta intensidad"] [28 32 "agri. baja intensidad"] [4 0 "bosque"] [13 22 "bosque"] [10 0 "bosque"] [36 9 "agri. baja intensidad"] [21 0 "agri. baja intensidad"] [53 0 "bosque"] [5 17 "bosque"] [33 3 "agri. baja intensidad"] [14 14 "bosque"] [6 11 "bosque"] [45 20 "bosque"] [9 10 "bosque"] [3 8 "bosque"] [32 0 "agri. baja intensidad"] [17 26 "bosque"] [7 20 "bosque"] [50 4 "bosque"] [50 22 "bosque"] [2 9 "bosque"] [45 7 "bosque"] [51 12 "bosque"] [52 18 "bosque"] [37 19 "agri. baja intensidad"] [41 18 "bosque"] [49 3 "bosque"] [26 18 "agri. alta intensidad"] [52 1 "bosque"] [3 26 "bosque"] [31 24 "agri. baja intensidad"] [52 31 "bosque"] [22 18 "agri. baja intensidad"] [1 12 "bosque"] [15 21 "bosque"] [48 24 "bosque"] [44 25 "bosque"] [20 25 "agri. baja intensidad"] [1 27 "bosque"] [27 29 "agri. baja intensidad"] [12 18 "bosque"] [10 18 "bosque"] [5 4 "bosque"] [24 13 "agri. alta intensidad"] [22 9 "agri. baja intensidad"] [4 2 "bosque"] [27 6 "agri. baja intensidad"] [23 6 "agri. baja intensidad"] [52 7 "bosque"] [11 19 "bosque"] [50 24 "bosque"] [35 1 "agri. baja intensidad"] [43 28 "bosque"] [38 9 "agri. baja intensidad"] [37 13 "agri. baja intensidad"] [48 13 "bosque"] [20 32 "agri. baja intensidad"] [12 19 "bosque"] [35 9 "agri. baja intensidad"] [15 5 "bosque"] [22 22 "bosque"] [32 29 "agri. alta intensidad"] [9 5 "bosque"] [22 2 "agri. alta intensidad"] [22 27 "agri. baja intensidad"] [41 24 "bosque"] [18 17 "bosque"] [34 27 "agri. alta intensidad"] [33 31 "agri. baja intensidad"] [8 11 "bosque"] [39 7 "bosque"] [1 28 "bosque"] [8 10 "bosque"] [41 14 "agri. baja intensidad"] [40 20 "agri. baja intensidad"] [24 11 "agri. alta intensidad"] [47 24 "bosque"] [22 7 "agri. baja intensidad"] [14 18 "bosque"] [10 23 "bosque"] [34 19 "agri. alta intensidad"] [20 5 "agri. baja intensidad"] [5 25 "bosque"] [27 26 "agri. alta intensidad"] [13 25 "bosque"] [46 2 "bosque"] [35 7 "agri. alta intensidad"] [40 28 "bosque"] [48 17 "bosque"] [37 4 "agri. baja intensidad"] [12 6 "bosque"] [51 31 "bosque"] [27 22 "agri. baja intensidad"] [21 9 "agri. baja intensidad"] [50 25 "bosque"] [16 2 "agri. baja intensidad"] [48 12 "bosque"] [8 32 "bosque"] [14 9 "bosque"] [10 22 "bosque"] [40 10 "agri. baja intensidad"] [8 16 "bosque"] [17 27 "agri. baja intensidad"] [33 9 "agri. alta intensidad"] [50 32 "bosque"] [45 16 "bosque"] [10 6 "bosque"] [41 32 "bosque"] [35 18 "agri. alta intensidad"] [18 32 "agri. baja intensidad"] [20 24 "agri. baja intensidad"] [45 29 "bosque"] [39 10 "agri. baja intensidad"] [53 6 "bosque"] [35 10 "agri. baja intensidad"] [26 0 "agri. baja intensidad"] [11 28 "bosque"] [42 5 "bosque"] [21 2 "agri. baja intensidad"] [31 20 "agri. alta intensidad"] [27 21 "agri. baja intensidad"] [6 0 "bosque"] [23 27 "agri. baja intensidad"] [28 7 "agri. baja intensidad"] [41 21 "agri. baja intensidad"] [51 30 "bosque"] [36 23 "agri. alta intensidad"] [8 25 "bosque"] [14 4 "bosque"] [22 8 "agri. alta intensidad"] [29 0 "agri. baja intensidad"] [29 30 "agri. baja intensidad"] [28 10 "agri. baja intensidad"] [25 29 "bosque"] [0 28 "bosque"] [29 22 "agri. baja intensidad"] [3 0 "bosque"] [49 19 "bosque"] [3 27 "bosque"] [54 6 "bosque"] [39 30 "agri. baja intensidad"] [42 16 "bosque"] [40 26 "bosque"] [38 4 "bosque"] [18 26 "bosque"] [47 9 "bosque"] [41 2 "agri. baja intensidad"] [41 26 "agri. baja intensidad"] [30 26 "agri. baja intensidad"] [54 25 "bosque"] [15 24 "agri. baja intensidad"] [50 27 "bosque"] [41 20 "bosque"] [14 11 "agri. baja intensidad"] [32 9 "agri. alta intensidad"] [45 21 "bosque"] [18 13 "agri. baja intensidad"] [14 3 "agri. baja intensidad"] [45 26 "bosque"] [3 17 "bosque"] [2 21 "bosque"] [53 12 "bosque"] [17 8 "agri. baja intensidad"] [32 22 "agri. alta intensidad"] [51 5 "bosque"] [28 11 "agri. baja intensidad"] [35 26 "agri. alta intensidad"] [24 22 "bosque"] [8 23 "bosque"] [49 15 "bosque"] [8 0 "bosque"] [30 14 "agri. alta intensidad"] [22 21 "bosque"] [26 31 "agri. baja intensidad"] [42 20 "bosque"] [5 32 "bosque"] [3 13 "bosque"] [43 1 "bosque"] [19 15 "agri. baja intensidad"] [53 31 "bosque"] [36 29 "agri. baja intensidad"] [47 13 "bosque"] [53 3 "bosque"] [1 31 "bosque"] [37 20 "agri. baja intensidad"] [42 0 "bosque"] [46 18 "bosque"] [26 3 "agri. baja intensidad"] [2 31 "bosque"] [12 21 "agri. baja intensidad"] [24 4 "agri. alta intensidad"] [48 9 "bosque"] [52 0 "bosque"] [31 12 "agri. baja intensidad"] [15 18 "bosque"] [47 20 "bosque"] [5 5 "bosque"] [22 0 "agri. baja intensidad"] [48 2 "bosque"] [1 20 "bosque"] [15 9 "bosque"] [41 30 "bosque"] [0 8 "bosque"] [54 20 "bosque"] [49 14 "bosque"] [5 18 "bosque"] [35 30 "agri. baja intensidad"] [5 6 "bosque"] [8 13 "bosque"] [33 6 "agri. alta intensidad"] [20 1 "agri. baja intensidad"] [33 15 "agri. alta intensidad"] [31 7 "agri. baja intensidad"] [26 8 "agri. baja intensidad"] [0 22 "bosque"] [0 25 "bosque"] [20 23 "agri. baja intensidad"] [9 8 "bosque"] [39 31 "agri. baja intensidad"] [34 25 "agri. alta intensidad"] [46 29 "bosque"] [16 5 "agri. baja intensidad"] [30 21 "agri. alta intensidad"] [50 9 "bosque"] [15 29 "bosque"] [47 26 "bosque"] [17 11 "agri. baja intensidad"] [17 24 "bosque"] [37 6 "agri. baja intensidad"] [29 21 "agri. alta intensidad"] [52 26 "bosque"] [18 16 "bosque"] [8 27 "bosque"] [5 15 "bosque"] [41 0 "bosque"] [22 28 "agri. baja intensidad"] [51 15 "bosque"] [48 8 "bosque"] [2 22 "bosque"] [9 31 "bosque"] [38 14 "agri. baja intensidad"] [5 31 "bosque"] [47 28 "bosque"] [6 3 "bosque"] [10 11 "bosque"] [40 17 "bosque"] [47 7 "bosque"] [45 27 "bosque"] [53 32 "bosque"] [23 10 "agri. alta intensidad"] [39 17 "agri. baja intensidad"] [50 6 "bosque"] [49 31 "bosque"] [41 9 "agri. baja intensidad"] [12 15 "agri. baja intensidad"] [52 10 "bosque"] [53 20 "bosque"] [49 10 "bosque"] [17 15 "bosque"] [19 12 "agri. baja intensidad"] [28 31 "agri. baja intensidad"] [21 16 "agri. alta intensidad"] [14 22 "bosque"] [30 11 "agri. alta intensidad"] [11 12 "bosque"] [51 17 "bosque"] [14 19 "bosque"] [48 19 "bosque"] [20 21 "bosque"] [0 12 "bosque"] [1 13 "bosque"] [1 21 "bosque"] [30 19 "agri. alta intensidad"] [53 2 "bosque"] [48 15 "bosque"] [39 1 "agri. baja intensidad"] [33 21 "agri. alta intensidad"] [27 15 "agri. baja intensidad"] [31 15 "agri. alta intensidad"] [39 16 "agri. baja intensidad"] [5 16 "bosque"] [49 28 "bosque"] [51 26 "bosque"] [53 27 "bosque"] [40 30 "bosque"] [41 3 "agri. baja intensidad"] [38 12 "bosque"] [14 25 "agri. baja intensidad"] [31 31 "agri. baja intensidad"] [9 20 "bosque"] [28 29 "agri. baja intensidad"] [15 14 "bosque"] [50 29 "bosque"] [52 19 "bosque"] [3 4 "bosque"] [2 0 "bosque"] [37 31 "agri. baja intensidad"] [30 29 "agri. baja intensidad"] [17 4 "agri. baja intensidad"] [1 24 "bosque"] [44 7 "bosque"] [33 14 "agri. alta intensidad"] [46 5 "bosque"] [46 25 "bosque"] [45 25 "bosque"] [31 4 "agri. alta intensidad"] [23 13 "agri. alta intensidad"] [16 29 "bosque"] [30 25 "agri. baja intensidad"] [17 5 "agri. baja intensidad"] [21 12 "agri. alta intensidad"] [24 20 "agri. baja intensidad"] [1 10 "bosque"] [14 24 "agri. baja intensidad"] [2 25 "bosque"] [27 1 "agri. baja intensidad"] [28 22 "agri. baja intensidad"] [49 32 "bosque"] [28 25 "agri. baja intensidad"] [12 16 "bosque"] [19 5 "agri. baja intensidad"] [53 23 "bosque"] [45 13 "bosque"] [0 31 "bosque"] [54 7 "bosque"] [13 17 "bosque"] [31 17 "agri. baja intensidad"] [30 4 "agri. baja intensidad"] [11 26 "agri. baja intensidad"] [33 5 "agri. baja intensidad"] [5 14 "bosque"] [28 15 "agri. baja intensidad"] [21 26 "agri. baja intensidad"] [44 12 "bosque"] [2 3 "bosque"] [3 31 "bosque"] [6 24 "bosque"] [36 15 "agri. baja intensidad"] [0 27 "bosque"] [43 21 "bosque"] [23 31 "agri. baja intensidad"] [13 21 "bosque"] [32 7 "agri. baja intensidad"] [28 27 "agri. baja intensidad"] [46 26 "bosque"] [10 30 "bosque"] [50 18 "bosque"] [5 26 "bosque"] [17 0 "agri. baja intensidad"] [23 24 "agri. baja intensidad"] [41 5 "bosque"] [36 21 "agri. baja intensidad"] [17 16 "bosque"] [18 15 "bosque"] [14 0 "bosque"] [7 7 "bosque"] [19 13 "agri. baja intensidad"] [19 20 "agri. baja intensidad"] [4 11 "bosque"] [1 32 "bosque"] [5 21 "bosque"] [53 30 "bosque"] [26 32 "agri. baja intensidad"] [21 21 "bosque"] [16 7 "bosque"] [29 12 "agri. alta intensidad"] [7 17 "bosque"] [8 15 "bosque"] [28 30 "agri. baja intensidad"] [38 2 "agri. baja intensidad"] [54 26 "bosque"] [33 24 "agri. alta intensidad"] [52 4 "bosque"] [32 24 "agri. alta intensidad"] [23 20 "agri. baja intensidad"] [13 28 "bosque"] [23 29 "bosque"] [50 26 "bosque"] [25 25 "agri. baja intensidad"] [51 1 "bosque"] [54 17 "bosque"] [42 29 "bosque"] [10 1 "bosque"] [7 22 "bosque"] [24 29 "bosque"] [49 23 "bosque"] [49 17 "bosque"] [43 32 "bosque"] [18 4 "agri. baja intensidad"] [52 16 "bosque"] [15 8 "bosque"] [1 2 "bosque"] [26 16 "agri. baja intensidad"] [18 27 "agri. baja intensidad"] [10 24 "bosque"] [32 8 "agri. alta intensidad"] [12 14 "agri. baja intensidad"] [7 9 "bosque"] [16 21 "agri. baja intensidad"] [4 6 "bosque"] [25 14 "agri. baja intensidad"] [43 4 "bosque"] [29 27 "agri. baja intensidad"] [25 8 "agri. baja intensidad"] [52 21 "bosque"] [16 17 "agri. baja intensidad"] [5 7 "bosque"] [13 8 "agri. baja intensidad"] [2 17 "bosque"] [28 2 "agri. baja intensidad"] [42 26 "bosque"] [39 6 "bosque"] [38 11 "bosque"] [4 24 "bosque"] [49 27 "bosque"] [7 19 "bosque"] [26 23 "agri. baja intensidad"] [34 20 "agri. baja intensidad"] [35 28 "agri. alta intensidad"] [24 12 "agri. alta intensidad"] [34 2 "agri. baja intensidad"] [1 5 "bosque"] [9 1 "bosque"] [10 20 "bosque"] [27 14 "agri. baja intensidad"] [15 25 "bosque"] [16 19 "bosque"] [36 14 "agri. baja intensidad"] [25 15 "agri. baja intensidad"] [9 22 "bosque"] [18 20 "agri. baja intensidad"] [15 12 "agri. baja intensidad"] [28 12 "agri. baja intensidad"] [41 27 "bosque"] [18 30 "bosque"] [10 26 "bosque"] [5 10 "bosque"] [53 15 "bosque"] [25 23 "agri. baja intensidad"] [53 17 "bosque"] [12 13 "agri. baja intensidad"] [21 8 "agri. baja intensidad"] [17 30 "agri. baja intensidad"] [36 27 "agri. baja intensidad"] [14 12 "bosque"] [31 27 "agri. alta intensidad"] [38 30 "agri. baja intensidad"] [30 16 "agri. baja intensidad"] [3 20 "bosque"] [43 30 "bosque"] [34 31 "agri. alta intensidad"] [34 32 "agri. alta intensidad"] [15 19 "agri. baja intensidad"] [13 10 "bosque"] [4 27 "bosque"] [54 12 "bosque"] [49 24 "bosque"] [54 21 "bosque"] [32 17 "agri. baja intensidad"] [6 16 "bosque"] [11 11 "bosque"] [53 1 "bosque"] [30 12 "agri. baja intensidad"] [46 4 "bosque"] [22 20 "agri. baja intensidad"] [11 2 "bosque"] [28 18 "agri. alta intensidad"] [38 3 "agri. baja intensidad"] [12 0 "bosque"] [33 27 "agri. alta intensidad"] [42 21 "bosque"] [44 1 "bosque"] [26 7 "agri. baja intensidad"] [7 12 "bosque"] [23 14 "agri. alta intensidad"] [18 1 "agri. baja intensidad"] [20 0 "agri. baja intensidad"] [30 5 "agri. baja intensidad"] [33 2 "agri. alta intensidad"] [42 15 "agri. baja intensidad"] [50 23 "bosque"] [17 21 "agri. baja intensidad"] [20 20 "agri. baja intensidad"] [49 4 "bosque"] [38 27 "agri. baja intensidad"] [32 28 "agri. alta intensidad"] [2 29 "bosque"] [15 11 "bosque"] [6 20 "bosque"] [17 18 "bosque"] [12 2 "bosque"] [43 9 "agri. baja intensidad"] [20 31 "agri. baja intensidad"] [49 22 "bosque"] [8 7 "bosque"] [50 1 "bosque"] [34 23 "agri. alta intensidad"] [12 22 "agri. baja intensidad"] [29 2 "agri. baja intensidad"] [54 23 "bosque"] [45 10 "bosque"] [7 5 "bosque"] [51 19 "bosque"] [38 19 "agri. baja intensidad"] [31 19 "agri. alta intensidad"] [49 7 "bosque"] [2 28 "bosque"] [45 12 "bosque"] [20 8 "agri. baja intensidad"] [28 28 "agri. baja intensidad"] [52 32 "bosque"] [7 16 "bosque"] [15 2 "bosque"] [27 3 "agri. baja intensidad"] [14 31 "bosque"] [20 16 "agri. baja intensidad"] [5 12 "bosque"] [43 18 "bosque"] [11 8 "bosque"] [0 0 "bosque"] [54 30 "bosque"] [33 32 "agri. baja intensidad"] [1 1 "bosque"] [25 0 "agri. baja intensidad"] [15 0 "bosque"] [12 1 "bosque"] [34 22 "agri. alta intensidad"] [39 26 "agri. baja intensidad"] [28 0 "agri. baja intensidad"] [7 21 "bosque"] [34 26 "agri. alta intensidad"] [48 3 "bosque"] [53 25 "bosque"] [29 29 "agri. baja intensidad"] [11 20 "bosque"] [9 0 "bosque"] [15 6 "agri. baja intensidad"] [8 1 "bosque"] [42 8 "bosque"] [32 5 "agri. alta intensidad"] [4 20 "bosque"] [38 26 "agri. baja intensidad"] [53 18 "bosque"] [28 24 "agri. baja intensidad"] [0 30 "bosque"] [9 32 "bosque"] [13 5 "agri. baja intensidad"] [12 17 "bosque"] [1 3 "bosque"] [53 8 "bosque"] [34 14 "agri. alta intensidad"] [8 30 "bosque"] [43 10 "bosque"] [40 11 "agri. baja intensidad"] [43 20 "bosque"] [31 5 "agri. alta intensidad"] [40 27 "bosque"] [6 26 "bosque"] [13 20 "bosque"] [9 30 "bosque"] [49 1 "bosque"] [46 20 "bosque"] [6 2 "bosque"] [18 28 "agri. baja intensidad"] [53 4 "bosque"] [37 7 "agri. baja intensidad"] [4 31 "bosque"] [5 19 "bosque"] [5 0 "bosque"] [40 29 "agri. baja intensidad"] [18 19 "agri. baja intensidad"] [42 11 "bosque"] [27 20 "agri. alta intensidad"] [44 22 "bosque"] [46 13 "bosque"] [17 22 "bosque"] [17 1 "agri. baja intensidad"] [30 9 "agri. alta intensidad"] [15 10 "bosque"] [35 15 "agri. baja intensidad"] [19 26 "bosque"] [40 3 "bosque"] [43 24 "bosque"] [23 30 "agri. baja intensidad"] [20 18 "agri. baja intensidad"] [51 8 "bosque"] [34 29 "agri. alta intensidad"] [7 26 "bosque"] [6 8 "bosque"] [31 18 "agri. baja intensidad"] [38 8 "agri. alta intensidad"] [32 32 "agri. baja intensidad"] [39 19 "agri. baja intensidad"] [18 5 "agri. baja intensidad"] [40 15 "agri. baja intensidad"] [14 5 "bosque"] [10 9 "bosque"] [8 3 "bosque"] [8 24 "bosque"] [0 20 "bosque"] [32 13 "agri. alta intensidad"] [25 3 "agri. baja intensidad"] [52 22 "bosque"] [26 19 "agri. alta intensidad"] [48 14 "bosque"] [18 6 "agri. baja intensidad"] [10 29 "bosque"] [24 8 "agri. baja intensidad"] [22 32 "agri. baja intensidad"] [2 1 "bosque"] [7 32 "bosque"] [13 19 "bosque"] [32 19 "agri. baja intensidad"] [0 21 "bosque"] [27 25 "agri. baja intensidad"] [48 1 "bosque"] [3 32 "bosque"] [9 3 "bosque"] [52 3 "bosque"] [27 24 "agri. baja intensidad"] [21 20 "agri. baja intensidad"] [23 11 "agri. alta intensidad"] [30 13 "agri. alta intensidad"] [6 21 "bosque"] [47 15 "bosque"] [52 14 "bosque"] [0 24 "bosque"] [21 32 "agri. baja intensidad"] [5 23 "bosque"] [12 5 "agri. baja intensidad"] [7 3 "bosque"] [39 21 "agri. baja intensidad"] [4 4 "bosque"] [32 23 "agri. alta intensidad"] [17 29 "agri. baja intensidad"] [1 30 "bosque"] [13 16 "bosque"] [38 31 "agri. baja intensidad"] [43 15 "bosque"] [3 16 "bosque"] [44 23 "bosque"] [54 19 "bosque"] [5 1 "bosque"] [40 25 "agri. baja intensidad"] [37 23 "agri. alta intensidad"] [40 14 "bosque"] [22 4 "agri. alta intensidad"] [16 18 "agri. baja intensidad"] [20 19 "agri. baja intensidad"] [11 7 "bosque"] [42 19 "bosque"] [10 4 "bosque"] [2 5 "bosque"] [54 11 "bosque"] [0 15 "bosque"] [33 22 "agri. alta intensidad"] [35 6 "agri. alta intensidad"] [41 8 "agri. baja intensidad"] [5 30 "bosque"] [50 10 "bosque"] [34 1 "agri. baja intensidad"] [20 3 "agri. baja intensidad"] [51 3 "bosque"] [10 25 "bosque"] [48 21 "bosque"] [2 24 "bosque"] [44 24 "bosque"] [27 9 "agri. baja intensidad"] [36 8 "agri. alta intensidad"] [48 28 "bosque"] [6 30 "bosque"] [48 6 "bosque"] [32 30 "agri. alta intensidad"] [5 11 "bosque"] [44 31 "bosque"] [20 13 "agri. alta intensidad"] [15 27 "agri. baja intensidad"] [29 19 "agri. baja intensidad"] [7 28 "bosque"] [18 2 "agri. baja intensidad"] [29 7 "agri. baja intensidad"] [10 19 "bosque"] [50 31 "bosque"] [24 0 "agri. baja intensidad"] [54 18 "bosque"] [10 31 "bosque"] [44 17 "bosque"] [20 28 "agri. baja intensidad"] [44 0 "bosque"] [46 17 "bosque"] [13 23 "bosque"] [2 32 "bosque"] [9 17 "bosque"] [25 4 "agri. baja intensidad"] [31 23 "agri. alta intensidad"] [12 12 "bosque"] [44 2 "bosque"] [23 19 "agri. alta intensidad"] [3 15 "bosque"] [30 30 "agri. baja intensidad"] [37 2 "agri. baja intensidad"] [50 12 "bosque"] [29 6 "agri. baja intensidad"] [39 22 "agri. baja intensidad"] [8 29 "bosque"] [1 11 "bosque"] [30 0 "agri. baja intensidad"] [30 1 "agri. baja intensidad"] [20 22 "bosque"] [2 15 "bosque"] [7 18 "bosque"] [48 23 "bosque"] [18 11 "agri. baja intensidad"] [6 15 "bosque"] [25 31 "agri. baja intensidad"] [18 8 "agri. baja intensidad"] [8 2 "bosque"] [12 10 "agri. baja intensidad"] [0 17 "bosque"] [18 21 "agri. baja intensidad"] [52 20 "bosque"] [37 15 "bosque"] [54 10 "bosque"] [30 2 "agri. baja intensidad"] [5 28 "bosque"] [43 23 "bosque"] [13 0 "agri. baja intensidad"] [47 31 "bosque"] [47 19 "bosque"] [43 13 "bosque"] [10 16 "bosque"] [15 16 "agri. baja intensidad"] [46 12 "bosque"] [43 0 "bosque"] [47 27 "bosque"] [17 17 "bosque"] [9 19 "bosque"] [42 14 "agri. baja intensidad"] [5 20 "bosque"] [0 6 "bosque"] [44 30 "bosque"] [51 16 "bosque"] [37 22 "agri. baja intensidad"] [31 28 "agri. baja intensidad"] [54 22 "bosque"] [7 31 "bosque"] [29 5 "agri. baja intensidad"] [35 8 "agri. alta intensidad"] [21 14 "agri. alta intensidad"] [20 17 "agri. baja intensidad"] [8 20 "bosque"] [4 21 "bosque"] [41 25 "agri. baja intensidad"] [26 14 "agri. baja intensidad"] [5 8 "bosque"] [35 16 "agri. alta intensidad"] [36 7 "agri. alta intensidad"] [54 27 "bosque"] [19 27 "bosque"] [54 16 "bosque"] [22 23 "agri. baja intensidad"] [53 19 "bosque"] [24 7 "agri. baja intensidad"] [53 21 "bosque"] [45 28 "bosque"] [45 8 "bosque"] [36 5 "agri. baja intensidad"] [19 3 "agri. baja intensidad"] [6 13 "bosque"] [38 16 "bosque"] [43 19 "bosque"] [51 4 "bosque"] [52 30 "bosque"] [27 30 "agri. baja intensidad"] [24 15 "agri. baja intensidad"] [2 14 "bosque"] [3 24 "bosque"] [34 8 "agri. alta intensidad"] [39 4 "bosque"] [7 1 "bosque"] [18 25 "bosque"] [29 9 "agri. alta intensidad"] [37 9 "agri. alta intensidad"] [25 26 "agri. baja intensidad"] [38 28 "bosque"] [14 16 "agri. baja intensidad"] [52 2 "bosque"] [6 23 "bosque"] [35 4 "agri. alta intensidad"] [32 6 "agri. baja intensidad"] [50 16 "bosque"] [19 4 "agri. baja intensidad"] [14 28 "bosque"] [24 14 "agri. alta intensidad"] [43 22 "bosque"] [13 30 "bosque"] [44 14 "bosque"] [25 20 "agri. baja intensidad"] [0 1 "bosque"] [35 20 "agri. alta intensidad"] [49 6 "bosque"] [15 17 "agri. baja intensidad"] [44 28 "bosque"] [37 29 "agri. baja intensidad"] [23 0 "agri. baja intensidad"] [33 29 "agri. alta intensidad"] [33 25 "agri. alta intensidad"] [32 10 "agri. alta intensidad"] [47 18 "bosque"] [49 0 "bosque"] [8 9 "bosque"] [41 16 "agri. baja intensidad"] [28 17 "agri. baja intensidad"] [14 6 "agri. baja intensidad"] [31 10 "agri. alta intensidad"] [23 4 "agri. alta intensidad"] [3 12 "bosque"] [21 17 "agri. baja intensidad"] [36 17 "agri. baja intensidad"] [38 5 "bosque"] [19 1 "agri. baja intensidad"] [43 8 "bosque"] [29 4 "agri. baja intensidad"] [11 23 "bosque"] [53 16 "bosque"] [27 27 "agri. baja intensidad"] [40 2 "bosque"] [16 20 "bosque"] [18 9 "agri. baja intensidad"] [42 30 "bosque"] [34 30 "agri. alta intensidad"] [31 21 "agri. alta intensidad"] [36 10 "agri. baja intensidad"] [40 23 "bosque"] [31 30 "agri. alta intensidad"] [47 4 "bosque"] [9 16 "bosque"] [3 2 "bosque"] [36 13 "agri. baja intensidad"] [53 9 "bosque"] [27 7 "agri. baja intensidad"] [39 27 "agri. baja intensidad"] [19 19 "agri. baja intensidad"] [50 13 "bosque"] [22 31 "agri. baja intensidad"] [53 28 "bosque"] [17 10 "agri. baja intensidad"] [36 24 "agri. alta intensidad"] [16 10 "agri. baja intensidad"] [6 7 "bosque"] [1 0 "bosque"] [48 10 "bosque"] [0 14 "bosque"] [4 28 "bosque"] [27 0 "agri. baja intensidad"] [39 24 "agri. baja intensidad"] [20 6 "agri. baja intensidad"] [4 30 "bosque"] [44 32 "bosque"] [54 4 "bosque"] [35 24 "agri. alta intensidad"] [48 30 "bosque"] [26 12 "agri. baja intensidad"] [29 25 "agri. baja intensidad"] [1 18 "bosque"] [26 17 "agri. baja intensidad"] [31 14 "agri. alta intensidad"] [33 4 "agri. baja intensidad"] [24 5 "agri. baja intensidad"] [4 23 "bosque"] [47 6 "bosque"] [36 12 "agri. baja intensidad"] [41 12 "bosque"] [9 9 "bosque"] [21 27 "agri. baja intensidad"] [7 10 "bosque"] [50 11 "bosque"] [4 16 "bosque"] [9 6 "bosque"] [15 31 "bosque"] [50 14 "bosque"] [36 25 "agri. alta intensidad"] [16 27 "bosque"] [11 0 "bosque"] [25 28 "bosque"] [52 13 "bosque"] [52 24 "bosque"] [37 3 "agri. baja intensidad"] [29 16 "agri. baja intensidad"] [46 6 "bosque"] [34 5 "agri. alta intensidad"] [28 3 "agri. baja intensidad"] [24 26 "agri. baja intensidad"] [46 28 "bosque"] [8 26 "bosque"] [25 30 "agri. baja intensidad"] [27 23 "agri. baja intensidad"] [25 27 "agri. baja intensidad"] [5 9 "bosque"] [26 13 "agri. baja intensidad"] [40 19 "agri. baja intensidad"] [32 18 "agri. baja intensidad"] [40 8 "bosque"] [38 32 "bosque"] [22 15 "agri. alta intensidad"] [44 6 "bosque"] [41 31 "bosque"] [30 17 "agri. baja intensidad"] [8 5 "bosque"] [6 9 "bosque"] [53 10 "bosque"] [16 1 "bosque"] [35 5 "agri. alta intensidad"] [23 26 "agri. baja intensidad"] [2 16 "bosque"] [39 9 "agri. baja intensidad"] [50 15 "bosque"] [51 20 "bosque"] [2 4 "bosque"] [28 16 "agri. baja intensidad"] [35 14 "agri. baja intensidad"] [53 26 "bosque"] [19 28 "agri. baja intensidad"] [26 24 "agri. baja intensidad"] [4 1 "bosque"] [29 11 "agri. alta intensidad"] [22 17 "agri. baja intensidad"] [14 13 "bosque"] [34 0 "agri. baja intensidad"] [14 29 "bosque"] [26 2 "agri. baja intensidad"] [5 13 "bosque"] [11 18 "bosque"] [15 28 "agri. baja intensidad"] [41 19 "agri. baja intensidad"] [7 30 "bosque"] [26 6 "agri. baja intensidad"] [4 7 "bosque"] [23 8 "agri. baja intensidad"] [15 32 "bosque"] [54 24 "bosque"] [51 6 "bosque"] [23 9 "agri. baja intensidad"] [54 2 "bosque"] [43 31 "bosque"] [36 19 "agri. baja intensidad"] [22 11 "agri. baja intensidad"] [0 32 "bosque"] [52 29 "bosque"] [0 2 "bosque"] [25 10 "agri. baja intensidad"] [40 0 "bosque"] [43 6 "bosque"] [11 31 "bosque"] [30 24 "agri. alta intensidad"] [14 23 "bosque"] [32 26 "agri. baja intensidad"] [27 32 "agri. baja intensidad"] [3 3 "bosque"] [16 12 "agri. baja intensidad"] [23 5 "agri. alta intensidad"] [40 7 "bosque"] [16 16 "agri. baja intensidad"] [26 5 "agri. baja intensidad"] [17 13 "agri. baja intensidad"] [14 32 "bosque"] [8 28 "bosque"] [19 11 "agri. baja intensidad"] [47 8 "bosque"] [15 20 "agri. baja intensidad"] [47 17 "bosque"] [6 1 "bosque"] [44 27 "bosque"] [8 31 "bosque"] [5 22 "bosque"] [10 12 "bosque"] [12 20 "bosque"] [10 10 "bosque"] [26 26 "agri. alta intensidad"] [4 3 "bosque"] [38 21 "agri. baja intensidad"] [27 5 "agri. baja intensidad"] [31 3 "agri. alta intensidad"] [44 21 "bosque"] [10 15 "bosque"] [53 5 "bosque"] [53 14 "bosque"] [45 17 "bosque"] [10 7 "bosque"] [47 22 "bosque"] [3 23 "bosque"] [42 28 "bosque"] [51 9 "bosque"] [25 9 "agri. baja intensidad"] [37 10 "bosque"] [51 13 "bosque"] [2 19 "bosque"] [52 5 "bosque"] [25 32 "agri. baja intensidad"] [21 19 "agri. baja intensidad"] [46 27 "bosque"] [27 18 "agri. alta intensidad"] [35 21 "agri. baja intensidad"] [54 3 "bosque"] [1 7 "bosque"] [8 21 "bosque"] [52 23 "bosque"] [13 18 "bosque"] [34 11 "agri. alta intensidad"] [2 7 "bosque"] [41 13 "bosque"] [0 19 "bosque"] [35 12 "agri. baja intensidad"] [16 23 "agri. baja intensidad"] [35 27 "agri. alta intensidad"] [31 29 "agri. alta intensidad"] [14 30 "bosque"] [29 20 "agri. baja intensidad"] [41 29 "bosque"] [25 1 "agri. baja intensidad"] [26 11 "agri. baja intensidad"] [45 30 "bosque"] [43 27 "bosque"] [38 6 "agri. baja intensidad"] [48 18 "bosque"] [26 30 "agri. baja intensidad"] [43 3 "bosque"] [38 24 "agri. baja intensidad"] [46 23 "bosque"] [0 29 "bosque"] [3 14 "bosque"] [52 28 "bosque"] [25 22 "agri. baja intensidad"] [24 28 "agri. baja intensidad"] [47 14 "bosque"] [32 31 "agri. baja intensidad"] [19 14 "agri. baja intensidad"] [51 29 "bosque"] [1 16 "bosque"] [28 19 "agri. alta intensidad"] [36 30 "agri. baja intensidad"] [50 19 "bosque"] [35 2 "agri. baja intensidad"] [17 3 "agri. baja intensidad"] [29 24 "agri. baja intensidad"] [21 24 "agri. baja intensidad"] [1 25 "bosque"] [9 11 "bosque"] [25 2 "agri. baja intensidad"] [31 9 "agri. baja intensidad"] [20 10 "agri. baja intensidad"] [24 2 "agri. alta intensidad"] [27 12 "agri. baja intensidad"] [6 14 "bosque"] [29 1 "agri. baja intensidad"] [36 6 "agri. alta intensidad"] [51 23 "bosque"] [11 3 "bosque"] [52 17 "bosque"] [37 17 "bosque"] [29 8 "agri. baja intensidad"] [11 9 "bosque"] [2 2 "bosque"] [45 15 "bosque"] [31 13 "agri. alta intensidad"] [34 6 "agri. alta intensidad"] [30 28 "agri. baja intensidad"] [29 15 "agri. baja intensidad"] [40 6 "bosque"] [7 6 "bosque"] [30 23 "agri. alta intensidad"] [47 23 "bosque"] [46 22 "bosque"] [21 28 "agri. baja intensidad"] [17 23 "bosque"] [21 29 "agri. baja intensidad"] [17 12 "agri. baja intensidad"] [13 26 "bosque"] [12 30 "bosque"] [35 17 "agri. alta intensidad"] [31 6 "agri. alta intensidad"] [4 12 "bosque"] [45 1 "bosque"] [39 25 "agri. baja intensidad"] [39 14 "agri. baja intensidad"] [40 16 "agri. baja intensidad"] [3 28 "bosque"] [3 19 "bosque"] [19 6 "agri. baja intensidad"] [16 4 "agri. baja intensidad"] [54 14 "bosque"] [1 22 "bosque"] [17 6 "bosque"] [49 11 "bosque"] [38 29 "bosque"] [44 5 "bosque"] [19 17 "bosque"] [38 13 "agri. baja intensidad"] [27 19 "agri. alta intensidad"] [33 26 "agri. alta intensidad"] [27 31 "agri. baja intensidad"] [39 18 "agri. baja intensidad"] [0 10 "bosque"] [37 32 "agri. baja intensidad"] [4 14 "bosque"] [47 25 "bosque"] [52 27 "bosque"] [44 15 "bosque"] [8 18 "bosque"] [46 10 "bosque"] [54 29 "bosque"] [53 24 "bosque"] [51 28 "bosque"] [13 4 "agri. baja intensidad"] [39 15 "agri. baja intensidad"] [9 29 "bosque"] [5 3 "bosque"] [50 21 "bosque"] [38 10 "bosque"] [28 21 "agri. baja intensidad"] [44 10 "bosque"] [4 25 "bosque"] [6 28 "bosque"] [14 7 "bosque"] [27 2 "agri. baja intensidad"] [15 30 "bosque"] [13 2 "bosque"] [16 31 "bosque"] [51 21 "bosque"] [54 13 "bosque"] [21 5 "agri. baja intensidad"] [44 29 "bosque"] [48 0 "bosque"] [30 32 "agri. baja intensidad"] [11 27 "agri. baja intensidad"] [13 11 "agri. baja intensidad"] [15 3 "agri. baja intensidad"] [21 30 "agri. baja intensidad"] [19 10 "agri. baja intensidad"] [31 0 "agri. baja intensidad"] [6 31 "bosque"] [5 2 "bosque"] [12 32 "bosque"] [54 8 "bosque"] [28 14 "agri. baja intensidad"] [49 5 "bosque"] [6 32 "bosque"] [35 22 "agri. alta intensidad"] [34 10 "agri. alta intensidad"] [36 3 "agri. baja intensidad"] [1 26 "bosque"] [51 18 "bosque"] [18 14 "agri. baja intensidad"] [16 8 "bosque"] [37 5 "agri. baja intensidad"] [51 27 "bosque"] [33 23 "agri. alta intensidad"] [3 11 "bosque"] [12 4 "bosque"] [16 22 "bosque"] [20 2 "agri. baja intensidad"] [31 22 "agri. alta intensidad"] [11 25 "bosque"] [26 4 "agri. baja intensidad"] [7 11 "bosque"] [16 0 "bosque"] [9 23 "bosque"] [27 28 "agri. baja intensidad"]]
  foreach data [ [c] ->
    ask patch (item 0 c) (item 1 c) [set tipo (item 2 c) ]
  ]
end 

to formar_vecindades
  let num_grupo 1
  ask patches [
    if (tipo = "bosque" and grupo = -999) [
      formar_vecindad num_grupo
      set num_grupo num_grupo + 1
    ]
  ]
  set num_grupos max [grupo] of patches
end 

to formar_vecindad [ num_grupo ]
  set grupo num_grupo
  ask neighbors4 with [ tipo = "bosque" and grupo = -999 ][
    formar_vecindad num_grupo
  ]
end 

to colorear_cuadros
  (ifelse
    COLOREAR_PAISAJE_POR = "tipo" [
      ask patches [
        if tipo = "bosque"  [ set pcolor green + 1 ]
        if tipo = "agri. baja intensidad" [ set pcolor yellow + 1  ]
        if tipo = "agri. alta intensidad" [ set pcolor brown + 1  ]
      ]
    ]
    COLOREAR_PAISAJE_POR = "presencia individuos en parche" [
      ask patches [
        if tipo != "bosque" [ set pcolor black + 1 ]
        if tipo = "bosque" [
          ifelse any? turtles with [ grupo = [grupo] of myself] [ set pcolor gray + 2][ set pcolor black ]
        ]
      ]
    ]
    COLOREAR_PAISAJE_POR = "densidad individuos en parche" [
      ask patches [
        if tipo != "bosque" [ set pcolor black + 1 ]
        if tipo = "bosque" [
          set pcolor scale-color magenta (count turtles with [ grupo = [grupo] of myself])  0 (count turtles)
        ]
      ]
    ]
  )
  ask patches [
    let escala 1
    if estado = "quemandose" [ set pcolor red + (tiempo_desde_quemado * escala / TIEMPO_QUEMADO) ]
  ]
end 

to inicializar_poblacion
  create-turtles TAMANIO_POBLACION_INICIAL [
    move-to one-of patches
    inicialiar_agente
  ]
end 

to inicialiar_agente
  set color red
  set vivo? true
  set size .75
end 

to-report fade [t]
  report t * t * t * ( t * ( t * 6 - 15 ) + 10 )
end 

to-report lerp [ a b t ]
  report a + t * (b - a)
end 

to-report grad [ hash x y]
  let vectores  [[1 0] [-1 0] [0 1] [0 -1]]
  let vec item (hash mod 4) vectores
  report (item 0 vec) * x + (item 1 vec) * y
end 

to-report perlin_noise [ x y ]
  let xi (floor x) mod 255
  let yi (floor y) mod 255
  let xf x - floor x
  let yf y - floor y

  let u fade xf
  let v fade yf

  let aa (grad (item (((item ((xi    ) mod 255) p) + yi    ) mod 255) p)  xf       yf     )
  let ab (grad (item (((item ((xi    ) mod 255) p) + yi + 1) mod 255) p)  xf      (yf - 1))
  let ba (grad (item (((item ((xi + 1) mod 255) p) + yi    ) mod 255) p) (xf - 1)  yf     )
  let bb (grad (item (((item ((xi + 1) mod 255) p) + yi + 1) mod 255) p) (xf - 1) (yf - 1))

  let x1 lerp aa ba u
  let x2 lerp ab bb u

  report lerp x1 x2 v
end 

to incendiar
  if mouse-down? [ iniciar_incendio mouse-xcor mouse-ycor ]
end 

to iniciar_incendio [ x y ]
  ask patch x y [
    set estado "quemandose"
    set tiempo_desde_quemado 0
    ask turtles-here [ die ]
  ]
end 

to extender_incendio
  ask patches with [ estado = "quemandose" and tiempo_desde_quemado = 1][
    ask neighbors4 with [ estado = "NA" and tipo = [tipo] of myself ] [
      if random-float 1.0 < PROB_QUEMARSE [
        set estado "quemandose"
        set tiempo_desde_quemado 0
      ]
    ]
  ]
  ask patches with [ estado = "quemandose" ][
    set tiempo_desde_quemado tiempo_desde_quemado + 1
    if tiempo_desde_quemado > TIEMPO_QUEMADO [ set estado "NA" set tiempo_desde_quemado -999 ]
  ]
end 

to EDITAR_PAISAJE_MANUALMENTE
  if mouse-down?
  [ ask patch mouse-xcor mouse-ycor [ set tipo TIPO_A_AGREGAR ]
    ask patches [ set grupo -999 ]

    colorear_cuadros
    display
    formar_vecindades
  ]
end 

to INICIALIZAR_GRAFICAS_EXPLORACION
  let nombres_graficas [ "exploracion poblacion" ]
   foreach nombres_graficas [
    nombre ->
    set-current-plot nombre
    clear-plot
  ]
end 

to inicializar_graficas
  let nombres_graficas [ "tamaño población" "fracción parches hábitat ocupados" ]
  foreach nombres_graficas [
    nombre ->
    set-current-plot nombre
    clear-plot
  ]
end 

to EXPLORAR_AUTOMATICAMENTE
  set PROP_AGRI_ALTA_INT 0
  repeat (round 1 / intervalo_explorar) + 1 [
    repeat num_repeticiones [
      setup
      repeat tiempo_final_exploracion [ go ]
    ]
    set PROP_AGRI_ALTA_INT PROP_AGRI_ALTA_INT + intervalo_explorar
  ]
end 

to-report fraccion_parches_ocupados
  ifelse any? turtles with [grupo = -999]
  [ report ((length remove-duplicates [grupo] of turtles) - 1) / num_grupos ]
  [ report ((length remove-duplicates [grupo] of turtles)) / num_grupos ]
end