如何在NetLogo模型中实现员工在办公室与市民间的资金转移？

用户模型基础定义 #

breed [ offices office ]
breed [ service-desks service-desk ]
breed [ employees employee ]
breed [ citizens citizen ]

offices-own [ money ]
employees-own [ money-held ]
citizens-own [ money-received ]

初始化设置代码 #

create-offices 1
ask offices  [
  set shape "building institution"
  set size 4
  set color yellow
  set money num-of-money ]

ask patch 0 8 [
  sprout 1 [
    set breed service-desks
    set shape "building institution"
    set color pink
    set size 3 ]
]

需求说明 #

需实现员工完整流程：

• 前往办公室领取资金
• 前往服务台，与碰面的市民移交所持资金

已尝试的代码 #

to employee-give-money
  
  ask employees [
    if any? citizens in-radius 1 [
      
      set money-held money-held - 1
      
    ]
    
  ]
  
  ask citizens [
    set money-received money-received + 1
    
    set color orange 
    
  ]

问题分析 #

当前代码存在两个核心问题：

1. 资金转移不匹配：所有市民都会凭空增加资金，不管是否和员工碰面
2. 流程不完整：缺少员工从办公室领取资金的逻辑，也没有员工移动到对应地点的行为

完整解决方案 #

1. 员工从办公室领钱逻辑 #

确保员工到达办公室后，只有在办公室有资金时才能领取：

to employee-collect-money
  ask employees [
    ; 当员工在办公室1格范围内，且办公室有剩余资金
    if any? offices in-radius 1 and [money] of one-of offices > 0 [
      let target-office one-of offices
      ; 办公室资金减1，员工持有的资金加1
      ask target-office [ set money money - 1 ]
      set money-held money-held + 1
      ; 给员工加个状态标识，比如变蓝色
      set color blue
    ]
  ]
end

2. 修正员工给市民转账逻辑 #

让员工只给身边的特定市民转账，避免全员加钱：

to employee-give-money
  ask employees [
    ; 只有员工持有资金且身边有市民时才执行
    if money-held > 0 and any? citizens in-radius 1 [
      let target-citizen one-of citizens in-radius 1
      ; 员工资金减1
      set money-held money-held - 1
      ; 对应市民资金加1并改变颜色
      ask target-citizen [
        set money-received money-received + 1
        set color orange
      ]
    ]
  ]
end

3. 整合员工完整行为逻辑 #

让员工自动完成“去办公室→领钱→去服务台→找市民”的流程：

to employee-behavior
  ask employees [
    ; 没带钱就去办公室领钱
    if money-held = 0 [
      move-to one-of offices
      employee-collect-money
    ] else [
      ; 带钱后去服务台找市民
      move-to one-of service-desks
      employee-give-money
    ]
  ]
end

4. 完善初始化代码 #

补充员工和市民的创建及属性初始化，确保流程能跑通：

to setup
  clear-all
  ; 原有办公室和服务台创建代码
  create-offices 1
  ask offices  [
    set shape "building institution"
    set size 4
    set color yellow
    set money 10 ; 替换成你的num-of-money变量，确保初始资金充足
  ]

  ask patch 0 8 [
    sprout 1 [
      set breed service-desks
      set shape "building institution"
      set color pink
      set size 3 ]
  ]
  ; 创建员工
  create-employees 3 [
    set shape "person"
    set color green
    set money-held 0
    setxy random-xcor random-ycor ; 随机初始位置
  ]
  ; 创建市民，让他们聚集在服务台附近
  create-citizens 5 [
    set shape "person"
    set color white
    set money-received 0
    move-to one-of service-desks
    fd random 3 ; 在服务台周围随机散开
  ]
  reset-ticks
end

5. 主循环调用 #

在go过程中调用员工行为，让模型持续运行：

to go
  employee-behavior
  tick
end

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