NetLogo海龟边缘转向与互避优化：解决卡顿问题

问题根源分析 #

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

• 边缘处理采用硬转180度，角落处会陷入来回反弹的死循环；
• 边缘避让与同伴避让用互斥ifelse逻辑，同时触发时只会处理一个规则，导致卡顿；
• 随机转向幅度过小，覆盖区域效率低。

优化后的完整代码 #

to setup
  clear-all
  set pcolor black ; 初始化未探索区域为黑色
  let ycord one-of (list min-pycor max-pycor)
  crt 3 [
    setxy random-pxcor ycord
    set size 4
    set color yellow
    pen-down
    set pcolor gray ; 标记初始位置为已探索
  ]
  reset-ticks
end

to go
  tick
  ask turtles [search]
end

to search
  ; 1. 平滑边缘避让：提前2步开始转向，避免卡边缘/角落
  let edge-turn 0
  ; 左边缘：右转15-45度
  if xcor <= min-pxcor + 2 [ set edge-turn edge-turn + (random 30) + 15 ]
  ; 右边缘：左转15-45度（负数对应左转）
  if xcor >= max-pxcor - 2 [ set edge-turn edge-turn - (random 30) + 15 ]
  ; 下边缘：右转15-45度
  if ycor <= min-pycor + 2 [ set edge-turn edge-turn + (random 30) + 15 ]
  ; 上边缘：左转15-45度
  if ycor >= max-pycor - 2 [ set edge-turn edge-turn - (random 30) + 15 ]

  ; 2. 同伴避让：平滑转向远离最近同伴，避免卡顿
  let neighbor-turn 0
  if any? other turtles in-radius 5 [
    let closest other min-one-of turtles [distance myself]
    let away-heading towards closest + 180 ; 远离同伴的方向
    let turn-diff heading - away-heading
    ; 取最小转向幅度（比如差200度时，转-160度而非200度）
    set turn-diff ifelse-value (abs turn-diff) > 180 [ turn-diff - 360 * sign turn-diff ] [ turn-diff ]
    ; 限制转向幅度在±45度，避免突然大转向
    set neighbor-turn clamp turn-diff -45 45
  ]

  ; 3. 倾向未探索区域，最大化覆盖范围
  let unexplored patches with [pcolor = black] in-radius 10
  if any? unexplored [
    let target one-of unexplored
    let explore-heading towards target
    let explore-diff heading - explore-heading
    set explore-diff ifelse-value (abs explore-diff) > 180 [ explore-diff - 360 * sign explore-diff ] [ explore-diff ]
    ; 小幅调整朝向未探索区域
    set heading heading + clamp explore-diff -20 20
  ]

  ; 4. 合并所有转向 + 随机探索
  set heading heading + edge-turn + neighbor-turn + (random 41) - 20 ; 随机转向-20到+20度

  ; 5. 最后检查：确保下一步不会卡边缘
  let next-x xcor + dx 1
  let next-y ycor + dy 1
  if next-x <= min-pxcor or next-x >= max-pxcor or next-y <= min-pycor or next-y >= max-pycor [
    set heading heading + random 60 + 30 ; 额外转向30-90度调整
  ]

  ; 移动并标记已探索区域
  fd 1
  set pcolor gray
end

关键优化说明 #

• 平滑边缘避让：提前触发转向，用随机角度替代固定180度转向，彻底解决角落反弹问题；
• 同伴避让逻辑：不再互斥处理边缘与同伴规则，而是合并转向参数，同时满足两个避让需求，消除卡顿；
• 覆盖区域最大化：加入未探索区域导向逻辑，引导海龟优先前往未走过的区域，提升搜索效率；
• 最终位置预检查：移动前确认下一步位置，避免调整后仍卡边缘的极端情况。

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