Netlogo 海龟在特定的斑块颜色上改变颜色

这段代码包含了道路设置和海龟创建，在这之后，在路上的程序，使海龟采取粉红色的路径，我试图让海龟改变颜色，他们得到一个红色的补丁，但未知的原因，这段代码不起作用，汽车从来没有改变他们的颜色，并保持蓝色，因为有创造的颜色 我希望能得到一些帮助

        turtles-own [
         speed
          s?

        ]



to setup-road
   clear-all
     ask patches [
  ifelse pycor < -8 and pycor > -17 [set pcolor black ]
  [set pcolor gray - 3 ]
   if pycor < -9 and pycor > -15 [ set pcolor gray ]
  if pycor > -10 and pycor < -8 and pxcor > 20 and pxcor < 27
    [set pcolor white ]
     if pycor < -2 and pycor > -4 and pxcor < 20 and pxcor > -24
    [set pcolor pink ]
         if pycor < -3 and pycor > -10 and pxcor < -22 and pxcor > -24
        [set pcolor green ]
         if pxcor = 20  and pycor = -3
        [set pcolor red
        ]

      ]
       set-default-shape turtles "car"
      create-turtles 2 [
        set color blue
                set size 2
       set xcor random-xcor
        set ycor -12
        set heading 90
        set speed 0.1 + random-float 0.9
        set s? true

      ]
      reset-ticks

    end

    to go

        ask turtles [
        let car-ahead one-of turtles-on patch-ahead 2
        if car-ahead != nobody
        [ fd speed]
        let gate  one-of patches in-radius 5 with [pcolor = green ]
        let path  one-of patches in-radius 5 with [pcolor = pink ]


        if s?
        [ ifelse gate != nobody
          [ move-to gate
            fd speed

              ifelse path != nobody
              [
              move-to path
               fd speed
              if patch-ahead 1 != nobody and pcolor != pink
              [set color green ]

            ]
              [fd speed]]

         [fd speed]

      ]
      ]

      tick
    end

海龟自己的[
速度
s
]
修路
清除所有
询问补丁[
ifelse pycor<-8和pycor>-17[设置为黑色]
[设置颜色为灰色-3]
如果pycor<-9和pycor>-15[设置颜色灰色]
如果pycor>10且pycor<8且pxcor>20且pxcor<27
[将颜色设置为白色]
如果pycor<-2和pycor>-4以及pxcor<20和pxcor>-24
[设置为粉红色]
如果pycor<-3和pycor>-10以及pxcor<-22和pxcor>-24
[将颜色设置为绿色]
如果pxcor=20且pycor=-3
[设置颜色为红色]
]
]
设置默认形状海龟“车”
创造海龟2[
设置颜色为蓝色
2号套餐
设置xcor随机xcor
设置ycor-12
设置标题90
设定速度0.1+随机浮动0.9
设定s？真的吗
]
重置滴答声
结束
外带
问海龟[
让汽车在前面一只乌龟的前面2号补丁上
如果前面有辆车！=没人
[fd速度]
用[pcolor=green]选通半径为5的一个面片
用[pcolor=pink]设置半径为5的面片之一的路径
如果是的话？
[如果有人进来！=没有人
[移到大门
fd速度
如果没有人
[
移动到路径
fd速度
如果前面的补丁1！=无人，而pcolor！=粉红色
[设置颜色为绿色]
]
[fd速度]]
[fd速度]
]
]
打上钩
结束

以补丁为单位的模拟大小是多少？以默认大小运行模型时，我看不到任何红色、绿色或白色补丁。