设置补丁红色和绿色的确切百分比

Question

在设置中，我试图设置整个补丁红色pcolor或绿色pcolor的确切百分比 我正在使用标准的补丁环境，总共有1089个补丁 我有两个滑块：

• slider1（最多可设置250只绿海龟）
• 滑块2（最多可设置250只红龟）

有没有办法将1089个补丁的准确百分比设置为红色，剩余的百分比是绿色？ 调整以前发布在本网站上的有用Q＆amp; A的代码，我有这个编码草案：

to color-patches

  let total slider1 + slider2
  let p-red   slider1 / total
  let p-green slider2 / total

  ask patches [
    let x random-float 1.0
    if x <= p-red [set pcolor red]
    if x <= p-green [set pcolor green]
  ]
end

非常感谢任何有用的建议。