NetLogo中如何查找行驶方向前方距离最近的智能体

原有代码会匹配到后方车辆，核心是两个实现缺陷：

• in-cone 50 0定义的是理论上宽度为0的射线，NetLogo基于浮点数做夹角判定时会产生不可控的精度误差，很容易把不在正前方、甚至位于车辆后方的对象误纳入候选集
• in-cone原生逻辑只校验夹角阈值，不会强制判定目标是否处于车辆前进的半平面内，0角度下误差会被进一步放大，最终返回不符合预期的结果

针对NetLogo自带基础交通模型（单车道、车辆沿固定路径行驶的场景），替换原有代码为如下内容即可严格锁定正前方最近车辆：

ask turtles with [color = red] [
  ; 提前缓存当前车辆属性，避免后续遍历候选时作用域混乱
  let my-x xcor
  let my-y ycor
  let my-dir-dx dx
  let my-dir-dy dy
  set car-ahead min-one-of other turtles in-cone 50 2 [
    ; 计算当前车辆指向候选车的位移向量
    let disp-x xcor - my-x
    let disp-y ycor - my-y
    ; 用点乘计算位移在车辆前进方向的投影：正值代表在前方，负值代表在后方
    let forward-proj my-dir-dx * disp-x + my-dir-dy * disp-y
    ; 后方车辆返回超大距离值直接排除，前方车辆返回真实距离参与最近值排序
    ifelse-value (forward-proj > 0.1) [distance myself] [99999]
  ]
]

• 把锥角从0调整为2：用总张角2度（朝向中线左右各1度）的窄探测锥代替0宽度射线，从根源规避浮点计算精度导致的误判，这个宽度刚好覆盖单车道范围，不会纳入相邻车道的车辆
• 新增前进方向投影校验：通过车辆朝向单位向量与两车位移向量的点乘结果，强制把所有后方车辆排除出候选范围，0.1的容差用于规避两车位置完全重合时的计算异常
• 最终min-one-of只会从真正处于车辆正前方探测范围内的对象中，选取距离最近的车辆赋值给car-ahead，不会再出现匹配到后方车辆的问题。如果是多车道场景，只需要根据车道宽度适当调大锥角数值即可，核心的前方校验逻辑无需改动。

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