流量问题,Netlogo
以下几行代码告知海龟(商店扒手)的决定:1)他们的风险感知是否低到足以尝试商店扒窃,2)他们是否被抓到商店扒窃 如果对风险的感知为60或以下,且之前未阻止他们在商店行窃,则他们会尝试在商店行窃流量问题,Netlogo,netlogo,Netlogo,以下几行代码告知海龟(商店扒手)的决定:1)他们的风险感知是否低到足以尝试商店扒窃,2)他们是否被抓到商店扒窃 如果对风险的感知为60或以下,且之前未阻止他们在商店行窃,则他们会尝试在商店行窃 98%的尝试成功 在失败的2%尝试中,有5%被阻止。这次商店盗窃没有成功,没有任何影响 在95%未被阻止的案件中,99%的商店扒手被安全部门逮捕 1%的被保安逮捕的商店扒手成功逃脱了商店扒窃 恐惧有两种效果。对于被抓获的商店扒手,97%的非专业商店扒手因被逮捕而不再去商店扒手。对于多达5名打算以同一家
- 98%的尝试成功李>
- 在失败的2%尝试中,有5%被阻止。这次商店盗窃没有成功,没有任何影响李>
- 在95%未被阻止的案件中,99%的商店扒手被安全部门逮捕
- 1%的被保安逮捕的商店扒手成功逃脱了商店扒窃
to number-shoplifts
ask shoplifters [ if [pcolor] of patch-here = lime and
perception-of-risk <= 60 and forever-deterred = 0
[ifelse (random-float 1 < 0.98) [
set successful-shoplifts successful-shoplifts + 1 ]
[ifelse (random-float 1 < 0.05) [
set successful-shoplifts successful-shoplifts + 0 ]
[ifelse (random-float 1 < 0.99 ) [
set security-apprehension security-apprehension + 1
if professional = 0 and (random-float 1 < 0.97) [set forever-deterred 1]
*** ask n-of 5 shoplifters [if target-store = patch-here [ set perception-of-risk perception-of-risk + 5 ]]
]
[set successful-shoplifts successful-shoplifts + 1 ]
]]]]
end
对商店内的电梯进行编号
询问商店扒手[如果这里的补丁颜色=石灰和石灰]
风险感知测试这种方法是否有效的最简单方法是添加一些可见的更改。将指示的行替换为:
ask n-of 5 shoplifters
[ write target-store write " with risk " print perception-of-risk
if target-store = patch-here
[ set perception-of-risk perception-of-risk + 5
set color red
show perception-of-risk ]
]
这样做的目的是要有一些输出来告诉您发生了什么。测试这种方法是否有效的最简单方法是添加一些可见的更改。将指示的行替换为:
ask n-of 5 shoplifters
[ write target-store write " with risk " print perception-of-risk
if target-store = patch-here
[ set perception-of-risk perception-of-risk + 5
set color red
show perception-of-risk ]
]
这个想法是有一些输出,告诉你发生了什么