netlogo的virus程序.doc

turtles-own [ sick? ;; if true, the turtle is infectious immune? ;; if true, the turtle cant be infected sick-count ;; how long the turtle has been infectious age ] ;; how many weeks old the turtle is globals [ %infected ;; what % of the population is infectious %immune ;; what % of the population is immune lifespan ;; the average lifespan of a turtle average-offspring ;; the average number of offspring a turtle could have carrying-capacity ;; the number of turtles that can be in the world at one time ] ;; The setup is divided into three subroutines to setup clear-all setup-constants setup-turtles update-global-variables reset-ticks end ;; We create a variable number of turtles of which 10 are infectious, ;; and distribute them randomly to setup-turtles set-default-shape turtles person crt people [ setxy random-xcor random-ycor set age random lifespan set sick-count 0 set immune? false set size 1.5 ;; easier to see get-healthy ] ask n-of 10 turtles [ get-sick ] end to get-sick ;; turtle procedure set sick? true set immune? false set color red end to get-healthy ;; turtle procedure set sick? false set immune? false set sick-count 0 set color green end to become-immune ;; turtle procedure set sick? false set sick-count 0 set immune? true set color gray end to setup-constants set lifespan 100 set carrying-capacity 750 set average-offspring 4 end to go get-older move infect recover reproduce update-global-variables tick end to update-global-variables if count turtles 0 [ set %infected (count turtles with [sick?]) / (count turtles) * 100 set %immune (count turtles with [immune?]) / (count turtles) * 100 ] end ;;Turtle counting variables are advanced. to get-older ask turtles [ set age age + 1 if sick? [ set sick-count (sick-count + 1) ] ;; Turtles die of