乌龟在请求补丁评估后的行为

Question

我正在NetLogo中创建一个鱼缸风格的模拟。有"猎物"、"捕食者"one_answers"藏身之处"。

这个想法是，当捕食者出现在地图上时，猎物会单独进行"隐藏"行为，并前往最近的"隐藏点"——前提是它和"隐藏点之间没有捕食者。

to move-turtles
  ask prey  [
    if (any? predators)
    [
      hide
      stop
    ]

运行隐藏命令的相关代码。

to hide
  face min-one-of hidingspot [distance myself]  
  set d distance min-one-of hidingspot [distance myself]
  ask patches in-cone d 80
  [ set pcolor yellow
    if (any? predators-here)
    [ ask prey
      [ forward 1
        set color red 
        output-print "DANGER"]]]
    forward 1
end

问题是我不知道如何正确使用"询问补丁"中的if语句。因此，当一个猎物发现威胁时，所有猎物都在执行声明的其他部分，而不是单独评估。

我该怎么解决这个问题？

感谢您的帮助。

Answer 1

你需要把你要求猎物做的事情和你要求补丁做的事情分开。正如King Ink所说，你要求补丁要求所有猎物做事情。

最简单的方法是为"危险"补丁创建一个补丁集，然后检查这些补丁上是否有捕食者。要做到这一点，您需要以下内容（请注意，这是一个完整的模型，因此您可以将整个代码复制到一个新模型中并运行它）。

我清理了你代码中的一些其他内容。我为局部变量d使用了let，这样它就不必出现在全局变量中。我只要求min-one-of一次，然后重复使用，因为否则每次都可以选择不同的隐藏点（如果在同一距离有多个）。虽然这一次不会造成错误（因为第二次选择只是为了找到定义上相同的距离），但这是一个很好的做法。

breed [prey a-prey]
breed [predators predator]
breed [hidingspots hidingspot]
to setup
  clear-all
  create-predators 1 [setxy random-xcor random-ycor set color red]
  create-prey 5 [setxy random-xcor random-ycor set color brown]
  create-hidingspots 20
  [ setxy random-xcor random-ycor
    hide-turtle
    ask patch-here [set pcolor green]
  ]
  reset-ticks
end
to go
  ifelse any? predators
    [ ask prey [hide] ]
    [ ask prey [swim] ]
end
to hide                                      ; turtle procedure
  let target min-one-of hidingspots [distance self]
  let path patches in-cone distance target 80
  ask path [ set pcolor yellow ]
  if any? predators-on path
  [ set color red 
    output-print "DANGER"
    face target 
  ]
  forward 1
end
to swim
end

Answer 2

您要求每个猎物要求所有猎物躲藏起来。如果你从命令中删除询问猎物，所有猎物都在运行，它应该可以正常工作，并且会更快一点

to hide
   face min-one-of hidingspot [distance myself]  
   set d distance min-one-of hidingspot [distance myself]
   ask patches in-cone d 80
     [set pcolor yellow]
   if (any? predators-here)
    [ 
      forward 1
      set color red 
      output-print "DANGER"
    ] 
end