拠点（形状四角）してください - 複数のサイズ - 対角配置

Question

私は対角線塩基（Perfet広場）を作りたいが、それは唯一のサイズまで2その後、2より多くの仕事は、私が正方形を失い始めます。

私のコードは次のとおりです。

to setup-patches  
      set-patch-size 15 

      ask patches[ 
      if (distancexy 20 20) < base-size [set pcolor yellow] 
      if (distancexy -20 -20) < base-size [set pcolor yellow] 

      if (distancexy -20 20) < base-size [set pcolor pink] 
      if (distancexy 20 -20) < base-size [set pcolor pink] 
      ]  
    end 

私が何を言っているか確認するために画像を確認してください。ムーアとフォン・ノイマン、および特定区域例：モデルのライブラリ内の二つの例で

Answer 1

ルック。あなたはボックス（ムーア）の近所を望んでおり、それを得るにはat-pointsを使うべきです。しかし、あなたのコード化された設定に近い付着し、あなたもこれを試すことができます。

to-report linf [#p1 #p2] 
    let _xdist abs ([pxcor] of #p1 - [pxcor] of #p2) 
    let _ydist abs ([pycor] of #p1 - [pycor] of #p2) 
    report max (list _xdist _ydist) 
end 

to setup-patches [base-size] 
    clear-all 
    set-patch-size 15 
    let diag1 (patch-set patch 20 20 patch -20 -20) 
    ask diag1 [ask patches with [linf self myself < base-size] [set pcolor yellow]] 
    let diag2 (patch-set patch -20 20 patch 20 -20) 
    ask diag2 [ask patches with [linf self myself < base-size] [set pcolor pink]] 
end