Netlogo 绘制具有合并道路的双车道公路

我正在尝试模拟自动驾驶车辆并入双车道公路，但在绘制合并道路时遇到了问题。我有一条从模型图书馆出来的双车道公路

to draw-road
  ask patches [
    set pcolor green
    if ((pycor > -4) and (pycor < 4)) [ set pcolor gray ]
    if ((pycor = 0) and ((pxcor mod 3) = 0)) [ set pcolor yellow ]
    if ((pycor = 4) or (pycor = -4)) [ set pcolor black ]
  ]
end

绘制道路
询问补丁[
将颜色设置为绿色
如果（（pycor>-4）和（pycor<4））[设置颜色灰色]
如果（（pycor=0）和（（pxcor mod 3）=0））[将pcolor设置为黄色]
如果（（pycor=4）或（pycor=-4））[将pcolor设置为黑色]
]
终止

但我无法找到一条从底部合并的道路。上面的代码只是处理水平线，但我还需要添加一个稍微倾斜的代码。我试过输入直线的方程式，但无法使其工作。感谢您的帮助

---

谢谢

如果你只想要一条连接高速公路的有角度的单车道道路，你可以尝试以下方法：

to draw-merge

  ask patches [
    if pycor < -3 [
      if ( pxcor < pycor + 7 ) and (pxcor > pycor - 1 ) [
        set pcolor black
      ]
    ]
    if pycor < -2 [
      if ( pxcor < pycor + 6 ) and (pxcor > pycor  ) [
        set pcolor gray
      ]
    ]
  ]

end

绘制合并
询问补丁[
如果pycor<-3[
如果（pxcorpycor-1）[
设置彩色黑色
]
]
如果pycor<-2[
如果（pxcorpycor）[
设置颜色为灰色
]
]
]
终止

看起来您的代码是基于NetLogo 5.3.1或更早版本的双车道交通。我建议你看看NetLogo 6.0中的相同型号：它改进了很多。