有沒有辦法在NetLogo中用單行代碼設置多個補丁的補丁顏色？

Question

現在我使用

ask patch 1 1 [set pcolor grey] 
ask patch 1 -1 [set pcolor grey] 
ask patch -1 1 [set pcolor grey] 
ask patch -1 -1 [set pcolor grey] 

有沒有一種方法來設置多個修補補丁的顏色與代碼的NetLogo單行？

Answer 1

最簡單的方法：

ask (patch-set patch 1 1 patch 1 -1 patch -1 1 patch -1 -1) [ set pcolor grey ] 

（以下如果這是從觀察者（即，它不被任何代理人都跑已響應賽斯的評論:)

更新），可以使用at-points像這樣：

ask patches at-points [[1 1] [1 -1] [-1 1] [-1 -1]] [ set pcolor grey ] 

然而，如果這個代碼是由龜或補丁程序運行，座標表將被相對於治療劑。所以patches at-points [[1 0] [0 1]]會在右側給出補丁，並在當前代理上面給出補丁。您可以輕鬆地使用絕對座標的版本：

to-report patches-at-coords [ coordinates ] 
    report (patch-set map [patch first ? last ?] coordinates) 
end 

，然後用它像這樣：

ask patches-at-coords [[1 1] [1 -1] [-1 1] [-1 -1]] [ set pcolor grey ] 

無論如何，除非你做這個有很多，我會與第一去方法。