- 1、本文档共4页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
netlogo的virus程序
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
文档评论(0)