NetLogo中如何为各turtle breed设置专属住院统计全局变量

结合现有年龄结构疾病模型的代码结构，完全可以不拆分通用ask turtles遍历逻辑、不硬编码每个breed的判断分支，实现分群体的住院新增数统计，以下是两个适配需求的可落地方案：

方案1：用Table（关联字典）存储分群体计数（推荐） #

这种方案可扩展性最强，后续新增年龄组breed时完全不需要修改核心统计逻辑，只需要在模型初始化时自动识别所有已定义的breed即可：

• 全局变量区只需要新增1个Table类型的全局变量breed-hospitalizations，不需要为每个breed单独定义计数变量
• 模型初始化阶段，自动遍历所有声明的breed，在Table中建立breed名称和初始计数0的映射
• 原有ask turtles的核心逻辑只需要补1行代码，完全不需要判断当前turtle所属的breed：

;; 全局变量声明
globals [
  hospitalizations         ;; 原有全局总住院计数
  breed-hospitalizations   ;; 存储每个breed对应每步的新增住院数
]

;; 模型初始化
to setup
  clear-all
  set breed-hospitalizations table:make
  ;; 自动遍历所有已定义的breed，初始化计数为0
  foreach breeds [ current-breed -> table:put breed-hospitalizations current-breed 0 ]
  ;; 其余原有setup逻辑...
end

;; 每步模拟逻辑
to go
  ;; 每步开始前先把分群体计数清零，避免累计跨时间步的数值
  foreach (table:keys breed-hospitalizations) [ current-breed -> 
    table:put breed-hospitalizations current-breed 0 
  ]

  ask turtles [
    if state = 2 [  ;; 修正原示例代码漏写的if判断，避免统计逻辑错误
      if random-float 1 < lambda [
        set state 3
        set hospitalizations hospitalizations + 1
        ;; 自动根据当前turtle的breed，给对应条目计数+1
        let current-count table:get breed-hospitalizations breed
        table:put breed-hospitalizations breed (current-count + 1)
      ]
    ]
  ]
  ;; 其余原有模拟逻辑...
end

后续需要读取某类群体的住院数时，只需要用table:get breed-hospitalizations persons1就能拿到对应数值，和单独定义hospitalizations1全局变量的使用体验完全一致。

方案2：保留独立命名全局变量的动态实现 #

如果需要为每个breed设置独立命名的全局变量（比如hospitalizations1、hospitalizations2），也可以通过NetLogo的动态执行原语避免写重复判断逻辑：

• 按照需求在全局变量区定义好所有需要的独立计数变量，和breed的序号一一对应
• 同样只需要在原有turtle逻辑中加1行动态代码，不需要硬编码判断当前turtle属于哪个breed：

;; 全局变量声明
globals [
  hospitalizations
  hospitalizations1  ;; 对应persons1群体
  hospitalizations2  ;; 对应persons2群体
  ;; 其余按序号定义的独立计数变量...
]

ask turtles [
  if state = 2 [
    if random-float 1 < lambda [
      set state 3
      set hospitalizations hospitalizations + 1
      ;; 自动拼接当前turtle对应要修改的变量名，动态执行set操作
      let breed-suffix substring (word breed) 6 (length (word breed))
      let target-var word "hospitalizations" breed-suffix
      let current-value runresult target-var
      run (word "set " target-var " " (current-value + 1))
    ]
  ]
]

注意：上述代码的字符串截取是基于breed命名规则为persons1/persons2的情况（即persons固定占前6个字符，后面是群体数字编号），如果breed命名规则变化，只需要调整截取的字符索引即可。
相比Table方案，这种动态run的方式可读性稍弱，但完全满足不写重复分支、不修改通用遍历逻辑的要求。

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