NetLogo技术求助：如何实现雌雄海龟相遇后合并为已婚形态？

前置准备：定义海龟变量 #

首先需要给海龟添加性别和婚姻状态变量，在setup过程里完成初始化：

globals []
turtles-own [
  gender       ; 取值为"female"或"male"，对应你设置的雌雄形状
  married?     ; 布尔值，true=已婚，false=未婚
]

to setup
  clear-all
  ; 创建雌性海龟，使用你预设的雌性形状
  create-turtles 5 [
    set gender "female"
    set married? false
    set shape "female-icon"
    setxy random-xcor random-ycor
  ]
  ; 创建雄性海龟，使用你预设的雄性形状
  create-turtles 5 [
    set gender "male"
    set married? false
    set shape "male-icon"
    setxy random-xcor random-ycor
  ]
  reset-ticks
end

核心：相遇判断与结婚逻辑 #

在海龟的行为过程（比如go）中加入结婚判断逻辑，解决你遇到的相遇判断问题：

to go
  ask turtles [
    ; 仅未婚海龟触发判断：同patch存在未婚且性别相反的海龟
    if not married? and any? other turtle-here with [not married? and gender != [gender] of myself] [
      ; 选中符合条件的伴侣
      let partner one-of other turtle-here with [not married? and gender != [gender] of myself]
      ; 标记雌性为已婚
      if gender = "female" [set married? true]
      if [gender] of partner = "female" [ask partner [set married? true]]
      ; 删除其中一只海龟（示例保留当前海龟，可根据需求调整）
      ask partner [die]
      ; 修改保留海龟的形状为已婚图标
      set shape "married-couple-icon"
    ]
    ; 可添加海龟的其他行为，比如移动
    fd 1
  ]
  tick
end

关键代码说明 #

• 相遇判断核心：any? other turtle-here with [not married? and gender != [gender] of myself]，精准筛选出同patch内未婚且性别与自己相反的海龟。
• 使用one-of选中单个伴侣，避免同patch多只异性时出现逻辑混乱。
• 先完成雌性婚姻状态标记，再执行删除和形状修改操作，确保需求中的状态变更要求被满足。

注意事项 #

• 确保你已在NetLogo形状库中添加female-icon、male-icon和married-couple-icon三个自定义形状。
• 若你用布尔值（如is-female）标记性别，只需将判断条件替换为is-female != [is-female] of myself即可。

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