設置補丁紅色和綠色的確切百分比

Question

在安裝程序中，我試圖設置整個修補程序紅色pcolor或綠色pcolor的確切百分比。
我正在使用標準修補程序環境，總共有1089個修補程序。
我有兩個滑塊：

• slider1（最多設置爲250個綠海龜）
• 滑塊2（最多設置250名紅龜）

有沒有辦法來設置1089個總補丁的確切百分比爲紅色，剩餘的百分比爲綠色？
從先前在網站上公佈一個有用的Q &適應代碼，我有這個編碼草案：

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 

任何有用的建議，將不勝感激。

Answer 1

你想要n-of！

ask n-of (p-red * count patches) patches [ set pcolor red ] 
ask patches with [ pcolor != red ] [ set pcolor green ]