netlogo - 如何让海龟/代理无法通过补丁？体育馆模型。提供了代码但不起作用

Question

嗨，我想知道是否有人知道不让补丁进入体育馆的确切代码。我关闭了所有标记为红色斑块的大门，黑色斑块是墙壁。

这里的问题是我尝试了这些不同的代码，但补丁仍然穿过墙壁。谁能帮我？

请注意，我一次尝试了这些方法以确定是否有任何 ff. 工作。

可以帮助我的人/人将不胜感激。

ask turtles[
ifelse [pcolor] of patch-left-and-ahead 1 1 = red [rt random-float 180 ] 
[ let f random 5
ifelse [pcolor] of patch-right-and-ahead 1 1  = black [rt random-float 180 ] 
[ let g random 5

ifelse [pcolor] of  patch-at-heading-and-distance 1 1 = red [rt random-float 180 ] 
[let h  random 5

ifelse [pcolor] of  patch-at-heading-and-distance 1 1  = black [rt random-float 180]          
[let i  random 5

ifelse [pcolor] of  patch-ahead 1  = red [rt random-float 180 ] 
[let h  random 5

ifelse [pcolor] of  patch-ahead 1  = black [rt random-float 180 ] 
[let i  random 5

ifelse [pcolor] of   patch-left-and-ahead 1 1 = red [fd random-float 5]
[fd f]

ifelse [pcolor] of   patch-right-and-ahead 1 1 = red [fd random-float 5]
[fd g]

ifelse  [pcolor] of  patch-at-heading-and-distance 1 1 = red [fd random-float 5]
[fd h]

ifelse  [pcolor] of  patch-at-heading-and-distance 1 1 = black [fd  random-float 5]
[fd i]

ifelse  [pcolor] of  patch-ahead 1  = red [fd random-float 5]
[fd h]

ifelse  [pcolor] of  patch-ahead 1  = black [fd  random-float 5]
[fd i]

]
]
]
]
]

根据要求，这是补丁的代码：

to setup-world
set pcolor white

;;FLOOR------------------------------------------------------------------------------
if ( pycor < 91  and pycor > 10) and ( pxcor < 91 and pxcor > 7 ) [ set pcolor 8]
if ( pycor < 90  and pycor > 11) and ( pxcor = 7 ) [ set pcolor 8]
if ( pycor < 89  and pycor > 12) and ( pxcor = 6 ) [ set pcolor 8]
if ( pycor < 88  and pycor > 13) and ( pxcor = 5 ) [ set pcolor 8]
if ( pycor < 87  and pycor > 14) and ( pxcor = 4 ) [ set pcolor 8]
if ( pycor < 86  and pycor > 15) and ( pxcor = 3 ) [ set pcolor 8]
if ( pycor < 85  and pycor > 16) and ( pxcor = 2 ) [ set pcolor 8]
if ( pycor < 84  and pycor > 17) and ( pxcor = 1 ) [ set pcolor 8]
if ( pycor < 83  and pycor > 18) and ( pxcor = 0 ) [ set pcolor 8]
if ( pycor < 82  and pycor > 19) and ( pxcor = -1 ) [ set pcolor 8]
if ( pycor < 81  and pycor > 20) and ( pxcor = -2 ) [ set pcolor 8]
if ( pycor < 80  and pycor > 21) and ( pxcor = -3 ) [ set pcolor 8]
if ( pycor < 79  and pycor > 22) and ( pxcor = -4 ) [ set pcolor 8]
if ( pycor < 78  and pycor > 23) and ( pxcor = -5 ) [ set pcolor 8]
if ( pycor < 77  and pycor > 24) and ( pxcor = -6 ) [ set pcolor 8]
if ( pycor < 76  and pycor > 25) and ( pxcor = -7 ) [ set pcolor 8]
;;basketball -----------------------------------------------------------------------
if ( pycor < 68  and pycor > 33) and ( pxcor < 85 and pxcor > 9  ) [ set pcolor 37]

;;UP --------------------------------------------------------------------------------

if ( pycor = 90 ) and ( pxcor < 85 and pxcor > 7  ) [ set pcolor brown ]

if ( pycor = 88 ) and ( pxcor < 82 and pxcor > 14  ) [ set pcolor brown ]   
if ( pycor = 88 ) and ( pxcor < 15 and pxcor > 10) [ set pcolor grey ]
if ( pycor = 88 ) and ( pxcor < 85 and pxcor > 80) [ set pcolor grey ]


if ( pycor = 86 ) and ( pxcor < 82 and pxcor > 14  ) [ set pcolor brown ]
if ( pycor = 86 ) and ( pxcor < 15 and pxcor > 10  ) [ set pcolor grey ]
if ( pycor = 86 ) and ( pxcor < 85 and pxcor > 80) [ set pcolor grey ]

if ( pycor = 84 ) and ( pxcor < 82 and pxcor > 14  ) [ set pcolor brown ]
if ( pycor = 84 ) and ( pxcor < 15 and pxcor > 10  ) [ set pcolor grey ]
if ( pycor = 84 ) and ( pxcor < 85 and pxcor > 80) [ set pcolor grey ]

if ( pycor = 82 ) and ( pxcor < 82 and pxcor > 14  ) [ set pcolor brown ]
if ( pycor = 82 ) and ( pxcor < 15 and pxcor > 10  ) [ set pcolor grey ]
if ( pycor = 82 ) and ( pxcor < 85 and pxcor > 80) [ set pcolor grey ]

if ( pycor = 80 ) and ( pxcor < 36 and pxcor > 14  ) [ set pcolor brown ]
if ( pycor = 80 ) and ( pxcor < 15 and pxcor > 10  ) [ set pcolor grey ]
if ( pycor = 80 ) and ( pxcor < 81 and pxcor > 60  ) [ set pcolor brown ]
if ( pycor = 80 ) and ( pxcor < 85 and pxcor > 80) [ set pcolor grey ]

if ( pycor = 78 ) and ( pxcor < 36 and pxcor > 14  ) [ set pcolor brown ]
if ( pycor = 78 ) and ( pxcor < 15 and pxcor > 10  ) [ set pcolor grey ]
if ( pycor = 78 ) and ( pxcor < 81 and pxcor > 60  ) [ set pcolor brown ]
if ( pycor = 78 ) and ( pxcor < 85 and pxcor > 80) [ set pcolor grey ]

;;DOWN -------------------------------------------------------------------------

if ( pycor = 11 ) and ( pxcor < 85 and pxcor > 7  ) [ set pcolor brown ]

if ( pycor = 13 ) and ( pxcor < 82 and pxcor > 14  ) [ set pcolor brown ]   
if ( pycor = 13 ) and ( pxcor < 15 and pxcor > 10) [ set pcolor grey ]
if ( pycor = 13 ) and ( pxcor < 85 and pxcor > 80) [ set pcolor grey ]

if ( pycor = 15 ) and ( pxcor < 82 and pxcor > 14  ) [ set pcolor brown ]   
if ( pycor = 15 ) and ( pxcor < 15 and pxcor > 10) [ set pcolor grey ]
if ( pycor = 15 ) and ( pxcor < 85 and pxcor > 80) [ set pcolor grey ]

if ( pycor = 17 ) and ( pxcor < 82 and pxcor > 14  ) [ set pcolor brown ]   
if ( pycor = 17 ) and ( pxcor < 15 and pxcor > 10) [ set pcolor grey ]
if ( pycor = 17 ) and ( pxcor < 85 and pxcor > 80) [ set pcolor grey ]

if ( pycor = 19 ) and ( pxcor < 82 and pxcor > 14  ) [ set pcolor brown ]   
if ( pycor = 19 ) and ( pxcor < 15 and pxcor > 10) [ set pcolor grey ]
if ( pycor = 19 ) and ( pxcor < 85 and pxcor > 80) [ set pcolor grey ]

if ( pycor = 21 ) and ( pxcor < 82 and pxcor > 14  ) [ set pcolor brown ]   
if ( pycor = 21 ) and ( pxcor < 15 and pxcor > 10) [ set pcolor grey ]
if ( pycor = 21 ) and ( pxcor < 85 and pxcor > 80) [ set pcolor grey ]

if ( pycor = 23 ) and ( pxcor < 82 and pxcor > 14  ) [ set pcolor brown ]   
if ( pycor = 23 ) and ( pxcor < 15 and pxcor > 10) [ set pcolor grey ]
if ( pycor = 23 ) and ( pxcor < 85 and pxcor > 80) [ set pcolor grey ]

;;CORNER DOWN RIGHT--------------------------------------------------------------------

if ( pycor = 12 and pxcor = 7) [ set pcolor brown ]
if ( pycor = 13 and pxcor = 6) [ set pcolor brown ]
if ( pycor = 14 and pxcor = 5) [ set pcolor brown ]

if ( pycor = 13 and pxcor = 10) [ set pcolor brown ]
if ( pycor = 13 and pxcor = 9) [ set pcolor brown ]

if ( pycor = 14 and pxcor = 8) [ set pcolor brown ]
if ( pycor = 15 and pxcor = 7) [ set pcolor brown ]
if ( pycor = 16 and pxcor = 6) [ set pcolor brown ]
if ( pycor = 15 and pxcor = 10) [ set pcolor brown ]
if ( pycor = 16 and pxcor = 9) [ set pcolor brown ]
if ( pycor = 17 and pxcor = 8) [ set pcolor brown ]
if ( pycor = 18 and pxcor = 7) [ set pcolor brown ]

if ( pycor = 18 and pxcor = 10) [ set pcolor brown ]
if ( pycor = 19 and pxcor = 9) [ set pcolor brown ]
if ( pycor = 20 and pxcor = 8) [ set pcolor brown ]

;;CORNER UP RIGHT---------------------------------------------------------
if ( pycor = 87 and pxcor = 5) [ set pcolor brown ]
if ( pycor = 88 and pxcor = 6) [ set pcolor brown ]
if ( pycor = 89 and pxcor = 7) [ set pcolor brown ] 

if ( pycor = 88 and pxcor = 10) [ set pcolor brown ]
if ( pycor = 88 and pxcor = 9) [ set pcolor brown ]
if ( pycor = 87 and pxcor = 8) [ set pcolor brown ]
if ( pycor = 86 and pxcor = 7) [ set pcolor brown ]
if ( pycor = 85 and pxcor = 6) [ set pcolor brown ]

if ( pycor = 86 and pxcor = 10) [ set pcolor brown ]
if ( pycor = 85 and pxcor = 9) [ set pcolor brown ]
if ( pycor = 84 and pxcor = 8) [ set pcolor brown ]
if ( pycor = 83 and pxcor = 7) [ set pcolor brown ]

if ( pycor = 83 and pxcor = 10) [ set pcolor brown ]
if ( pycor = 82 and pxcor = 9) [ set pcolor brown ]
if ( pycor = 81 and pxcor = 8) [ set pcolor brown ]


;;CENTER CORNER DOWN---------------------------------------------------------------- 
if ( pycor = 29 and pxcor = -1) [ set pcolor brown ]
if ( pycor = 28 and pxcor = 0) [ set pcolor brown ]
if ( pycor = 27 and pxcor = 1) [ set pcolor brown ]

if ( pycor = 29 and pxcor = -4) [ set pcolor brown ]
if ( pycor = 28 and pxcor = -3) [ set pcolor brown ]
if ( pycor = 27 and pxcor = -2) [ set pcolor brown ]
if ( pycor = 26 and pxcor = -1) [ set pcolor brown ]

if ( pycor = 29 and pxcor = -6) [ set pcolor brown ]
if ( pycor = 28 and pxcor = -6) [ set pcolor brown ]
if ( pycor = 27 and pxcor = -5) [ set pcolor brown ]
if ( pycor = 26 and pxcor = -4) [ set pcolor brown ]
if ( pycor = 25 and pxcor = -3) [ set pcolor brown ]

if ( pycor = 26 and pxcor = -7) [ set pcolor brown ]
if ( pycor = 25 and pxcor = -6) [ set pcolor brown ]
if ( pycor = 24 and pxcor = -5) [ set pcolor brown ]

;;CENTER CORNER UP-------------------------------------------------------
if ( pycor = 72 and pxcor = -1) [ set pcolor brown ]
if ( pycor = 73 and pxcor = 0) [ set pcolor brown ]
if ( pycor = 74 and pxcor = 1) [ set pcolor brown ]

if ( pycor = 72 and pxcor = -4) [ set pcolor brown ]
if ( pycor = 73 and pxcor = -3) [ set pcolor brown ]
if ( pycor = 74 and pxcor = -2) [ set pcolor brown ]
if ( pycor = 75 and pxcor = -1) [ set pcolor brown ]

if ( pycor = 72 and pxcor = -6) [ set pcolor brown ]
if ( pycor = 73 and pxcor = -6) [ set pcolor brown ]
if ( pycor = 74 and pxcor = -5) [ set pcolor brown ]
if ( pycor = 75 and pxcor = -4) [ set pcolor brown ]
if ( pycor = 76 and pxcor = -3) [ set pcolor brown ]

if ( pycor = 75 and pxcor = -7) [ set pcolor brown ]
if ( pycor = 76 and pxcor = -6) [ set pcolor brown ]
if ( pycor = 77 and pxcor = -5) [ set pcolor brown ]




;;center -------------------------------------------------------------------------
if ( pxcor = -8 ) and ( pycor < 75 and pycor > 26  ) [ set pcolor brown ]

if ( pxcor = -6 ) and ( pycor < 67 and pycor > 34  ) [ set pcolor brown ]
if ( pxcor = -6 ) and ( pycor < 35 and pycor > 29  ) [ set pcolor grey ]
if ( pxcor = -6 ) and ( pycor < 72 and pycor > 66  ) [ set pcolor grey ]

if ( pxcor = -4 ) and ( pycor < 67 and pycor > 34  ) [ set pcolor brown ]
if ( pxcor = -4 ) and ( pycor < 35 and pycor > 29  ) [ set pcolor grey ]
if ( pxcor = -4 ) and ( pycor < 72 and pycor > 66  ) [ set pcolor grey ]

if ( pxcor = -2 ) and ( pycor < 67 and pycor > 34  ) [ set pcolor brown ]
if ( pxcor = -2 ) and ( pycor < 35 and pycor > 29  ) [ set pcolor grey ]
if ( pxcor = -2 ) and ( pycor < 72 and pycor > 66  ) [ set pcolor grey ]

if ( pxcor = 0 ) and ( pycor < 47 and pycor > 34  ) [ set pcolor brown ]
if ( pxcor = 0 ) and ( pycor < 67 and pycor > 54  ) [ set pcolor brown ]
if ( pxcor = 0 ) and ( pycor < 35 and pycor > 29  ) [ set pcolor grey ]
if ( pxcor = 0 ) and ( pycor < 72 and pycor > 66  ) [ set pcolor grey ]

if ( pxcor = 2 ) and ( pycor < 62 and pycor > 54  ) [ set pcolor brown ]
if ( pxcor = 2 ) and ( pycor < 47 and pycor > 38  ) [ set pcolor brown ]
if ( pxcor = 2 ) and ( pycor < 35 and pycor > 29  ) [ set pcolor grey ]
if ( pxcor = 2 ) and ( pycor < 72 and pycor > 66  ) [ set pcolor grey ]

if ( pxcor = 4 ) and ( pycor < 62 and pycor > 54  ) [ set pcolor brown ]
if ( pxcor = 4 ) and ( pycor < 47 and pycor > 38  ) [ set pcolor brown ]
if ( pxcor = 4 ) and ( pycor < 35 and pycor > 29  ) [ set pcolor grey ]
if ( pxcor = 4 ) and ( pycor < 72 and pycor > 66  ) [ set pcolor grey ]


if ( pxcor = 6 ) and ( pycor < 62 and pycor > 54  ) [ set pcolor brown ]
if ( pxcor = 6 ) and ( pycor < 47 and pycor > 38  ) [ set pcolor brown ]
if ( pxcor = 6 ) and ( pycor < 35 and pycor > 29  ) [ set pcolor grey ]
if ( pxcor = 6 ) and ( pycor < 72 and pycor > 66  ) [ set pcolor grey ]   

;;WaLL----------------------------------------------------------------------

if ( pycor = 10 ) and ( pxcor < 85 and pxcor > 7  ) [ set pcolor black ]
if ( pycor = 91 ) and ( pxcor < 85 and pxcor > 7  ) [ set pcolor black ]

if ( pxcor = -9 ) and ( pycor < 76 and pycor > 25  ) [ set pcolor black ]

if ( pxcor = 91 ) and ( pycor < 34 and pycor > 9  ) [ set pcolor black ]
if ( pxcor = 91 ) and ( pycor < 92 and pycor > 67  ) [ set pcolor black ]

;;stage
if ( pxcor = 98) and ( pycor < 68 and pycor > 33  ) [ set pcolor black ]
if ( pycor = 33 ) and ( pxcor < 99 and pxcor > 91  ) [ set pcolor black ]
if ( pycor = 68 ) and ( pxcor < 99 and pxcor > 91  ) [ set pcolor black ]


if ( pycor = 11 and pxcor = 7) [ set pcolor black ]
if ( pycor = 12 and pxcor = 6) [ set pcolor black ]
if ( pycor = 13 and pxcor = 5) [ set pcolor black ]
if ( pycor = 14 and pxcor = 4) [ set pcolor black ]
if ( pycor = 15 and pxcor = 3) [ set pcolor black ]

if ( pycor = 22 and pxcor = -4) [ set pcolor black ]
if ( pycor = 23 and pxcor = -5) [ set pcolor black ]
if ( pycor = 24 and pxcor = -6) [ set pcolor black ]
if ( pycor = 25 and pxcor = -7) [ set pcolor black ]
if ( pycor = 26 and pxcor = -8) [ set pcolor black ]


if ( pycor = 90 and pxcor = 7) [ set pcolor black ]
if ( pycor = 89 and pxcor = 6) [ set pcolor black ]
if ( pycor = 88 and pxcor = 5) [ set pcolor black ]
if ( pycor = 87 and pxcor = 4) [ set pcolor black ]
if ( pycor = 86 and pxcor = 3) [ set pcolor black ]  

if ( pycor = 79 and pxcor = -4) [ set pcolor black ]
if ( pycor = 78 and pxcor = -5) [ set pcolor black ]
if ( pycor = 77 and pxcor = -6) [ set pcolor black ]
if ( pycor = 76 and pxcor = -7) [ set pcolor black ]
if ( pycor = 75 and pxcor = -8) [ set pcolor black ]

;;stage--------------------------------------------------------------------------------  
if ( pycor < 68  and pycor > 33) and ( pxcor < 98 and pxcor > 90  ) [ set pcolor 37 ]

;;lines-------------------------------------------------------------------------------
if ( pycor = 66 ) and ( pxcor < 82 and pxcor > 11 ) [ set pcolor yellow ]
if ( pycor = 35 ) and ( pxcor < 82 and pxcor > 11 ) [ set pcolor yellow ]
if ( pxcor = 12 ) and ( pycor < 67 and pycor > 34 ) [ set pcolor yellow ]
if ( pxcor = 82 ) and ( pycor < 67 and pycor > 34 ) [ set pcolor yellow ]
if ( pxcor = 47 ) and ( pycor < 67 and pycor > 34 ) [ set pcolor yellow ]

;;gates are closed initially ---------------------------------------------------------- 
if ( pycor = 10 ) and ( pxcor < 88 and pxcor > 84  ) [ set pcolor red ] 
; lower left, left door
if ( pycor = 10 ) and ( pxcor < 91 and pxcor > 87  ) [ set pcolor red ] 
; lower left, right door

if ( pycor = 91 ) and ( pxcor < 88 and pxcor > 84  ) [ set pcolor red ] 
; lower right, left door
if ( pycor = 91 ) and ( pxcor < 91 and pxcor > 87  ) [ set pcolor red ] 
; lower right, right door

if ( pycor = 16 and pxcor = 2) [ set pcolor red ] ; upper left  , right door
if ( pycor = 17 and pxcor = 1) [ set pcolor red ] ; upper left  , right door
if ( pycor = 18 and pxcor = 0) [ set pcolor red ] ; upper left  , right door
if ( pycor = 19 and pxcor = -1) [ set pcolor red ] ; upper left , left door
if ( pycor = 20 and pxcor = -2) [ set pcolor red ] ; upper left , left door
if ( pycor = 21 and pxcor = -3) [ set pcolor red ] ; upper left , left door

if ( pycor = 85 and pxcor = 2) [ set pcolor red ] ; upper right , right door
if ( pycor = 84 and pxcor = 1) [ set pcolor red ] ; upper right , right door
if ( pycor = 83 and pxcor = 0) [ set pcolor red ] ; upper right , right door
if ( pycor = 82 and pxcor = -1) [ set pcolor red ] ; upper right , left door
if ( pycor = 81 and pxcor = -2) [ set pcolor red ] ; upper right , left door
if ( pycor = 80 and pxcor = -3) [ set pcolor red ] ; upper right , left door

if ( pycor = 10 ) and ( pxcor < 88 and pxcor > 84  ) [ set pcolor green ] 
; lower left, left door
if ( pycor = 10 ) and ( pxcor < 91 and pxcor > 87  ) [ set pcolor green ] 
; lower left, right door

if lower-left = "Half"
[
if ( pycor = 10 ) and ( pxcor < 88 and pxcor > 84  ) [ set pcolor red ] 
; lower left, left door
if ( pycor = 10 ) and ( pxcor < 91 and pxcor > 87  ) [ set pcolor green ] 
; lower left, right door
]

if lower-left = "Close"
[
if ( pycor = 10 ) and ( pxcor < 88 and pxcor > 84  ) [ set pcolor red ] 
; lower left, left door
if ( pycor = 10 ) and ( pxcor < 91 and pxcor > 87  ) [ set pcolor red ] 
; lower left, right door
]
;;-------------------------------------------------------------------------------------

;; lower right------------------------------------------------------------------------- 
if lower-right = "Open"
[
if ( pycor = 91 ) and ( pxcor < 88 and pxcor > 84  ) [ set pcolor green ] 
; lower right, left door
if ( pycor = 91 ) and ( pxcor < 91 and pxcor > 87  ) [ set pcolor green ] 
; lower right, right door
]

if lower-right = "Half"
[
if ( pycor = 91 ) and ( pxcor < 88 and pxcor > 84  ) [ set pcolor green ] 
; lower right, right door
if ( pycor = 91 ) and ( pxcor < 91 and pxcor > 87  ) [ set pcolor red ] 
; lower right, left door
]

if lower-right = "Close"
[
if ( pycor = 91 ) and ( pxcor < 88 and pxcor > 84  ) [ set pcolor red ] 
; lower right, left door
if ( pycor = 91 ) and ( pxcor < 91 and pxcor > 87  ) [ set pcolor red ] 
; lower right, right door
]
;;-------------------------------------------------------------------------------------

;; upper left--------------------------------------------------------------------------
if upper-left = "Open"
[
if ( pycor = 16 and pxcor = 2) [ set pcolor green ] ; upper left  , right door
if ( pycor = 17 and pxcor = 1) [ set pcolor green ] ; upper left  , right door
if ( pycor = 18 and pxcor = 0) [ set pcolor green ] ; upper left  , right door
if ( pycor = 19 and pxcor = -1) [ set pcolor green ] ; upper left , left door
if ( pycor = 20 and pxcor = -2) [ set pcolor green ] ; upper left , left door
if ( pycor = 21 and pxcor = -3) [ set pcolor green ] ; upper left , left door
]

if upper-left = "Half"
[
if ( pycor = 16 and pxcor = 2) [ set pcolor green ] ; upper left  , right door
if ( pycor = 17 and pxcor = 1) [ set pcolor green ] ; upper left  , right door
if ( pycor = 18 and pxcor = 0) [ set pcolor green ] ; upper left  , right door
if ( pycor = 19 and pxcor = -1) [ set pcolor red ] ; upper left , left door
if ( pycor = 20 and pxcor = -2) [ set pcolor red ] ; upper left , left door
if ( pycor = 21 and pxcor = -3) [ set pcolor red ] ; upper left , left door
]

if upper-left = "Close"
[
if ( pycor = 16 and pxcor = 2) [ set pcolor red ] ; upper left  , right door
if ( pycor = 17 and pxcor = 1) [ set pcolor red ] ; upper left  , right door
if ( pycor = 18 and pxcor = 0) [ set pcolor red ] ; upper left  , right door
if ( pycor = 19 and pxcor = -1) [ set pcolor red ] ; upper left , left door
if ( pycor = 20 and pxcor = -2) [ set pcolor red ] ; upper left , left door
if ( pycor = 21 and pxcor = -3) [ set pcolor red ] ; upper left , left door
]
;; ------------------------------------------------------------------------------

;; upper right-------------------------------------------------------------------
if upper-right = "Open"
[
if ( pycor = 85 and pxcor = 2) [ set pcolor green ] ; upper right , right door
if ( pycor = 84 and pxcor = 1) [ set pcolor green ] ; upper right , right door
if ( pycor = 83 and pxcor = 0) [ set pcolor green ] ; upper right , right door
if ( pycor = 82 and pxcor = -1) [ set pcolor green ] ; upper right , left door
if ( pycor = 81 and pxcor = -2) [ set pcolor green ] ; upper right , left door
if ( pycor = 80 and pxcor = -3) [ set pcolor green ] ; upper right , left door
]

if upper-right = "Half"
[
if ( pycor = 85 and pxcor = 2) [ set pcolor red ] ; upper right , left door 
if ( pycor = 84 and pxcor = 1) [ set pcolor red ] ; upper right , left door 
if ( pycor = 83 and pxcor = 0) [ set pcolor red ] ; upper right , left door 
if ( pycor = 82 and pxcor = -1) [ set pcolor green ] ; upper right , right door
if ( pycor = 81 and pxcor = -2) [ set pcolor green ] ; upper right , right door
if ( pycor = 80 and pxcor = -3) [ set pcolor green ] ; upper right , right door
]

if upper-right = "Close"
[
if ( pycor = 85 and pxcor = 2) [ set pcolor red ] ; upper right , right door
if ( pycor = 84 and pxcor = 1) [ set pcolor red ] ; upper right , right door
if ( pycor = 83 and pxcor = 0) [ set pcolor red ] ; upper right , right door
if ( pycor = 82 and pxcor = -1) [ set pcolor red ] ; upper right , left door
if ( pycor = 81 and pxcor = -2) [ set pcolor red ] ; upper right , left door
if ( pycor = 80 and pxcor = -3) [ set pcolor red ] ; upper right , left door
]   
;; ----------------------------------------------------------------------------

end    


to setupgate

ask patches [

;;exits--------------------------------------------------------------------------------
;; Point of view is when the agents are outside the Gymnasium.
;; lower left--------------------------------------------------------------------------
if lower-left = "Open"
[
if ( pycor = 10 ) and ( pxcor < 88 and pxcor > 84  ) [ set pcolor green ] 
; lower left, left door
if ( pycor = 10 ) and ( pxcor < 91 and pxcor > 87  ) [ set pcolor green ] 
; lower left, right door
]

if lower-left = "Half"
[
if ( pycor = 10 ) and ( pxcor < 88 and pxcor > 84  ) [ set pcolor red ] 
; lower left, left door
if ( pycor = 10 ) and ( pxcor < 91 and pxcor > 87  ) [ set pcolor green ] 
; lower left, right door
]

if lower-left = "Close"
[
if ( pycor = 10 ) and ( pxcor < 88 and pxcor > 84  ) [ set pcolor red ] 
; lower left, left door
if ( pycor = 10 ) and ( pxcor < 91 and pxcor > 87  ) [ set pcolor red ] 
; lower left, right door
]
;;-------------------------------------------------------------------------------------

;; lower right-------------------------------------------------------------------------
if lower-right = "Open"
[
if ( pycor = 91 ) and ( pxcor < 88 and pxcor > 84  ) [ set pcolor green ] 
; lower right, left door
if ( pycor = 91 ) and ( pxcor < 91 and pxcor > 87  ) [ set pcolor green ] 
; lower right, right door
]

if lower-right = "Half"
[
if ( pycor = 91 ) and ( pxcor < 88 and pxcor > 84  ) [ set pcolor green ] 
; lower right, right door
if ( pycor = 91 ) and ( pxcor < 91 and pxcor > 87  ) [ set pcolor red ] 
; lower right, left door
]

if lower-right = "Close"
[
if ( pycor = 91 ) and ( pxcor < 88 and pxcor > 84  ) [ set pcolor red ] 
; lower right, left door
if ( pycor = 91 ) and ( pxcor < 91 and pxcor > 87  ) [ set pcolor red ] 
; lower right, right door
]
;;-------------------------------------------------------------------------------------

;; upper left--------------------------------------------------------------------------
if upper-left = "Open"
[
if ( pycor = 16 and pxcor = 2) [ set pcolor green ] ; upper left  , right door
if ( pycor = 17 and pxcor = 1) [ set pcolor green ] ; upper left  , right door
if ( pycor = 18 and pxcor = 0) [ set pcolor green ] ; upper left  , right door
if ( pycor = 19 and pxcor = -1) [ set pcolor green ] ; upper left , left door
if ( pycor = 20 and pxcor = -2) [ set pcolor green ] ; upper left , left door 
if ( pycor = 21 and pxcor = -3) [ set pcolor green ] ; upper left , left door
]

if upper-left = "Half"
[
if ( pycor = 16 and pxcor = 2) [ set pcolor green ] ; upper left  , right door
if ( pycor = 17 and pxcor = 1) [ set pcolor green ] ; upper left  , right door
if ( pycor = 18 and pxcor = 0) [ set pcolor green ] ; upper left  , right door
if ( pycor = 19 and pxcor = -1) [ set pcolor red ] ; upper left , left door
if ( pycor = 20 and pxcor = -2) [ set pcolor red ] ; upper left , left door
if ( pycor = 21 and pxcor = -3) [ set pcolor red ] ; upper left , left door
]

if upper-left = "Close"
[
if ( pycor = 16 and pxcor = 2) [ set pcolor red ] ; upper left  , right door
if ( pycor = 17 and pxcor = 1) [ set pcolor red ] ; upper left  , right door
if ( pycor = 18 and pxcor = 0) [ set pcolor red ] ; upper left  , right door
if ( pycor = 19 and pxcor = -1) [ set pcolor red ] ; upper left , left door
if ( pycor = 20 and pxcor = -2) [ set pcolor red ] ; upper left , left door
if ( pycor = 21 and pxcor = -3) [ set pcolor red ] ; upper left , left door
]
;; ------------------------------------------------------------------------------

;; upper right-------------------------------------------------------------------
if upper-right = "Open"
[
if ( pycor = 85 and pxcor = 2) [ set pcolor green ] ; upper right , right door
if ( pycor = 84 and pxcor = 1) [ set pcolor green ] ; upper right , right door
if ( pycor = 83 and pxcor = 0) [ set pcolor green ] ; upper right , right door
if ( pycor = 82 and pxcor = -1) [ set pcolor green ] ; upper right , left door
if ( pycor = 81 and pxcor = -2) [ set pcolor green ] ; upper right , left door
if ( pycor = 80 and pxcor = -3) [ set pcolor green ] ; upper right , left door
]

if upper-right = "Half"
[
if ( pycor = 85 and pxcor = 2) [ set pcolor red ] ; upper right , left door 
if ( pycor = 84 and pxcor = 1) [ set pcolor red ] ; upper right , left door 
if ( pycor = 83 and pxcor = 0) [ set pcolor red ] ; upper right , left door 
if ( pycor = 82 and pxcor = -1) [ set pcolor green ] ; upper right , right door
if ( pycor = 81 and pxcor = -2) [ set pcolor green ] ; upper right , right door
if ( pycor = 80 and pxcor = -3) [ set pcolor green ] ; upper right , right door
]

 if upper-right = "Close"
 [
 if ( pycor = 85 and pxcor = 2) [ set pcolor red ] ; upper right , right door
 if ( pycor = 84 and pxcor = 1) [ set pcolor red ] ; upper right , right door
 if ( pycor = 83 and pxcor = 0) [ set pcolor red ] ; upper right , right door
 if ( pycor = 82 and pxcor = -1) [ set pcolor red ] ; upper right , left door
 if ( pycor = 81 and pxcor = -2) [ set pcolor red ] ; upper right , left door
 if ( pycor = 80 and pxcor = -3) [ set pcolor red ] ; upper right , left door
 ]   
 ;; ----------------------------------------------------------------------------

 ]

 end    

Answer 1

这是一个不错的设计:)

您想要执行的方式仅在您准确检查 FD 在该补丁上移动海龟的补丁的情况下才有效。我注意到你检查了，patch-ahead 1但你问你的乌龟fd random 5哪个不检查前面的随机 5 并从红色补丁中跳转。可能有许多其他方法可以做你想做的事，而且我经常看到你使用的相同方法，如果你想让那个方法起作用，你应该检查正确距离的补丁，而不仅仅是提前补丁。

还有另一种方法可以做同样的事情，我不确定代理如何选择他们想要移动的门，但我已经分配了一个名为最近门的属性并用 [Pcolor = green] 的一个补丁填充它，然后我已经要求代理用它的步行速度检查补丁，看看它们是否是白色的，它们是否在正确的方向上，代理将移动到这些补丁。

turtles-own
[closest-door]

to setup 
....

create-turtles [

.....
    set closest-door min-one-of patches with [pcolor = green][ distance myself] ; nearest door
    set closest-door  one-of patches with [pcolor = green] ; any open door


]


to go
  ask turtles
  [move-toward-gym  closest-door random 5]
end
to move-toward-gym [my-door walking-speed]
  if my-door!= nobody [
face my-door
let possible-moves patches with [distance myself = walking-speed and pcolor = white]
let t min-one-of possible-moves [distance my-door]

if t != nobody [move-to t ]
]
end

更新：

首先，对于版本控制，您可以使用 Github，并且您永远不会因为代码的更改而迷失 :)

