NetLogo中限制2类鸟类移出栅格区域的代码优化咨询

安全阿岳

2026-6-26

优化后的鸟类移动控制实现

你的核心需求是限制鸟类不离开指定安全区域，现有代码逻辑可行但存在冗余计算和重复判断的问题，以下是更简洁高效的实现方式：

改进思路

避免全局遍历所有patches，只在当前鸟的感知范围内查找，提升运行效率
合并重复的条件判断，简化逻辑分支
将安全区域的颜色集合定义为全局常量，方便后续维护修改

优化代码

; 全局变量定义安全区域颜色集合，统一管理便于修改
globals [ safe-colors ]

to setup
  set safe-colors [8 68 79 49 28]
  ; 此处添加其他初始化代码
end

to move-aves2 
  pen-down 
  ; 仅从安全区域中选取移动目标
  let target one-of patches with [member? pcolor safe-colors]
  if target != nobody [
    face target
    fd 8 
    set energy energy - 17.19 
  ] 

  ; 检查是否靠近边界区域
  let near-boundary? any? patches in-radius 10 with [borde-negro = 1]
  if near-boundary? [
    ; 仅在当前鸟的感知范围内查找黑块，避免全局遍历
    let nearby-black patches in-radius 10 with [pcolor = 130]
    if any? nearby-black [
      ; 面向最近黑块后转身离开
      face min-one-of nearby-black [distance myself]
      lt 180
      fd 1
    ] else [
      ; 无黑块时，向最近的安全区域移动
      let nearest-safe min-one-of patches with [member? pcolor safe-colors] [distance myself]
      face nearest-safe
      fd 9
    ]
  ]
end