你有一个 move-to 在你排队之后。它总是会移动所有现有的患者。为了保持清洁,请单独写一下 lineup PROC。
move-to
lineup
to lineup [#patients #patch #gap] let _x ([pxcor] of #patch) let _y ([pycor] of #patch) let _xqs n-values (count #patients) [[n] -> _x + n * #gap] (foreach sort #patients _xqs [ [p x] -> ask p [setxy x _y] ]) end
您可以使用NetLogo的新实例对此进行测试,如下所示:
to test ca crt 20 lineup turtles one-of patches 0.5 end