当所有补丁都已着色时如何停止海龟

Question

当海龟把世界一片片地覆盖后，我希望海龟停在最后一个，这样我就可以记录它所花费的刻度数。

到目前为止，这是我的代码：

globals [marked-patches angle nextangle]

to setup   ca   ask patches   [ set pcolor black ]   crt turtle_amount
[set color red
    set size 1
    setxy (random 20) (random 20)]    reset-ticks
end

to go   ask turtles [
    fd 1
    rt random trt_ang
    lt random trt_ang
    if pcolor = black [set pcolor yellow]   ]   
tick end

Answer 1

在go中，具体在turtle命令中，可以加上：

to go   
ask turtles [
     fd 1
     rt random trt_ang
     lt random trt_ang
         if pcolor = black [
           set pcolor yellow
           if count patches with [pcolor = black] = 0 [
               stop
           ]
    ]   
]   
             tick
     end

当所有补丁都已着色时如何停止海龟

How to stop turtles when all patches have been colored

netlogo