如何提取NetLogo中所有turtle的移动路径并保存为.csv文件

turtles-own [ mypathx mypathy mytimer]

to setup
  ca
  reset-ticks
  crt 5
  ask turtles [
    setxy random-xcor random-ycor
    ; 初始化三个路径存储属性为空列表
    set mypathx []
    set mypathy []
    set mytimer []
    ; 提前写入初始位置，避免漏掉turtle起点坐标
    set mypathx lput pxcor mypathx
    set mypathy lput pycor mypathy
    set mytimer lput ticks mytimer
    pen-down
  ]                 
end

to go
  move
  ; 调整死亡判断逻辑，保证输出时turtle还未被销毁可以读取路径
  if ticks >= 10 [
    if output? = true [output]
    ask turtles [die]
  ]
  if count turtles = 0 [ stop ]
  tick
end

to move
  ask turtles [
    rt random 360
    fd 1
    ; 每次移动完成后立即写入当前位置和时间戳，保证路径完整
    set mypathx lput pxcor mypathx
    set mypathy lput pycor mypathy
    set mytimer lput ticks mytimer
  ]
end

to output
  ; 先删除旧文件避免多次运行内容累加混乱
  if file-exists? "turtle_paths.csv" [file-delete "turtle_paths.csv"]
  file-open "turtle_paths.csv"
  ; 写入CSV表头，方便后续数据处理
  file-print "turtle_id,pxcor,pycor,tick"
  ask turtles [
    let path-length length mypathx
    let i 0
    repeat path-length [
      ; 按CSV规范用逗号分隔字段
      file-print (word who "," item i mypathx "," item i mypathy "," item i mytimer)
      set i i + 1
    ]
  ]
  file-close
end

• 初始化阶段给每个turtle的自定义路径属性赋值为空列表，解决原代码中属性未初始化无法存储路径的问题
• 每次turtle移动完成就追加当前位置和当前tick到对应列表，保证每一步路径都被完整记录
• 调整死亡判断逻辑，把输出操作放到销毁turtle之前，避免输出时没有turtle对象可以读取路径
• 输出部分改为标准CSV格式，新增turtle_id字段区分不同个体的路径，同时修正了原代码中循环索引不递增的bug，避免重复输出同一条数据
• 新增旧文件判断逻辑，多次运行不会把新数据追加到旧文件里

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