netlogoでwho番号の昇順または降順にエージェントを並べる方法は？

Question

私は、患者の手術室のモデルを作成しています。ここでは、中央の手術室に入るのを待っているパッチの左側に外科医が並んでいて、右側の病院で待っている患者を示す必要があります。

私は彼らのwho数

S1 S2 S3ごとに外科医と患者がパッチに配置することにしたい - 私は、私は以下のクエリを使用P1 P2 P3

- >手術室<あなたがそれらをラインアップした後、あなたはmove-toを持って

to lineup-patients 
    LET gapp 10      
    LET directions 
    [45 90 230 180 45 90 230 180 45 90 45 90 230 180 45 90 230 180 45 90 45 90 ] 
    LET jj 0      ; counter/index 
    REPEAT initial-number-patients 
    [ create-PATIENTS 1 
    [ SETXY (0 + jj * gapp) 20 
     set shape "person" 
     SET size 1.2 
     SET label who 
     SET label-color black 
     SET heading item jj directions 
    ] 
    SET jj jj + 1 
    ASK patients [ 
     MOVE-TO ONE-OF PATCHES WITH [ PCOLOR = yellow ] 
    ] ] 
END 

Answer 1

に番号を誰組み込むことがどこかわかりません。そして、それは常に既存のすべての患者を動かす。物を清潔に保つために、別のlineup procを書きます。

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