NetLogo模型中如何计算单只海龟的总移动距离？

一、计算单只海龟的移动总像素距离 #

你的代码里已经用到distance-traveled变量累计距离，只需补充初始化和监视器设置即可：

1. 初始化变量：在setup过程中给每只海龟初始化distance-traveled为0，避免运行时报错：

   to setup
     ; 其他初始化代码（如创建海龟、设置生物量等）
     ask turtles [ set distance-traveled 0 ]
   end
   

2. 添加监视器：

   • 在NetLogo界面顶部菜单栏点击「Add」→「Monitor」；
   • 查看单只特定海龟的总距离，输入：distance-traveled of turtle 0（turtle 0代表第一只海龟，可替换为对应海龟的编号或标签）；
   • 查看所有海龟的总距离/平均距离，可分别输入：sum [distance-traveled] of turtles 或 mean [distance-traveled] of turtles。

   现有代码中forward 1每次移动1像素，set distance-traveled (distance-traveled + 1)的累计方式是准确的；如果后续修改移动步数（如forward 2），只需将+1改为对应步数即可。

二、计算画笔绘制线条的总长度 #

NetLogo画笔没有内置长度统计功能，可通过以下两种方式实现：

方法1：实时累计线条长度（推荐） #

1. 定义全局变量存储总长度，在setup中初始化：

   globals [ total-pen-length ]
   
   to setup
     ; 其他初始化代码
     set total-pen-length 0
     ask turtles [ 
       set distance-traveled 0
       pen-down ; 让海龟开始画线
     ]
   end
   

2. 修改move-turtles过程，每次移动时计算位置差并累计：

   to move-turtles
     let old-pos list xcor ycor ; 记录移动前的位置
     uphill-biomass  
     forward 1
     set distance-traveled (distance-traveled + 1)
     ; 累计画笔线条长度
     set total-pen-length (total-pen-length + distance old-pos (list xcor ycor))
     if not can-move? 1 [ rt random 150 ]  
   end
   

3. 添加监视器，输入total-pen-length即可实时查看总线条长度。

方法2：通过画笔坐标点计算总长度 #

如果需要事后统计已绘制线条的长度，可利用pen-points命令获取所有坐标点，再计算相邻点的距离总和：

to-report calculate-pen-length
  let pen-points pen-points
  let total-length 0
  if length pen-points > 1 [
    repeat (length pen-points - 1) [
      let p1 first pen-points
      set pen-points but-first pen-points
      let p2 first pen-points
      set total-length (total-length + distance p1 p2)
    ]
  ]
  report total-length
end

可以将这个命令绑定到按钮，或在监视器中直接输入calculate-pen-length查看结果。

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