Experimento C (Aldea Lúdica) — from the Modeling Commons

globals [
  contadorTicks 
  persout 
  persdie 
  personasdentro
  listatipos
  ]


turtles-own [ feliz? felicidad-actual terciario esppublico cultivo produccion servicio vacio edificacion vida tipo]

to setup
  ca
  set listatipos [
    [3 5 4 0 2 0 2]
    [1 3 5 4 3 0 1]
    [2 3 4 4 4 0 3]
    [1 3 3 3 4 0 4]
    [2 4 3 1 3 0 4]
    [2 3 5 4 3 0 2]
    [2 3 4 4 4 0 3]
    [1 3 3 3 4 0 4]
    [2 4 3 1 5 0 4]
    [3 2 4 4 4 0 1]
    [2 3 4 4 4 0 3]
    [2 3 3 3 4 0 4]
    [1 3 3 1 5 0 4]
    [3 2 4 4 4 0 2]
    [3 3 4 4 4 0 3]
    [3 3 3 3 4 0 4]
    [2 3 3 1 5 0 4]
    [2 4 4 2 5 0 3]
    [3 4 4 2 5 0 4]
    [1 4 4 2 4 0 2]
    ]
  let colors [orange red green yellow magenta white] ;cultivo-verde, servicios-magenta, produccion-amarillo, terciario-naranja, esppublico-rojo vacio-blanco
 ; ask n-of diversidad-ext  patches [
  ;  set  pcolor one-of colors
   ; ]
  porcentaje-inicial
  color-patches
  crt round(%adolescencia * poblacion) / 100   [
    setxy random-pxcor random-pycor
    set tipo 0; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 0
    set shape "al_adolescente"
    ]
  crt round(%adulteztemprana * poblacion) / 100   [
    setxy random-pxcor random-pycor
    set tipo 1; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 20
    set shape "al_adultotemprana"
    ]
  crt round(%adulteztempranay1 * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 2; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 20
    set shape "al_adultotempranay1"
    ]
  crt round(%adulteztempranay2 * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 3; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 20
    set shape "al_adultotempranay2"
    ]
  crt round(%adulteztempranay3 * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 4; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 20
    set shape   "al_adultotempranay3"
    ]
  crt round(%adulteztempranap * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 5; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 20
    set shape "al_adultotempranap"
    ]
  crt round(%adulteztempranapy1 * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 6; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 20
    set shape "al_adultotempranapy1"
    ]
  crt round(%adulteztempranapy2 * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 7; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 20
    set shape "al_adultotempranapy2"
    ]
  crt round(%adulteztempranapy3 * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 8; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 20
    set shape  "al_adultotempranapy3"
    ]
  crt round(%adultezmedia * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 9; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 40
    set shape "al_adultomedia"
    ]
  crt round(%adultezmediay1 * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 10; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 0
    set shape "al_adultomediay1"
    ]
  crt round(%adultezmediay2 * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 11; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 40
    set shape "al_adultomediay2"
    ]
  crt round(%adultezmediay3 * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 12; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 40
    set shape "al_adultomediay3"
    ]
  crt round(%adultezmediap * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 13; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 40
    set shape "al_adultomediap"
    ]
  crt round(%adultezmediapy1 * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 14; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 40
    set shape  "al_adultomediapy1"
    ]
  crt round(%adultezmediapy2 * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 15; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 40
    set shape  "al_adultomediapy2"
    ]
  crt round(%adultezmediapy3 * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 16; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 40
    set shape  "al_adultomediapy3"  
    ]
  crt round(%adulteztardiai * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 17; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 60
    set shape  "al_adultotardiai"  
    ]
  crt round(%adulteztardiap * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 18; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 60
    set shape "al_adultotardiap"
    ]
  crt round(%adulteztardiac * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 19; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 60
    set shape "al_adultotardiac" 
    ]
  set persout 0
  set persdie 0
  reset-ticks
end 

