to grow-regions [ num-regions ]
let region-num 0
ask n-of num-regions patches [
set pcolor item region-num base-colors
set region-num region-num + 1
]
while [ any? patches with [ pcolor = black ] ] [
ask patches with [ pcolor != black ] [
ask neighbors with [ pcolor = black ] [ set pcolor [ pcolor ] of myself ]
]
]
end
1 回答
一种策略是发展不同的地区 . 例如:
请注意,这最多可以绘制14个不同的区域(因为这是基色的数量) .
这导致像这样的区域:
编辑:误读您的评论 . 显然,这不会让你控制区域的大小,但平均大小将是
count patches / num-regions
.