Netlogo中实现Buteo-platypterus在地图边缘间往返飞行的问题

我希望让鹰（Buteo-platypterus）在地图中飞行，但目前鹰仅沿地图边缘（非黑色区域）活动。尝试了以下代码：

ask patches [ ifelse pcolor != 0 and pxcor > 350 or pxcor < 100 [set edge 1][set edge 0 ]]

ask Buteo-platypterus [face max-one-of patches with [edge = 1] [distance myself] fd 5] 

该代码仅会让鹰朝向最远边缘但不移动。需求是让鹰从一个边缘到另一个边缘像乒乓球一样往返运动：到达一端边缘后转向另一端，反之亦然。鹰初始位于地图随机位置，需先到达任意边缘再开始往返运动。

（附示意图：

• 地图及鸟类示意图：显示带有黑色障碍区域的地图，鹰位于地图内随机位置
• 边缘补丁示意图：标记出所有被判定为边缘的非黑色补丁）

解决方案 #

问题分析

原代码存在两个核心问题：

1. 边缘补丁的判断逻辑有运算符优先级错误，导致部分非边缘补丁被误标记
2. 使用max-one-of朝向最远边缘补丁，目标过远且无方向切换逻辑，导致鹰无法正常往返

实现代码

首先添加鹰的状态变量，用于跟踪运动阶段和目标边缘：

turtles-own [
  target-edge ; 记录当前目标边缘："left"（左边缘，pxcor<100）或 "right"（右边缘，pxcor>350）
  has-reached-edge ; 标记是否已到达过边缘，进入往返阶段
]

初始化边缘补丁（修正逻辑错误）：

to setup-edges
  ask patches [
    ; 正确逻辑：非黑色区域，且属于左/右边缘范围
    ifelse (pcolor != 0) and (pxcor < 100 or pxcor > 350) [
      set edge 1
    ] [
      set edge 0
    ]
  ]
end

初始化鹰的随机位置：

to setup-hawks
  create-Buteo-platypterus 1 [
    setxy random-xcor random-ycor
    set has-reached-edge false ; 初始未到达过边缘
  ]
end

核心运动逻辑（分阶段处理）：

to move-hawks
  ask Buteo-platypterus [
    if not has-reached-edge [
      ; 阶段1：飞往最近的边缘，完成后进入往返阶段
      let nearest-edge min-one-of patches with [edge = 1] [distance myself]
      face nearest-edge
      fd 5
      ; 判断是否到达边缘（距离边缘补丁≤1时视为到达）
      if distance nearest-edge <= 1 [
        set has-reached-edge true
        ; 根据当前位置设置第一个往返目标
        set target-edge ifelse-value (pxcor < 100) ["right"] ["left"]
      ]
    ] [
      ; 阶段2：往返飞行，到达目标边缘后切换方向
      let target-patches patches with [edge = 1 and (target-edge = "left" -> pxcor < 100 ; 左边缘补丁
                                                    target-edge = "right" -> pxcor > 350)] ; 右边缘补丁
      let target-patch min-one-of target-patches [distance myself]
      face target-patch
      fd 5
      ; 到达目标边缘后切换方向
      if (target-edge = "left" and pxcor < 100) or (target-edge = "right" and pxcor > 350) [
        set target-edge ifelse-value (target-edge = "left") ["right"] ["left"]
      ]
    ]
  ]
end

关键说明

• 用min-one-of替代max-one-of，确保鹰飞往最近的目标补丁，避免无效朝向
• 分阶段处理：先完成初始边缘到达，再启动往返逻辑
• 修正边缘判断的逻辑运算符优先级，确保仅正确标记边缘补丁
• 添加到达边缘的判断触发方向切换，实现乒乓球式往返

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