to setup2
  ca
  set listatipos [
    [3 5 4 0 2 0 2]
    [1 3 5 4 3 0 1]
    [2 3 4 4 4 0 3]
    [1 3 3 3 4 0 4]
    [2 4 3 1 3 0 4]
    [2 3 5 4 3 0 2]
    [2 3 4 4 4 0 3]
    [1 3 3 3 4 0 4]
    [2 4 3 1 5 0 4]
    [3 2 4 4 4 0 1]
    [2 3 4 4 4 0 3]
    [2 3 3 3 4 0 4]
    [1 3 3 1 5 0 4]
    [3 2 4 4 4 0 2]
    [3 3 4 4 4 0 3]
    [3 3 3 3 4 0 4]
    [2 3 3 1 5 0 4]
    [2 4 4 2 5 0 3]
    [3 4 4 2 5 0 4]
    [1 4 4 2 4 0 2]
    ]
    let colors [orange red green yellow magenta white]
    crt round(%adolescencia * poblacion) / 100   [
    setxy random-pxcor random-pycor
    set tipo 0; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 0
    set shape "al_adolescente"
    ]
  crt round(%adulteztemprana * poblacion) / 100   [
    setxy random-pxcor random-pycor
    set tipo 1; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 20
    set shape "al_adultotemprana"
    ]
  crt round(%adulteztempranay1 * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 2; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 20
    set shape "al_adultotempranay1"
    ]
  crt round(%adulteztempranay2 * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 3; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 20
    set shape "al_adultotempranay2"
    ]
  crt round(%adulteztempranay3 * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 4; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 20
    set shape   "al_adultotempranay3"
    ]
  crt round(%adulteztempranap * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 5; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 20
    set shape "al_adultotempranap"
    ]
  crt round(%adulteztempranapy1 * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 6; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 20
    set shape "al_adultotempranapy1"
    ]
  crt round(%adulteztempranapy2 * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 7; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 20
    set shape "al_adultotempranapy2"
    ]
  crt round(%adulteztempranapy3 * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 8; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 20
    set shape  "al_adultotempranapy3"
    ]
  crt round(%adultezmedia * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 9; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 40
    set shape "al_adultomedia"
    ]
  crt round(%adultezmediay1 * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 10; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 0
    set shape "al_adultomediay1"
    ]
  crt round(%adultezmediay2 * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 11; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 40
    set shape "al_adultomediay2"
    ]
  crt round(%adultezmediay3 * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 12; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 40
    set shape "al_adultomediay3"
    ]
  crt round(%adultezmediap * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 13; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 40
    set shape "al_adultomediap"
    ]
  crt round(%adultezmediapy1 * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 14; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 40
    set shape  "al_adultomediapy1"
    ]
  crt round(%adultezmediapy2 * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 15; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 40
    set shape  "al_adultomediapy2"
    ]
  crt round(%adultezmediapy3 * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 16; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 40
    set shape  "al_adultomediapy3"  
    ]
  crt round(%adulteztardiai * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 17; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 60
    set shape  "al_adultotardiai"  
    ]
  crt round(%adulteztardiap * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 18; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 60
    set shape "al_adultotardiap"
    ]
  crt round(%adulteztardiac * poblacion) / 100  [
    setxy random-pxcor random-pycor
    set tipo 19; este número es el de los tipo de tortugas, no de patches.
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set feliz? false
    set felicidad-actual 0
    set vida 60
    set shape "al_adultotardiac" 
    ]
  set persout 0
  set persdie 0
  reset-ticks
end 

to go
  if not any? turtles [ stop ]
  ask turtles [
   set felicidad-actual sum (list
     ((count patches in-radius radio-ext with [ pcolor = green ]) * cultivo) 
     ((count patches in-radius radio-ext with [ pcolor = magenta ]) * servicio)  
     ((count patches in-radius radio-ext with [ pcolor = yellow ]) * produccion)  
     ((count patches in-radius radio-ext with [ pcolor = orange ]) * terciario)
     ((count patches in-radius radio-ext with [ pcolor = red ]) * esppublico)
     ((count patches in-radius radio-ext with [ pcolor = white ]) * vacio)
     ((count patches in-radius radio-ext with [ pcolor = gray ]) * edificacion))
  
  ifelse felicidad-actual < umbral [ 
    rt random 360
    fd vision-personas
    ] [set feliz?  true]
  
    if feliz? = true [set color black]
    set vida vida + 1
  ]
  
  asentarse
  
  crecer
  
  modificartemprana
  
  tick
