如何让乌龟同时移动？

Question

我正在模拟三个有乘客的公交车站。当一个汽车站的所有乘客都上车时，我希望公共汽车（一只乌龟）开走。这应该同时发生，但目前不是。公共汽车一个接一个地离开。有谁知道我做错了什么？提前致谢！我的代码：

    globals [time]
turtles-own [target]
breed [bus busses]
to setup

clear-all
  
  ;; above
  ask patches with [pxcor = 2 and pycor = 6][set pcolor white]
  ask patches with [pxcor = 2 and pycor = 5][set pcolor white]
  ask patches with [pxcor = 0 and pycor = 5][set pcolor white]
  ask patches with [pxcor = 0 and pycor = 6][set pcolor white]
  ask patches with [pxcor = 1 and pycor = 5][set pcolor white]
  ask patches with [pxcor = 1 and pycor = 6][set pcolor white]
  ask patches with [pxcor = 3 and pycor = 5][set pcolor white]
  ask patches with [pxcor = 3 and pycor = 6][set pcolor white]
  ask patches with [pxcor = 4 and pycor = 5][set pcolor white]
  ask patches with [pxcor = 4 and pycor = 6][set pcolor white]
  ask patches with [pxcor = 5 and pycor = 5][set pcolor white]
  ask patches with [pxcor = 5 and pycor = 6][set pcolor white]
  ask patches with [pycor = 7][
    set pcolor gray
  ]
  
  
 ;;middle
  ask patches with [pxcor = 2 and pycor = -6][set pcolor white]
  ask patches with [pxcor = 2 and pycor = -5][set pcolor white]
  ask patches with [pxcor = 0 and pycor = -5][set pcolor white]
  ask patches with [pxcor = 0 and pycor = -6][set pcolor white]
  ask patches with [pxcor = 1 and pycor = -5][set pcolor white]
  ask patches with [pxcor = 1 and pycor = -6][set pcolor white]
  ask patches with [pxcor = 3 and pycor = -5][set pcolor white]
  ask patches with [pxcor = 3 and pycor = -6][set pcolor white]
  ask patches with [pxcor = 4 and pycor = -5][set pcolor white]
  ask patches with [pxcor = 4 and pycor = -6][set pcolor white]
  ask patches with [pxcor = 5 and pycor = -5][set pcolor white]
  ask patches with [pxcor = 5 and pycor = -6][set pcolor white]
  ask patches with [pycor = -4][
    set pcolor gray
  ]
  
  
  ;;below
  ask patches with [pxcor = 2 and pycor = -15][set pcolor white]
  ask patches with [pxcor = 2 and pycor = -14][set pcolor white]
  ask patches with [pxcor = 0 and pycor = -14][set pcolor white]
  ask patches with [pxcor = 0 and pycor = -15][set pcolor white]
  ask patches with [pxcor = 1 and pycor = -14][set pcolor white]
  ask patches with [pxcor = 1 and pycor = -15][set pcolor white]
  ask patches with [pxcor = 3 and pycor = -14][set pcolor white]
  ask patches with [pxcor = 3 and pycor = -15][set pcolor white]
  ask patches with [pxcor = 4 and pycor = -14][set pcolor white]
  ask patches with [pxcor = 4 and pycor = -15][set pcolor white]
  ask patches with [pxcor = 5 and pycor = -14][set pcolor white]
  ask patches with [pxcor = 5 and pycor = -15][set pcolor white]
  ask patches with [pycor = -13][
    set pcolor gray
  ]
  
  ;; passengers above
  ask n-of Passengers_2 patches with [pcolor = white and pycor > 0][                     
      sprout 1[                                                                    
      set color grey                                                              
      set size 1       
      set shape "person"
      set target patches with [pxcor = 3 and pycor = 8]
            
  ]]
  ;; passengers middle
  ask n-of Passengers_1 patches with [pcolor = white and pycor < 0 and pycor > -12][                     
      sprout 1[                                                                    
      set color grey                                                              
      set size 1       
      set shape "person"
      set target patches with [pxcor = 3 and pycor = -3]
      
  ]]
  
  ;; passengers below
  ask n-of Passengers_3 patches with [pcolor = white and pycor < -12][                     
      sprout 1[                                                                    
      set color grey                                                              
      set size 1       
      set shape "person"
      set target patches with [pxcor = 3 and pycor = -12] 
      
  ]]
  
  
   ;; bus above
  create-bus Bus_2[
    set color red
    set size 5
    set xcor 3
    set ycor 8
    set shape "bus"
    set heading 90

]
  
  ;; bus middle
    create-bus Bus_1[
    set color red
    set size 5
    set xcor 3
    set ycor -3
    set shape "bus"
    set heading 90

]
  
   ;; bus below
  create-bus Bus_3[
    set color red
    set size 5
    set xcor 3
    set ycor -12
    set shape "bus"
    set heading 90

]
    reset-ticks

end

to check-in
  ask turtles with [pycor < 0 and pycor > -12 ] [                                   ;; middle
    move-to one-of patches with [pxcor = 3 and pycor = -3]
    if any? neighbors with [pxcor = 3 and pycor = -4] and shape != "bus"            ;; if passenger neighbors this patch, it dies
    [
      die]
  ]
  
    ask turtles with [ycor > 1 ] [                                                  ;; above
    move-to one-of patches with [pxcor = 3 and pycor = 8]
    if any? neighbors with [pxcor = 4 and pycor = 8] and shape != "bus"             ;; if passenger neighbors this patch, it dies
    [
      die]
  ]
  
  ask turtles with [ycor < -12 ] [                                                  ;; below
    move-to one-of patches with [pxcor = 3 and pycor = -12]
    if any? neighbors with [pxcor = 3 and pycor = -13] and shape != "bus"            ;; if passenger neighbors this patch, it dies
    [
      die]
  ]
    tick
end


to drive
  set time ticks
 if time > 0 [
    ask turtles  [
    forward 33  
  ]]
end



to go
  check-in
  drive
  tick
end

    

Answer 1

它仍然发生在同一个滴答声中，因此几乎是同时发生的，因为它们对彼此没有任何影响。 “一起离开”在这里的唯一效果是视觉效果。如果您真的希望它们一起移动，您应该使用链接将它们组合在一起，然后使用tie 以便它们的移动被链接，或者创建一个循环，它们都连续采取非常小的步骤。

还有一些说明：

• 顺便问一下time 参数的用途是什么？为什么不直接使用ticks？

• 你打电话给tick 两次。一次在go 和一次在drive。

• if 的用法在您的 check-in 过程中仍然感觉很奇怪，特别是因为您将它与 move-to 结合使用。

• neighbor 的用法也很奇怪。为什么不用patch-here 构造呢？

• 像one-of patches with [pxcor = 3 and pycor = 8] 这样的结构可以更方便地重写为patch 3 8

• 我仍然建议为您的乘客制作一个单独的品种。

• 公共汽车品种的命名仍然感觉很不一样，因为您使用单数公共汽车作为复数

（我故意不给出任何实际代码作为答案，因为这一系列帖子感觉非常像一个学校项目）