Infectious Disease Outbreak (COVID-19)-Social Distancing

;;
;; This model is developed by Dr. Lin Xiang at the University of Kentucky. Contact: lin.xiang@uky.edu
;;
;; If you see this page rather than a "download" button when downloading the model, click the "download" icon
;; in your browser to download this model file.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


turtles-own [day]
globals [LM max-daily-cases]

to-report sick-time
  report round day / 30
end 

to setup
  ca
  crt 600
  [set color 68
    set-turtles]

  ask one-of turtles
  [set color 25]

  set LM 0

  reset-ticks
end 

to go
  if ticks > Days * 10  [stop]
  social-ditancing
  transmission
  sickness
  find-max-daily-cases
  tick
end 

to social-ditancing
  ask turtles [
    ifelse random 100 < %-People-practicing-SD
    [ifelse any? other turtles in-cone Social-distancing 180
    [rt random-float 360]
      [fd 0.1]]
    [fd 0.1]
  ]
end 

to add-1-case
  crt 1
  [set color 25
   set-turtles
  ]
end 

to transmission
  ask turtles with [color = 25]
  [let healthy-perosn one-of other turtles with [color = 68] in-radius 1.5
    if healthy-perosn != nobody
    [ask healthy-perosn
      [if random 100 < 90 [set color 25]]
    ]
  ]
end 

to sickness
  ask turtles with [color = 25]
  [ set day day + 1
    if  day  >= 150
    [ifelse random 100 < 20
      [set LM LM + 1  die]
      [set color blue]]
  ]
end 

to set-turtles
    set shape "person-1"
    set size 1.75
    set day 0
    setxy random-xcor random-ycor
end 

to find-max-daily-cases
  if count turtles with [color = orange ] > max-daily-cases        ;Count the infectious. If it is greater than the current record of max daily cases
  [set max-daily-cases count turtles with [color = orange ]]       ;update the max daily case
end