NetLogo访问出口列表内Patch坐标报错的解决方法咨询

问题场景 #

编写NetLogo代码模拟房间内乘客移动，已将出口定义为Patch列表exits-list，尝试访问列表中每个Patch的坐标计算乘客当前位置与出口的距离时，出现错误提示：expected a literal value，错误出现在代码行let exit-patch [patch-xcor item 0 ?, patch-ycor item 1 ?]。

错误原因 #

这段代码存在两个核心问题：

1. 误解了foreach遍历Patch列表的方式：exits-list中的每个元素本身就是完整的Patch对象，不需要手动拆分坐标。
2. 语法错误：[patch-xcor item 0 ?, patch-ycor item 1 ?]完全不符合NetLogo的语法规则，NetLogo没有这种提取坐标的写法。

修正后的完整代码 #

to initialize-exits
   set exit1 patch 64 -13
   set exit2 patch 13 -54
   set exits-list (list exit1 exit2)
end

to initialize-passengers
   create-passengers passenger-count [
          set shape          "person business"
          set size            2
          set color           yellow
          set in-seat?        true
          set safe?           false
          set dead?           false
          set panic?          false
          set current-heading 0
          set target-exit     nobody
          set my-exits-list   []

          choose-exit patch-here       ; 调用选择出口的过程
  ]
  ask passengers [
      let target one-of patches with [accessible?]
      face target
      move-to target
  ]
end

to choose-exit [current-position]
   let possible-exits []
   let shortest-distance 10000
   let nearest-exit nobody
   ; 遍历出口列表，每个元素是完整的Patch对象
   foreach exits-list [this-exit ->
       ; 直接计算当前位置与出口Patch的距离
       let dist current-position distance this-exit
       if dist < shortest-distance [
           set shortest-distance dist
           set nearest-exit      this-exit
           set possible-exits    []
       ]
       if dist = shortest-distance [
           set possible-exits lput this-exit possible-exits
       ]
   ]
   if possible-exits is-empty [
      print "No exits found."
      return
   ]
   let lucky-exit    one-of possible-exits
   set target-exit   lucky-exit
   set my-exits-list lput lucky-exit my-exits-list
end

关键修正点说明 #

• 正确遍历Patch列表：使用foreach exits-list [this-exit -> ...]接收每个出口Patch对象，this-exit直接代表列表中的单个出口补丁。
• 简化距离计算：由于current-position和this-exit都是Patch类型，直接通过current-position distance this-exit即可获取两者的欧几里得距离，无需手动提取x、y坐标。
• 移除无效语法：删除了错误的坐标拆分代码，避免语法报错。

内容的提问来源于stack exchange，提问作者accismns