Infection Sim Combine

No preview image

3 collaborators

Default-person Andrew Motz (Author)
Larry_bencivengo Larry Bencivengo (Advisor)

Tags

(This model has yet to be categorized with any tags)
Child of model InfectionSimulation Parent of 1 model: MIHS (AM CE 7) Infection Sim
Visible to everyone | Changeable by everyone
Model was written in NetLogo 5.2.1 • Viewed 181 times • Downloaded 24 times • Run 0 times
Download the 'Infection Sim Combine' modelDownload this modelEmbed this model

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 [ virus-score infect-var cure-var kill-num kill-var erad?]
breed [infection infected]
breed [people person]

to setup
  clear-all
  create-infection 1 [set color red] ;;one infected person
  create-people 99 [set color cyan] ;;99 uninfected people
  ask infection [
    setxy random-xcor random-ycor
    set shape "infected"
    set size 2
  ]
  ask people [
    setxy random-xcor random-ycor
    set shape "uninfected"
    set size 2
  ]
  reset-ticks
end 

to go
  if count infection < 101 [
    move-infection ;;moves infected people 1 step in a random direction
    move-people ;;moves uninfected people 1 step in a random direction
    infect-people ;;if one of the uninfected people contact an infected person, turns infected
  set infect-var random (150 / infectability)
  if cureability != 0 [
    set cure-var random (250 / Cureability)
    if virus-score > 23 [
;    cure-virus
    ]
  ]
  set kill-num mortality
  set kill-var random 5
  if virus-score < 0 [
    set virus-score 0
  ]
 ; kill-peep
  ]
  cure-infected
  tick
end 

to move-infection
  ask infection [
    right random 360
    forward 0.5
  ]
end 

to move-people

  ask people [
    right random 40
    forward 1
  ]
end 

to infect-people
  if (infect-var = 1) or (infect-var = 2) [
  ask infection [
    let uninfected one-of people-here
    if uninfected != nobody [
      ask uninfected [die]
      hatch 1
    ]
  ]]
end 

to cure-infected
  if (cure-var = 1) [
  ask infection [
    let infectedPerson one-of infection
    if remainder ticks 28 = 0 and ticks != 0 [
      ask infectedPerson [die]
   ]
  ]
  ask people [
    if count people < 100 [
      hatch 1
    ]
  ]
  ]
end 

There is only one version of this model, created over 7 years ago by Andrew Motz.

Attached files

No files