MIHS (AM CE 7) Infection Sim

No preview image

3 collaborators

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

Tags

(This model has yet to be categorized with any tags)
Child of model Infection Sim Combine
Visible to everyone | Changeable by the author
Model was written in NetLogo 5.2.1 • Viewed 169 times • Downloaded 15 times • Run 0 times
Download the 'MIHS (AM CE 7) Infection Sim' 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 deaths]
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
  ]
  set deaths 0
  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-infected
  ]
  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 count people > 0 [
  if (cure-var = 1) [
    let infectedPerson n-of 1 infection
  ask infection [
    if remainder ticks 28 = 0 and ticks != 0 [
      ask infectedPerson [set breed people
      ]
    ]
   ]
  ]
  ]
end 

to kill-infected
  if count infection > 0 [
  let infectedPerson n-of 1 infection
  ask infection [
    if remainder ticks round (250 / mortality) = 0  and ticks > 75 [
      ask infectedPerson [die]
      set deaths 100 - (count people )
   ]
    ]
  ]
end 

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

Attached files

No files

Parent: Infection Sim Combine

This model does not have any descendants.

Graph of models related to 'MIHS (AM CE 7) Infection Sim'