其次，让我知道您遇到了什么样的错误，只有在有可供代理使用的绿色补丁时，才能使用 move-toward-gym 功能。

https://www.dropbox.com/s/j8qe7omoediwysw/out.mov

更新：

我刚刚注意到您要求提供我的整个代码：

turtles-own
[closest-door

]

globals 
[lower-left
  lower-right
  upper-left
  upper-right
  ]


to setup
  clear-all
 movie-cancel
  movie-start "out.mov"
  ask patches [setup-world]
  set lower-left "Open"
    set lower-right "Open"
    set upper-left "Open"
    set upper-right "Open"
    set upper-left "Open"
  create-turtles 100  [
 set size 2

    move-to one-of patches with [
     pcolor = white


    ]
    set closest-door min-one-of patches with [pcolor = green][ distance myself] ; nearest door
    set closest-door  one-of patches with [pcolor = green] ; any open door



  ]
reset-ticks
end

to go

      if ticks < 50 
  [
  movie-grab-view
  ]


  ask turtles  
  [move-toward-gym  closest-door random 5]

  if ticks = 50 [movie-close]

  tick
end
to move-toward-gym [my-door walking-speed]
  if my-door != nobody
  [
face my-door
let possible-moves patches with [distance myself = walking-speed and pcolor = white]
let t min-one-of possible-moves [distance my-door]
ifelse  t != nobody [move-to t] []

if any? patches with [distance myself = walking-speed and pcolor = green]
[move-to one-of patches with [pcolor = green]
  ]]
end

Answer 2

一些相关的代码示例（在 NetLogo 模型库的代码示例部分）是 Look Ahead Example 和 Next Patch Example。

Look Ahead Example 展示了一种防止海龟撞墙的方法。它也可以作为一个测试平台，用于在有墙壁的情况下尝试更复杂的海龟运动规则。

下一个补丁示例应该有助于您更好地理解为什么海龟在补丁网格上“连续”移动的数学和逻辑比您最初预期的要复杂。