Question

我在NetLogo中创建了鱼缸样式模拟。有＆＃34;猎物＆＃34;，＆＃34;掠食者＆＃34;和＆＃34; hidingspots＆＃34;。

这个想法是当捕食者出现在地图上时，猎物将单独运行＆＃34;隐藏＆＃34;行为并前往最近的＆＃34; hidingspot＆＃34; - 如果它与＆＃34; hidingspot＆＃34;之间没有掠夺者。

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

运行hide命令的相关代码。

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

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

我该如何解决这个问题？

感谢任何帮助。

Answer 1

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

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

我清理了代码中的其他几件事。我使用let作为局部变量d，因此它不必出现在你的全局变量中。我只要求min-one-of一次并重复使用，因为否则每次都可以选择不同的hidingspot（如果在相同的距离有多个）。虽然这次不会导致错误（因为第二个选择只是找到距离，根据定义，相同），这是一个好习惯。

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

要求补丁评估后的龟行为

2 个答案: