问构建给定指定区域的具有对称形状的面片簇

EN

to make-cluster
let Forest-size 60000
let patch-area 10
let forest-patch-number Forest-size / patch-area
let patch-number 1
let increment-patch 1
let random-patch one-of patches with [pcolor = black]
let cluster[] 

while [patch-number <= forest-patch-number] [

ask random-patch [set cluster patches in-radius increment-patch]

ifelse all? cluster [pcolor = black] [ 
ask cluster [set pcolor green] 
set patch-number count patches with [pcolor = green] 
set increment-patch increment-patch + 1 ] 

[set random-patch one-of patches with [pcolor = black]
set increment-patch 1] ]
end 

to create-forests
let forest-percent 0
let Forest-% 10
while [ forest-percent < Forest-% ] [ 
make-cluster 
set forest-percent round ( (count patches with [pcolor = green] / count patches) * 100 ) ] 
end