Netlogo：如何在特定条件下安装递减计时器的 "initial value"

Question

我想在乌龟到达路的尽头（右端）时设置一个递减计时器。（我只想为到达道路左端的乌龟激活减量计时器。）并继续转动减量计时器，直到乌龟在指定条件下死亡。递减定时器的设置时间（"A"）是单独设置的。我制作了以下示例程序。但该模型效果不佳。因为在这个示例程序中，如果乌龟在路的右端，递减定时器的初始值会随着每个刻度继续设置。我想在乌龟到达路的尽头时设置递减计时器的初始值。因此，decrement-timer 的初始值不能在模型的开头设置到"to setup"编程space。当我在"to setup"设置decrement-timer的初始值时，decrement-timer的初始值会在乌龟到达路的尽头之前保留在日志中。我想避免麻烦的日志计数。

let carright one-of turtles-on patch max-pxcor 0
if carright != nobody [ 
  ask carright [ set count-down A ] ;this is the problem.
  ask carright [ set speed 0 ]
  ask carright [ set count-down count-down - 1 ]
]`

您好 Jen B，我参考您的示例代码制作了以下示例代码并进行了测试。然而，减量计数器没有移动。如果你给我建议，我会很高兴。

let onend? one-of turtles-on patch max-pxcor 0
ask turtles-on patch max-pxcor 0 
;;In this syntax "ask turtles with onend?" I got an error so I changed it.

[ if-else count-down > 0
  [ set count-down count-down - 1 ]
  [ 
    set gamma-A precision (random-gamma (α) (β))0
    if gamma-A <= 0 [
      die
      set number-of-turtles  number-of-turtles - 1
      set number-dead number-dead + 1
    ] 
  ]
]
ask turtles-on patch max-pxcor 0
;;I got an error in this syntax "Ask turtles - on patch max - pxcor 0 with not onend?", so I changed it.

[ set count-down A ;;This worked properly. 
  set speed 0 ;;This worked properly.
  set color red ;;This worked properly.
  set onend? TRUE
]

Answer 1

我仍然不清楚您要做什么，但根据评论讨论，这可能比您拥有的代码更接近。

turtles-own [onend?]    ; note that you will have to set this to false in setup

ask turtles with [onend?]
[ if-else count-down > 0
  [ set count-down count-down - 1 ]
  [ die ]
]
ask (turtles-on patch max-pxcor 0) with [not onend?]
[ set count-down A
  set speed 0
  set onend? TRUE
]

Netlogo：如何在特定条件下安装递减计时器的 "initial value"

Netlogo: How can I install the "initial value" of the decrement-timer with specific conditions

timer

netlogo