# Disease complex

No preview image

Model was written in NetLogo 6.1.0
•
Viewed 17 times
•
Downloaded 0 times
•
Run 0 times

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 [ how-many-people ] turtles-own [ infected? ;; If true, the person is infected cured? ;; If true, the person has lived through an infection. susceptible? ;; Tracks whether the person is susceptible recovery-time ;; How long this turtle takes to recover has-been-infected? ;; Tracks whether the person has even been infected infection-length ;; How long the person has been infected ] ;;; ;;; SETUP PROCEDURES ;;; to setup clear-all set how-many-people 300 setup-people reset-ticks end to setup-people let number-immune (how-many-people * (percent-vaccinated / 100)) let number-infected ((how-many-people - number-immune) * (percent-sick-to-start / 100)) let number-susceptible (how-many-people - number-immune - number-infected) ;; Create the vaccinated turtles create-turtles number-immune [ setxy random-xcor random-ycor set cured? false set infected? false set susceptible? false set has-been-infected? false set shape "person" ;; Set the recovery time for each agent to fall on a ;; normal distribution around average recovery time set recovery-time random-normal average-recovery-time average-recovery-time / 4 ;; make sure it lies between 0 and 2x average-recovery-time if recovery-time > average-recovery-time * 2 [ set recovery-time average-recovery-time * 2 ] if recovery-time < 0 [ set recovery-time 0 ] assign-color ] ;; Create the infected turtles create-turtles number-infected [ setxy random-xcor random-ycor set cured? false set infected? true set susceptible? false set has-been-infected? true set shape "person" ;; Set the recovery time for each agent to fall on a ;; normal distribution around average recovery time set recovery-time random-normal average-recovery-time average-recovery-time / 4 ;; make sure it lies between 0 and 2x average-recovery-time if recovery-time > average-recovery-time * 2 [ set recovery-time average-recovery-time * 2 ] if recovery-time < 0 [ set recovery-time 0 ] assign-color ] ;; Create the susceptible turtles create-turtles number-susceptible [ setxy random-xcor random-ycor set cured? false set infected? false set susceptible? true set has-been-infected? false set shape "person" ;; Set the recovery time for each agent to fall on a ;; normal distribution around average recovery time set recovery-time random-normal average-recovery-time average-recovery-time / 4 ;; make sure it lies between 0 and 2x average-recovery-time if recovery-time > average-recovery-time * 2 [ set recovery-time average-recovery-time * 2 ] if recovery-time < 0 [ set recovery-time 0 ] assign-color ] end ;; Different people are displayed in 3 different colors depending on health ;; White is a healthy but susceptible person ;; Green is a healthy immune (non-susceptible) person ;; Red is an infected person to assign-color ;; turtle procedure (ifelse infected? [ set color red ] susceptible? [ set color white ] [ set color blue ;; immune ]) end ;;; ;;; GO PROCEDURES ;;; to go if all? turtles [ not infected? ] [ stop ] ask turtles [ move ] ask turtles with [ infected? ] [ infect maybe-recover ] ask turtles [ assign-color ] tick end ;; People move about at random. to move ;; turtle procedure rt random-float 360 fd 1 end ;; Infection can occur to any susceptible person nearby to infect ;; turtle procedure let nearby-susceptible (turtles-on neighbors) with [ susceptible? ] if nearby-susceptible != nobody [ ask nearby-susceptible [ if random-float 100 < infection-chance [ set infected? true set susceptible? false set has-been-infected? true ] ] ] end to maybe-recover set infection-length infection-length + 1 if infection-length > recovery-time [ set infected? false set cured? true ifelse immune-after-recovery [ set susceptible? false ] [ set susceptible? true ] ] end ; Copyright 2011 Uri Wilensky. ; See Info tab for full copyright and license.

There is only one version of this model, created about 1 month ago by Frederick Peck.

## Attached files

No files

This model does not have any ancestors.

This model does not have any descendants.