获取死亡海龟平均年龄：NetLogo代码实现问题咨询

看起来你现在的代码逻辑有点偏差，没法准确统计海龟死亡时的平均年龄，我来帮你梳理下问题并给出可行的解决方案：

原代码的核心问题 #

• 你用全局变量mean-death-age直接取当前所有海龟的年龄均值，但这里面包含了还活着的海龟，完全不是“死亡时的平均年龄”
• 没有专门存储死亡海龟年龄的容器，每次触发prob-die?时就计算一次，逻辑混乱
• 缺少每个时间步重新计算prob-die?的逻辑

正确的实现思路 #

要准确统计死亡时的平均年龄，我们需要：

1. 用一个列表来记录每只死亡海龟的年龄，而不是直接存均值
2. 每个时间步给所有海龟重新计算死亡概率
3. 海龟死亡时，先把它的年龄存入列表，再让它消失
4. 随时可以通过这个列表计算平均死亡年龄

完整代码示例 #

; 全局变量：存储所有死亡海龟的年龄列表
globals [ dead-turtle-ages ]
; 海龟变量：年龄、当前时间步的死亡概率
turtles-own [ age prob-die? ]

to setup
  clear-all
  ; 初始化死亡年龄列表为空
  set dead-turtle-ages []
  ; 创建一批初始海龟，年龄设为0
  create-turtles 100 [
    set age 0
    setxy random-xcor random-ycor
  ]
  reset-ticks
end

to go
  ; 第一步：所有海龟年龄增加1（模拟时间流逝）
  ask turtles [ set age age + 1 ]
  
  ; 第二步：每个时间步重新计算死亡概率（这里用一个年龄相关的示例逻辑，你可以换成自己的规则）
  ask turtles [
    ; 示例：年龄越大，死亡概率越高，这里设为年龄/100的概率死亡
    set prob-die? (random-float 1 < (age / 100))
  ]
  
  ; 第三步：处理死亡的海龟——先记录年龄，再让它们消失
  ask turtles with [ prob-die? ] [
    ; 把当前海龟的年龄添加到死亡年龄列表末尾
    set dead-turtle-ages lput age dead-turtle-ages
    ; 海龟死亡
    die
  ]
  
  ; 第四步：计算并输出平均死亡年龄（避免空列表报错，先判断是否有死亡记录）
  if length dead-turtle-ages > 0 [
    print (word "截至当前，海龟死亡平均年龄: " mean dead-turtle-ages)
  ] else [
    print "目前还没有海龟死亡"
  ]
  
  tick
end

关键细节说明 #

• dead-turtle-ages列表：这是核心，它会持续收集每只死亡海龟的年龄，确保我们统计的是真正死亡个体的年龄数据
• 死亡概率更新：在go过程里，每个时间步都会重新给所有海龟计算prob-die?，完全满足你的需求
• 死亡处理顺序：一定要先记录年龄再调用die，否则海龟消失后就拿不到它的年龄了
• 空列表判断：当还没有海龟死亡时，直接计算mean dead-turtle-ages会报错，所以先判断列表长度

这样修改后，你就能准确获取所有海龟死亡时的平均年龄了。

内容的提问来源于stack exchange，提问作者Hannah H.