修补程序集的netlogo最大和最小pxcor和pycor

我需要找到，对于给定的补丁集（总是一个正方形），pxcor和pycor的最大值和最小值

[0 10 10 0]

表示由点包围的正方形

(0,0), (10,0), (0,10), (10,10)

---

因此，我需要使用mathod tath将一个补丁集作为输入，并返回一个类似于示例中的列表。

给定一个名为

p-set

的补丁集，您可以使用此报告器：

to-report get-max-min [p-set]

   let coord []

   ask one-of p-set with-min [pxcor] [set coord lput pxcor coord]
   ask one-of p-set with-max [pxcor] [set coord lput pxcor coord]
   ask one-of p-set with-min [pycor] [set coord lput pycor coord]
   ask one-of p-set with-max [pycor] [set coord lput pycor coord]

   report coord

end

用法示例： 我想用

pcolor=red

let coord get-max-min (patches with [pcolor = red])

---

给定一个名为

p-set

的补丁集，您可以使用此报告器：

to-report get-max-min [p-set]

   let coord []

   ask one-of p-set with-min [pxcor] [set coord lput pxcor coord]
   ask one-of p-set with-max [pxcor] [set coord lput pxcor coord]
   ask one-of p-set with-min [pycor] [set coord lput pycor coord]
   ask one-of p-set with-max [pycor] [set coord lput pycor coord]

   report coord

end

用法示例： 我想用

pcolor=red

let coord get-max-min (patches with [pcolor = red])

---

我能想到的最简单的方法是：

to-report get-max-min [p-set]
  let xs [pxcor] of p-set
  let ys [pycor] of p-set
  report (list min xs max xs
               min ys max ys)
end

---

我能想到的最简单的方法是：

to-report get-max-min [p-set]
  let xs [pxcor] of p-set
  let ys [pycor] of p-set
  report (list min xs max xs
               min ys max ys)
end