end 

to go2
  if not any? turtles [ stop ]
  ask turtles [
   set felicidad-actual sum (list
     ((count patches in-radius radio-ext with [ pcolor = green ]) * cultivo) 
     ((count patches in-radius radio-ext with [ pcolor = magenta ]) * servicio)  
     ((count patches in-radius radio-ext with [ pcolor = yellow ]) * produccion)  
     ((count patches in-radius radio-ext with [ pcolor = orange ]) * terciario)
     ((count patches in-radius radio-ext with [ pcolor = red ]) * esppublico)
     ((count patches in-radius radio-ext with [ pcolor = white ]) * vacio)
     ((count patches in-radius radio-ext with [ pcolor = gray ]) * edificacion))
  
  ifelse felicidad-actual < umbral [ 
    rt random 360
    fd vision-personas
    ] [set feliz?  true]
  
    if feliz? = true [set color black]
    set vida vida + 1
  ]
  
  asentarse
  
  crecer
  
  modificartemprana
  
  tick
end 

to color-patches
  
  while [any? patches with[pcolor = black] ][
  ask patches with[pcolor != black][
   
    ask neighbors with[pcolor = black][set pcolor [pcolor] of myself ] 
    ]
  ]
end 

to porcentaje-inicial
  
  let diverterc round ((diversidad-ext * pterciario-ext) / 100)
  let diverespp round ((diversidad-ext * pesppublico-ext) / 100)
  let divercult round ((diversidad-ext * pcultivo-ext) / 100)
  let diverprod round ((diversidad-ext * pproduccion-ext) / 100)
  let diverserv round ((diversidad-ext * pservicios-ext) / 100)
  let divervaci round ((diversidad-ext * pvacio-ext) / 100); molaria que este fuese resultado de la resta de los otros 5 respecto al 100% total.
    
  ask n-of diverterc  patches [ set  pcolor orange] 
  ask n-of diverespp  patches [ set  pcolor red]  
  ask n-of divercult  patches [ set  pcolor green]
  ask n-of diverprod  patches [ set  pcolor yellow]
  ask n-of diverserv  patches [ set  pcolor magenta]
  ask n-of divervaci  patches [ set  pcolor white] 
end 

to recolorear
    if (pcolor < 10) [set pcolor white]
    if (pcolor >= 10 and pcolor < 20) [set pcolor red]
    if (pcolor >= 20 and pcolor < 40) [set pcolor orange]
    if (pcolor >= 40 and pcolor < 50) [set pcolor yellow]
    if (pcolor >= 50 and pcolor < 90) [set pcolor green]
    if (pcolor >= 90 and pcolor < 140) [set pcolor magenta]
end 
  
  
;to importarimagen
  ;ask color diffuse green
;end

to asentarse
  
  if  (ticks != 0) and (ticks mod fase = 0) [ 
    ask turtles [
      if feliz? = false [
        set persout persout + 1
        die
        ]
      if (feliz? = true) and (vida > 39) and (vida <= 41)[
        set pcolor gray
        descendencia
       ]
       if vida >= 100[
       set persdie persdie + 1
       die
       ]
       destruircasa
      ] 
  ]  
end 

to crecer
  if  (ticks != 0) and (ticks mod fase = 0) [ 
    ask turtles [
      if (feliz? = true) and (vida > 39) and (vida <= 41)[
        crecimiento
        die          
      ]
      if (feliz? = true) and (vida > 59) and (vida <= 61)[
        crecimiento2
        die
      ]
      if (feliz? = true) and (vida <= 21)[
        madurar
        die
      ]
    ]
    ]
end 

