netlogo - Netlogo：传播恐惧（改变颜色和速​​度）

Question

在模拟开始时，我有 n 只海龟恐慌。to panic意味着设置为fear?真，设置颜色为红色，速度应该是 2 的 1。那些 n-of 海龟应该散布他们的恐惧。现在我有两个问题：

• 惊慌的乌龟不会比正常的乌龟移动得更快

我尝试turtles-own [speed]了set speed speed + 2惊慌失措的海龟（虽然害怕？= true），但它不起作用。

• 惊慌失措的乌龟不会传播他们的恐惧

我有以下代码：

to panic
  set color red
  set speed speed + 2
  set fear? true
end

to fear
  ask n-of number-of-panicking-people turtles [panic]
end 

to spread
  ask turtles with [fear? = true and color != red]
  [ask other turtles-here with [fear? = false]
    [if (random-float 100) < spreadfear
      [panic]]]
end

到目前为止唯一有效的是“恐惧”，一些乌龟变红但速度没有改变等。

谢谢！