蚂蚁模型中如何实现两种海龟（minors/foragers）交替出巢？

我明白你现在的困境：原来的代码依赖who >= ticks来延迟出发，但因为who是全局编号，觅食蚁（foragers）的编号大概率都在幼蚁（minors）之前，导致所有觅食蚁先全部出巢，幼蚁才开始行动。要实现两类蚂蚁交替出巢，我们需要分别控制两类蚂蚁的出发节奏，而不是依赖全局的ticks和who的对比。

下面是两种可行的解决方案：

方案1：利用ticks奇偶性交替出发 #

这种方式简单直接，通过判断ticks的奇偶性，让奇数tick出发一只觅食蚁，偶数tick出发一只幼蚁，直到某一类蚂蚁全部出完。

步骤1：添加全局变量和海龟变量 #

首先在代码开头定义全局索引变量，以及跟踪蚂蚁是否已出发的海龟变量：

globals [ forager-index minor-index ]
turtles-own [ has-started? ]

步骤2：初始化变量 #

在setup过程中初始化索引和状态：

to setup
  ;; 你的现有初始化代码（创建foragers、minors等）
  set forager-index 0
  set minor-index 0
  ask turtles [ set has-started? false ]
end

步骤3：修改go过程实现交替逻辑 #

to go
  ;; 先将两类蚂蚁按固定顺序排序（这里用who排序，保证出发顺序稳定）
  let sorted-foragers sort foragers
  let sorted-minors sort minors

  ;; 偶数tick出发一只觅食蚁（如果还有未出发的）
  if ticks mod 2 = 0 and forager-index < length sorted-foragers [
    ask item forager-index sorted-foragers [ set has-started? true ]
    set forager-index forager-index + 1
  ]

  ;; 奇数tick出发一只幼蚁（如果还有未出发的）
  if ticks mod 2 = 1 and minor-index < length sorted-minors [
    ask item minor-index sorted-minors [ set has-started? true ]
    set minor-index minor-index + 1
  ]

  ;; 让已出发的蚂蚁执行各自的行为
  ask foragers with [has-started?] [ wiggle fd 1 ]
  ask minors with [has-started?] [
    ifelse color = white [ look-for-transporter ] [ hitchhike ]
  ]

  tick
end

方案2：用"轮次"变量动态交替 #

如果你希望更灵活的交替逻辑（比如某一类蚂蚁先出完后，另一类持续出发），可以用一个全局变量记录上次出发的蚂蚁类型，动态切换轮次：

步骤1：添加全局变量和海龟变量 #

globals [ last-departure-type ]
turtles-own [ has-started? ]

步骤2：初始化变量 #

to setup
  ;; 你的现有初始化代码
  set last-departure-type "minor" ;; 初始设为minor，让第一次先出发forager
  ask turtles [ set has-started? false ]
end

步骤3：修改go过程 #

to go
  let remaining-foragers count (foragers with [not has-started?])
  let remaining-minors count (minors with [not has-started?])

  ;; 还有未出发的蚂蚁时，执行交替逻辑
  if remaining-foragers > 0 or remaining-minors > 0 [
    ;; 确定本次要出发的蚂蚁类型
    let next-type ifelse-value (remaining-foragers = 0) [ "minor" ] [
      ifelse-value (remaining-minors = 0) [ "forager" ] [
        ;; 交替切换类型
        ifelse-value (last-departure-type = "forager") [ "minor" ] [ "forager" ]
      ]
    ]

    ;; 出发一只对应类型的蚂蚁
    if next-type = "forager" [
      ask one-of (foragers with [not has-started?]) [ set has-started? true ]
      set last-departure-type "forager"
    ]
    if next-type = "minor" [
      ask one-of (minors with [not has-started?]) [ set has-started? true ]
      set last-departure-type "minor"
    ]
  ]

  ;; 已出发蚂蚁的行为逻辑
  ask foragers with [has-started?] [ wiggle fd 1 ]
  ask minors with [has-started?] [
    ifelse color = white [ look-for-transporter ] [ hitchhike ]
  ]

  tick
end

为什么原来的代码不行？ #

你之前尝试的if who >= ticks [ stop ]逻辑，是让所有who编号小于等于当前ticks的海龟行动。但因为觅食蚁的who编号通常在幼蚁之前（比如先创建foragers再创建minors），所以ticks递增时，会先覆盖所有觅食蚁的who编号，之后才轮到幼蚁，导致两类蚂蚁无法交替出巢。

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