NetLogo按网格百分比添加补丁问题：仅蓝色生效且需维持占比

原代码的核心问题 #

1. 百分比计算逻辑完全错误：你把「总数×百分比/100」搞成了「百分比×100/总数」，导致黄色、绿色、红色的目标数量极小（比如10%的话，原代码算出来约1.04），几乎看不到效果。
2. 颜色设置的嵌套ask逻辑错误：ask patches with [pcolor = black] 会让每个黑色补丁都执行一次内部的ask n-of ...，导致重复设置或逻辑混乱。
3. 遗漏红色、绿色的设置代码：原代码只处理了蓝色和黄色，绿色、红色完全没设置。
4. 未实现持续保持占比的逻辑：原代码只在setup里执行一次，模拟过程中不会自动调整。

修正后的完整代码 #

1. Setup 初始化代码 #

to setup
  clear-all
  let total count patches ; 不要写死961，用count patches自动获取总数，适配不同网格大小
  ; 计算各颜色目标数量：百分比转实际数量，round取整避免小数
  let target-yellow round (total * yellow-patches-amount-% / 100)
  let target-green round (total * green-patches-amount-% / 100)
  let target-red round (total * red-patches-amount-% / 100)
  let target-blue blue-patches-amount
  
  ; 先把所有补丁重置为黑色
  ask patches [ set pcolor black ]
  
  ; 设置蓝色补丁：从黑色补丁中选指定数量
  if target-blue > 0 [
    ask n-of min (list target-blue count patches with [pcolor = black]) patches with [pcolor = black] [
      set pcolor blue
    ]
  ]
  
  ; 设置黄色补丁
  if target-yellow > 0 [
    ask n-of min (list target-yellow count patches with [pcolor = black]) patches with [pcolor = black] [
      set pcolor yellow
    ]
  ]
  
  ; 设置绿色补丁
  if target-green > 0 [
    ask n-of min (list target-green count patches with [pcolor = black]) patches with [pcolor = black] [
      set pcolor green
    ]
  ]
  
  ; 设置红色补丁
  if target-red > 0 [
    ask n-of min (list target-red count patches with [pcolor = black]) patches with [pcolor = black] [
      set pcolor red
    ]
  ]
  
  reset-ticks
end

2. Go 过程中持续保持占比的代码 #

to go
  let total count patches
  let target-yellow round (total * yellow-patches-amount-% / 100)
  let target-green round (total * green-patches-amount-% / 100)
  let target-red round (total * red-patches-amount-% / 100)
  let target-blue blue-patches-amount
  
  ; 处理蓝色：数量不足补，多余改黑
  let current-blue count patches with [pcolor = blue]
  if current-blue < target-blue [
    ask n-of (target-blue - current-blue) patches with [pcolor = black] [
      set pcolor blue
    ]
  ]
  if current-blue > target-blue [
    ask n-of (current-blue - target-blue) patches with [pcolor = blue] [
      set pcolor black
    ]
  ]
  
  ; 处理黄色
  let current-yellow count patches with [pcolor = yellow]
  if current-yellow < target-yellow [
    ask n-of (target-yellow - current-yellow) patches with [pcolor = black] [
      set pcolor yellow
    ]
  ]
  if current-yellow > target-yellow [
    ask n-of (current-yellow - target-yellow) patches with [pcolor = yellow] [
      set pcolor black
    ]
  ]
  
  ; 处理绿色
  let current-green count patches with [pcolor = green]
  if current-green < target-green [
    ask n-of (target-green - current-green) patches with [pcolor = black] [
      set pcolor green
    ]
  ]
  if current-green > target-green [
    ask n-of (current-green - target-green) patches with [pcolor = green] [
      set pcolor black
    ]
  ]
  
  ; 处理红色
  let current-red count patches with [pcolor = red]
  if current-red < target-red [
    ask n-of (target-red - current-red) patches with [pcolor = black] [
      set pcolor red
    ]
  ]
  if current-red > target-red [
    ask n-of (current-red - target-red) patches with [pcolor = red] [
      set pcolor black
    ]
  ]
  
  ; 这里放你原有的模拟逻辑（比如海龟移动、其他行为）
  
  tick
end

关键说明 #

• 动态获取总数：用count patches代替写死的961，适配不同网格尺寸（比如你改了世界大小，代码不用改）。
• min函数处理边界：避免当目标数量超过剩余黑色补丁时出错。
• 双向调整：go过程中不仅会补不足的颜色，还会把多余的改回黑色，确保始终符合设置的占比/数量。
• 取整处理：用round把百分比计算的小数转成整数，因为n-of需要整数参数。

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