Aerosolización y COVID19

Aerosolización y COVID19 preview image

1 collaborator

Tags

(This model has yet to be categorized with any tags)
Visible to everyone | Changeable by everyone
Model was written in NetLogo 6.1.1 • Viewed 104 times • Downloaded 3 times • Run 0 times
Download the 'Aerosolización y COVID19' modelDownload this modelEmbed this model

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


Info tab cannot be displayed because of an encoding error

Comments and Questions

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

Click to Run Model

patches-own[
aerosol
]
turtles-own[
contagiado?
]
breed [vientos viento]

to setup
ca
create-vientos 10
ask patches [
    set pcolor white
    set aerosol 0
    if (pxcor mod 2 = 0 and pycor mod 2 = 0)  and (pxcor < 6 and pxcor > -6
    and pycor < 6 and pycor > -6)
    [
    set pcolor gray
    sprout 1

    ]
  ]
  ask turtles [set shape "person"
  set color blue]

  ask vientos [
  set xcor 6
  set heading 270
  set color red
  set shape "arrow"]
  let i 0
  let j 0
  let k 0
  repeat 10
  [ask viento j
    [ifelse i < 5
      [
      set ycor i
      set i i + 1
      ]
      [
       set ycor k
       set k k - 1
      ]
      set j j + 1
      ]
  ]
  ;ask n-of 2 turtles with[breed != vientos]
  ; [set contagiado? true
  ;    ask patch-here [set aerosol 1000]
  ;]
  ;;ask turtles with[breed != vientos]
  ;;    [seleccionatortugas]
  coloreartortu
end 

to seleccionatortugas

  if mouse-down?
      [let candidate min-one-of turtles [distancexy mouse-xcor mouse-ycor]
       if is-turtle? candidate and [distancexy mouse-xcor mouse-ycor] of candidate < 1
        [
         ask candidate [ set contagiado? true
                          set color red
                          ask patch-here [set aerosol 1000]]
         ]
      ]
end 

to go
 let varCont? false
 diffuse aerosol 1
 ask patches [

    ifelse (aerosol < 0.2)
        [set pcolor white
         set aerosol 0
        ]
        [;set aerosol aerosol - 0.001
         set pcolor scale-color gray aerosol 15 0
        ]
   ]
  if ventilador
  [ repeat 4[
    ask vientos [
    ask patch-here[set aerosol 0]
    fd 1
    ]
    ]
  ]
  ask turtles with[breed != vientos]
  [ask patch-here
        [
        ifelse aerosol > 10
            [set varCont? true]
            [set varCont? false]
        ]
    if varCont? = true
        [set contagiado? true]
  ]

 coloreartortu
 set varCont? false
end 

to coloreartortu
  ask turtles [
    ifelse (contagiado? = true)
           [set color red]
           [set color blue]
  ]
  display
end 

There is only one version of this model, created 5 months ago by Diego Díaz Córdova.

Attached files

File Type Description Last updated
Aerosolización y COVID19.png preview Preview for 'Aerosolización y COVID19' 5 months ago, by Diego Díaz Córdova Download

This model does not have any ancestors.

This model does not have any descendants.