Experimento C (Aldea Lúdica) — from the Modeling Commons
Model was written in NetLogo 5.0.5
•
Viewed 304 times
•
Downloaded 19 times
•
Run 0 times
Do you have questions or comments about this model? Ask them here! (You'll first need to log in.)
Comments and Questions
Please start the discussion about this model!
(You'll first need to log in.)
Click to Run Model
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
There is only one version of this model, created over 9 years ago by Alberto de Austria Millán.
Attached files
File | Type | Description | Last updated | |
---|---|---|---|---|
Experimento C (Aldea Lúdica).png | preview | Preview for 'Experimento C (Aldea Lúdica)' | over 9 years ago, by Alberto de Austria Millán | Download |
sevilla1.jpg | background | pgou sevilla para Experimento C | over 9 years ago, by Alberto de Austria Millán | Download |
This model does not have any ancestors.
This model does not have any descendants.