Netlogo：计算海龟拥有列表的平均值

Question

我有 2 到 10 只海龟记得回家的路线。海龟的坐标在每个刻度都保存到列表 path 中。

to path-tracker
  let x xcor                     ;; gets the current coordinates
  let y ycor
  facexy x y
  setxy x y
  set path lput (list x y) path       ;; adds the coordinate pair (x,y) to the end of the path
end

当海龟都到达目标时，程序停止并返回它们开始的地方。现在另一个过程开始了，它们不应该遵循自己的路径，而是应该遵循所有路径的平均路径。

那么我如何计算所有海龟拥有的列表的平均列表？

Answer 1

这是一个非常简单的解决方案，它创建一个大小为路径长度的列表，其中第 ? 个元素是第 ? 个元素（坐标）的所有海龟第 0 项（x 坐标）的平均值的列表（坐标）和所有乌龟的第 ? 个元素（坐标）的第一项（y 坐标）的平均值：

 let path-length (length [path] of one-of turtles)
 let average n-values path-length [
   (list  (mean [(item 0 (item ? path)) ] of turtles)
          (mean [(item 1 (item ? path)) ] of turtles))]

如果你不喜欢它这么简洁，你可以使用下面的实现相同的结果。

  let average-path (list)
  foreach (n-values path-length [?])
  [
    let meanx (mean [(item 0 (item ? path)]] of turtles)
    let meany (mean [(item 1 (item ? path)]] of turtles)
    set average-path lput (list meanx meany) average-path 
  ]