Covid-19 How quarantine flatten the curve?

globals[
  borders?
]

breed [actors actor]

actors-own[
days
]

breed [borders border]

to setup
  clear-all
  reset-ticks
  clear-plot

  set borders? FALSE

  (ifelse senario = "base" [
    ask n-of (count patches with [pcolor = black] * population / 100) patches [
      sprout-actors 1 [
        set shape "person"
        set color white
      ]
    ]
    ask one-of actors [set color red]
    ]


    senario = "communities" or   senario = "communities and borders" [
    create-borders 10 [
      setxy 0 0
        set heading one-of [90 270]
      ]
      ask borders [
        repeat 4 [
          repeat sqrt (count patches) [
            set pcolor grey
            fd 1
          ]
          rt 90
          repeat sqrt (count patches) + sqrt (count patches) / 4 [
            set pcolor grey
            fd 1
          ]
        ]
      ]
      if sqrt (count patches) > 20 [
        ask borders [
          setxy sqrt(sqrt(count patches)) sqrt(sqrt(count patches))
          repeat 4 [
            repeat sqrt (count patches) [
              set pcolor grey
              fd 1
            ]
            rt 90
            repeat sqrt (count patches) + sqrt (count patches) / 4 [
              set pcolor grey
              fd 1
            ]
          ]
        ]
      ]

      create-borders 1 [
        setxy sqrt(count patches) / 2 sqrt(count patches) / 2
        set heading 90
      ]
      ask border 10 [
        repeat 2 [
          repeat sqrt (count patches) [
            fd 1
            set pcolor grey
          ]
          rt 90
        ]
      ]
      ask borders [die]
      ask n-of (count patches with [pcolor = black] * population / 100)
      patches with [pcolor = black] [
        sprout-actors 1 [
          set shape "person"
          set color white
        ]
      ]
      ask one-of actors [set color red]

    ]


    [stop]
  )
end 

to go
  ;if not any? actors with [color = white] [stop]
  if not any? actors with [color = red] [stop]
  travel
  infect
  if count actors with [color = red] / count actors > close-when [
    close-borders
  ]

  ;not-live
  cure

  tick
end 

to travel
  ask n-of (count actors-on patches with [pcolor = black] * travel-rate / 1000)
  actors-on patches with [pcolor = black]
  [
    setxy 0 0
  ]
  ask patch 0 0  [
    ask actors-here [
      if not any? patches with [not any? turtles-here and pcolor = black] [stop]
      move-to one-of patches with [not any? turtles-here and pcolor = black]
    ]
  ]
end 

to infect
  ask actors with [color = red] [
    ask neighbors [
      ask actors-here with [color = white] [
        if random 100 <= infection-rate [set color red]
      ]
  ]
  ]
end 

to close-borders
  if not borders? [
    if senario = "communities and borders" [
      ask n-of number-of-borders patches with [pcolor = black] [
        set pcolor yellow
      ]
      repeat close-borders-law [
        ask patches with [pcolor = yellow] [
          ask neighbors with [pcolor = black] [set pcolor yellow]
        ]
      ]
      set borders? TRUE
    ]
  ]
end 

to not-live
  ask actors with [color = red] [
    set days days + 1
    if random 100 <= days - 30 [
      if random 100 < 20 [die]
    ]
  ]
end 

to cure
  if ticks > 10 [
    ask actors with [color = red] [
      if random 100 < cure-rate [
        if random 100 < 50 [
          set color green
        ]
      ]
    ]
  ]
end