如何让一只或两只乌龟（如果有的话）做一个动作？

Question

以下代码查找至少有一只雄性和一只雌性存在的所有补丁，然后在每个这样的补丁上，有一个雌性孵化一只随机性别的后代海龟。

turtles-own [ gender] 
to setup 
ask patches [ 
sprout  1 
[set size 0.2 
set color pink 
set gender "female" 

]] 
ask patches [ 
sprout  1 
[set size 0.2 
 set color blue 
 set gender "male" 



]] 

reset-ticks 

end

to-report parents-here?  ;; patch procedure
report any? turtles-here with [gender = "male"]
     and
     any? turtles-here with [gender = "female"]
 end

to go
ask patches with [parents-here?] [
ask one-of turtles-here with [gender = "female"] [
  hatch 1 [
    set gender one-of ["male" "female"]
  ]
 ]
 ]
 tick
 end

我不想问一位雌性孵化，而是询问在场的一位雌性是否要求它孵化“或”是否有两名在场的雌性要求它们孵化（最少一只，最多两只）。 我试着写了

ask n-of 2 turtles-here ............

但我有一个错误说这个补丁只有 1 个来自海龟

我尝试使用（但也有错误） 我也试着写了

ask n-of (1 + random 2 )

作为最小值和最大值，也是错误的。

提前谢谢你

Answer 1

这是我能想到的最简单的解决方案：

let females turtles-here with [gender = "female"]
ask n-of (min list 2 count females) females [
  hatch 1 [
    ...
  ]
]

为什么是min list 2 count females？当您想要最大 2 时，您需要使用名为 min 的原语，这有点违反直觉。但 min list 2 ... 的结果始终为 2 或更小。或者，如果您按案例分解：

• 如果count females 为0，则min list 2 count females 也为0。
• 如果count females 为1，则min list 2 count females 也为1。
• 如果count females 为2 或更多，则min list 2 count females 为2。

如果我理解正确的话，这就是你想要的。