NetLogo新手求助：如何每隔10个ticks将变量值存入数组？

1. 启用数组扩展 #

首先在代码开头声明数组扩展，这是使用NetLogo数组功能的前提：

extensions [array]

2. 初始化全局变量 #

需要定义存储数据的数组，以及一个记录下一个存储位置的索引变量，在setup过程中完成初始化：

globals [
  value-array   ; 用于存储变量值的数组
  array-index   ; 标记下一个要写入的数组位置
]

to setup
  clear-all
  set value-array array:make 0  ; 初始化空数组，后续可动态扩容
  set array-index 0
  reset-ticks
end

3. 实现定时存储逻辑 #

在go过程中，加入判断条件，每隔10个ticks将目标变量存入数组。假设你要存储的动态变量是current-value，替换为你实际使用的变量即可：

to go
  ; 这里写入你的仿真逻辑，更新current-value的值
  let current-value sin(ticks / 5) * 10  ; 示例：生成随tick变化的正弦值，替换为你的变量逻辑

  ; 每隔10个ticks执行存储操作，ticks>0避免初始tick=0时的误存储
  if (ticks mod 10) = 0 and ticks > 0 [
    ; 动态扩容数组，避免索引超出数组长度
    if array-index >= array:length value-array [
      set value-array array:extend value-array 0
    ]
    ; 将变量存入数组指定位置
    array:set value-array array-index current-value
    set array-index array-index + 1
    ; 可选：打印存储信息用于调试
    print (word "Tick " ticks " stored value: " current-value)
  ]

  tick
  ; 可选：设置仿真终止条件，比如运行100个ticks后停止
  if ticks >= 100 [ stop ]
end

4. 查看存储的数据 #

可以添加一个辅助过程，方便查看数组中存储的所有数据：

to print-stored-data
  print "===== Stored Values ====="
  let i 0
  while [i < array-index] [
    print (word "Index " i ": " array:get value-array i)
    set i i + 1
  ]
end

关键细节说明 #

• array:make 0创建空数组，若能预估存储次数，也可以直接指定初始长度（如array:make 10 0）
• array:extend用于动态扩展数组长度，避免存储时出现索引越界错误
• ticks mod 10 = 0是判断是否为10的倍数tick的核心逻辑，可根据需求调整间隔（比如改为20则mod 20）

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