primes - Netlogo のウラム スパイラルのような四角いスパイラルをどのように実現しますか?

Question

私は朝を過ごして、このようなパッチに番号を付ける簡単な関数 (x,y) -> n を見つけようとしました

私は成功しませんでした。経験や提案はありますか？

Answer 1

これが私の見解です：

patches-own [ n ]

to setup
  clear-all
  resize-world -4 4 -4 4 ; so it looks better, but use any size you like...
  create-turtles 1 [
    set heading 180
    foreach n-values count patches [ ? + 1 ] [
      set n ?
      if [ n = 0 ] of patch-left-and-ahead 90 1 [ left 90 ]
      fd 1
    ]
    die
  ]
  ask patches [ set plabel n ]
end

Answer 2

おかしなことに、私も同じことをして朝を過ごしました。フロア機能を使った機能がありますが、netlogoだと思い出したので亀にやってもらいました。

この手順で

to spin
 let k 1
  set t t + 1
  repeat 2
  [
   lt 90
   repeat t [fd 1 ask patch-here [set n k set k k + 1]]
  ]
end

起動時のこのコード。

 crt 1 [
    set heading 0
    repeat 41 [spin]
    die
    ]

そしてもちろん

patches-own [n]

それらを n オーダーで呼び出すには

foreach sort-on [n] patches ask ? [ "the stuff you want them to do" ]