Netlogo 设置红色和绿色斑块的确切百分比

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

• 滑块1（用于设置多达250只绿海龟）
• 滑块2（用于设置多达250只红海龟）

有没有办法设置1089个总补丁中红色和剩余绿色的确切百分比？
根据之前在本网站上发布的有用问答改编代码，我有以下代码草案：

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

到色块
让总滑块1+滑块2
让p-red滑块1/总计
让p-green滑块2/总计
询问补丁[
让x随机浮动1.0
如果你想要的话

哇，布莱恩。这是一个非常精辟和快速的回答。我感谢你的帮助。我明天会尝试你的解决方案。当然，除非我遇到阻碍，否则我不会发布问题。再次感谢你，克雷恩。
ask n-of (p-red * count patches) patches [ set pcolor red ]
ask patches with [ pcolor != red ] [ set pcolor green ]