to descendencia
    set listatipos [
    [3 5 4 0 2 0 2]
    [1 3 5 4 3 0 1]
    [2 3 4 4 4 0 3]
    [1 3 3 3 4 0 4]
    [2 4 3 1 3 0 4]
    [2 3 5 4 3 0 2]
    [2 3 4 4 4 0 3]
    [1 3 3 3 4 0 4]
    [2 4 3 1 5 0 4]
    [3 2 4 4 4 0 1]
    [2 3 4 4 4 0 3]
    [2 3 3 3 4 0 4]
    [1 3 3 1 5 0 4]
    [3 2 4 4 4 0 2]
    [3 3 4 4 4 0 3]
    [3 3 3 3 4 0 4]
    [2 3 3 1 5 0 4]
    [2 4 4 2 5 0 3]
    [3 4 4 2 5 0 4]
    [1 4 4 2 4 0 2]
    ]
    let descendenciatipo tipo

  hatch random 4 [
    rt random 360
    fd 1
    set color white
    set tipo 0
    set feliz? false
    set felicidad-actual 0
    set vida 0
    set shape "al_adolescente"
    ]
end 

to crecimiento
    set listatipos [
    [3 5 4 0 2 0 2]
    [1 3 5 4 3 0 1]
    [2 3 4 4 4 0 3]
    [1 3 3 3 4 0 4]
    [2 4 3 1 3 0 4]
    [2 3 5 4 3 0 2]
    [2 3 4 4 4 0 3]
    [1 3 3 3 4 0 4]
    [2 4 3 1 5 0 4]
    [3 2 4 4 4 0 1]
    [2 3 4 4 4 0 3]
    [2 3 3 3 4 0 4]
    [1 3 3 1 5 0 4]
    [3 2 4 4 4 0 2]
    [3 3 4 4 4 0 3]
    [3 3 3 3 4 0 4]
    [2 3 3 1 5 0 4]
    [2 4 4 2 5 0 3]
    [3 4 4 2 5 0 4]
    [1 4 4 2 4 0 2]
    ]  
     let crecimientotipo tipo
     hatch 1 [
     rt 0
     fd 0
     set color white
    if crecimientotipo = 1 [
    set tipo crecimientotipo + 8
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set shape "al_adultomedia"
    ]
    if crecimientotipo = 2 [
    set tipo crecimientotipo + 8
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set shape "al_adultomediay1"
    ]
    if crecimientotipo = 3 [
    set tipo crecimientotipo + 8
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set shape "al_adultomediay2"
    ]
    if crecimientotipo = 4 [
    set tipo crecimientotipo + 8
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set shape "al_adultomediay3"
    ]
    if crecimientotipo = 5 [
    set tipo crecimientotipo + 8
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set shape "al_adultomediap"
    ]
    if crecimientotipo = 6 [
    set tipo crecimientotipo + 8
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set shape "al_adultomediapy1"
    ]
    if crecimientotipo = 7 [
    set tipo crecimientotipo + 8
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set shape "al_adultomediapy2"
    ]
    if crecimientotipo = 8 [
    set tipo crecimientotipo + 8
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set shape "al_adultomediapy3"
    ]            
    set feliz? false
    set felicidad-actual 0
    set vida 40
     ]
end 

