netlogo：如何在4个角区分隔两军？

我必须做一个程序，为即将会面的两支特工部队中的每一支创建两个基地。我怎样才能使每一支军队都各就各位？士兵和将军是为每一支军队创造的，必须出生在他们的一个角落。在我所做的工作中，士兵和将军已经被创造出来，但他们并没有被军队分开。（我想做[army 1][army 2]）

繁殖[士兵]
士兵拥有[军队]
繁殖[将军]
将军们拥有[军队]
globals[转化士兵能量死亡战斗死亡]
海龟拥有[能量最大值]
设置
清除所有
安装补丁
安置海龟
重置滴答声
结束
设置修补程序
设置补丁大小为15
询问补丁[
if（距离XY 20）<基本尺寸[设置为黄色]
if（距离XY-20-20）<基本尺寸[设置为黄色]
if（距离XY-20）<基本尺寸[设置为粉红色]
如果（距离XY 20-20）<基本尺寸[设置为粉红色]
]
结束
安置海龟
从士兵中创造士兵[
设置形状“人”
设置颜色为红色
设置能量初始能量
设置最大能量为100
setxy随机xcor随机ycor
而[pcolor=黑色或pcolor=黄色]
[setxy random xcor random ycor]
]
创建将军初始化将军[
设置形状“人”
设置颜色为绿色
设置能量初始能量
设置最大能量为100
setxy随机xcor随机ycor
而[pcolor=黑色或pcolor=粉色]
[setxy random xcor random ycor]
]
结束

breed [ soldiers soldier ]
soldiers-own [ army ]
breed [ generals general ]
generals-own [ army ]

globals [ converted-soldiers death-by-energy death-by-combat ] 

turtles-own[ energy max-energy ]

to setup
  clear-all
  setup-patches
  setup-turtles
  reset-ticks
end

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

to setup-turtles

  create-soldiers init-soldiers [
    set shape "person"
    set color red
    set energy init-energy
    set max-energy 100 
    setxy random-xcor random-ycor

    while [pcolor = black or pcolor = yellow]
    [setxy random-xcor random-ycor]
  ]


  create-generals init-generals [
    set shape "person"
    set color green
    set energy init-energy
    set max-energy 100 
    setxy random-xcor random-ycor

    while [pcolor = black or pcolor = pink]
    [setxy random-xcor random-ycor]
  ]

end