to crecimiento2
    set listatipos [
    [3 5 4 0 2 0 2]
    [1 3 5 4 3 0 1]
    [2 3 4 4 4 0 3]
    [1 3 3 3 4 0 4]
    [2 4 3 1 3 0 4]
    [2 3 5 4 3 0 2]
    [2 3 4 4 4 0 3]
    [1 3 3 3 4 0 4]
    [2 4 3 1 5 0 4]
    [3 2 4 4 4 0 1]
    [2 3 4 4 4 0 3]
    [2 3 3 3 4 0 4]
    [1 3 3 1 5 0 4]
    [3 2 4 4 4 0 2]
    [3 3 4 4 4 0 3]
    [3 3 3 3 4 0 4]
    [2 3 3 1 5 0 4]
    [2 4 4 2 5 0 3]
    [3 4 4 2 5 0 4]
    [1 4 4 2 4 0 2]
    ]  
     let crecimientotipo2 tipo
     hatch 1 [
     rt 0
     fd 0
     set color white
    if crecimientotipo2 = 9 [
    set tipo crecimientotipo2 + 8
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set shape "al_adultotardiai"
    ]
    if crecimientotipo2 = 10 [
    set tipo crecimientotipo2 + 7
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set shape "al_adultotardiai"
    ]
    if crecimientotipo2 = 11 [
    set tipo crecimientotipo2 + 8
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set shape "al_adultotardiac"
    ]
    if crecimientotipo2 = 12 [
    set tipo crecimientotipo2 + 7
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set shape "al_adultotardiac"
    ]
    if crecimientotipo2 = 13 [
    set tipo crecimientotipo2 + 4 
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set shape "al_adultotardiap"
    ]
    if crecimientotipo2 = 14 [
    set tipo crecimientotipo2 + 3
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set shape "al_adultotardiap"
    ]
    if crecimientotipo2 = 15 [
    set tipo crecimientotipo2 + 4
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set shape "al_adultotardiac"
    ]
    if crecimientotipo2 = 16 [
    set tipo crecimientotipo2 + 3
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    set shape "al_adultotardiac"
    ]            
    set feliz? false
    set felicidad-actual 0
    set vida 60
]
end 

to madurar
      set listatipos [
    [3 5 4 0 2 0 2]
    [1 3 5 4 3 0 1]
    [2 3 4 4 4 0 3]
    [1 3 3 3 4 0 4]
    [2 4 3 1 3 0 4]
    [2 3 5 4 3 0 2]
    [2 3 4 4 4 0 3]
    [1 3 3 3 4 0 4]
    [2 4 3 1 5 0 4]
    [3 2 4 4 4 0 1]
    [2 3 4 4 4 0 3]
    [2 3 3 3 4 0 4]
    [1 3 3 1 5 0 4]
    [3 2 4 4 4 0 2]
    [3 3 4 4 4 0 3]
    [3 3 3 3 4 0 4]
    [2 3 3 1 5 0 4]
    [2 4 4 2 5 0 3]
    [3 4 4 2 5 0 4]
    [1 4 4 2 4 0 2]
    ]  
     let madurartipo tipo
  hatch 1 [
     rt random 360
     fd 1
     set color white
    set shape "al_adultotempranay2"
    if madurartipo = 0 [
    set tipo madurartipo + 1 + random 7
    set terciario item 0 item tipo listatipos
    set esppublico item 1 item tipo listatipos
    set cultivo item 2 item tipo listatipos
    set produccion item 3 item tipo listatipos
    set servicio item 4 item tipo listatipos
    set vacio item 5 item tipo listatipos
    set edificacion item 6 item tipo listatipos
    ]
    set feliz? false
    set felicidad-actual 0
    set vida 20
  ]
end 

to destruircasa
  
  let colors [orange red green yellow magenta white]
  ;ask n-of patches [
 ;if  (not any? turtles) and (pcolor = gray)[
  ; set pcolor one-of colors 
   ;  ]
  ;]
  
 ;  map (list ? (count neighbors with [pcolor = ?])) [green magenta yellow orange]
  ask patches with [(count turtles-here = 0) and (pcolor = gray)] [ 
    ;set pcolor one-of colors
   ; set lista1 map (list ? (count neighbors with [pcolor = ?])) [green magenta yellow orange]

    set pcolor [ pcolor ] of one-of neighbors 
    ;set pcolor first lista1 with [max last lista1] 
    ]
end 

to modificartemprana
  ask turtles [
    if tipo = 1 [
      set shape "al_adultotemprana"
    ]
    if tipo = 2 [
      set shape "al_adultotempranay1"
    ]
    if tipo = 3 [
      set shape "al_adultotempranay2"
    ]    
    if tipo = 4 [
      set shape "al_adultotempranay3"
    ]    
    if tipo = 5 [
      set shape "al_adultotempranap"
    ]    
    if tipo = 6 [
      set shape "al_adultotempranapy1"
    ]    
    if tipo = 7 [
      set shape "al_adultotempranapy2"
    ]    
    if tipo = 8 [
      set shape "al_adultotempranapy3"
    ]    
  ]
end 

to terreno
  ask turtles [die]
end