Netlogo 环形交叉口的网络标志、分配和车道

[

globals[gl_my-car gl_cars gl_cars-count gl_加速器gl_减速器gl_speed-max gl_speed-min gl_speed-maxcircle gl_speed-maxright gl_distance-stright
gl_距离-左gl_距离-右gl_度-每英尺gl_侧面gl_减速gl_直线距离
gl_距离到00 gl_Carmin分离gl_反应时间
gl_motospeed-max gl_my-moto gl_moto-count
gl_卡车速度最大gl_我的卡车gl_卡车计数
gl_总线速度-max gl_我的总线gl_总线计数
汽车分离卡车分离公共汽车分离
]
品种[卡通车]
品种[摩托车视图摩托车]
品种[trucktopview卡车]
品种[bustopview总线]
海龟自有[
前进方向的速度差
小路
]
设置
清除所有
将总帐车辆数设置为0
；每秒100滴答声
将gl_moto-count设置为0
将总帐卡车计数设置为0
将gl_总线计数设置为0
将gl_加速器设置为0.001；每秒10英尺
将gl_减速器设置为0.001；每秒10英尺
设置gl_速度-最大0.513333；35英里/小时，51.3333英尺/秒
将gl_速度最小值设置为1.e-10
设置gl_速度-maxcircle gl_速度-max*0.5；正常速度的一半
将gl_speed-maxright gl_speed-max设置为*0.62；约为正常速度的60%
设置gl_直线距离34.77
设置左gl_距离58.34
将gl_距离设置为右侧35.2
每英尺设置gl_度3.81972
设置总平面（15^2-6^2）
设置gl_减速（gl_速度-最大^2-gl_速度-最大循环^2）/（2*（gl_减速器））
设置gl_直线距离gl_减速+gl_侧
将gl_距离设置为00平方米（gl_直线距离^2+6^2）
设置gl_carminseparation 15；假设轿厢长度为10'，轿厢之间的距离为5'
设置gl_发动机分离10
将gl_卡车设置为分离20
设置gl_总线分离25
将gl_反应时间设置为100；100个滴答声或1秒反应时间

创建cartop编号cartop
[
设置颜色（随机3*40+15）；15=红色=向右，55=绿色=直线，95=天空=向左
设置形状“轿顶”
5号套餐
设置速度gl_speed-max-随机浮动。1；；这一圈是hinh dang xe vábao cao vi tri
把杜伦达约为0
将前进方向设置为0
分发汽车
]
陶克梅
创建mototopview编号MOTOS
[
设置颜色（随机3*40+15）
设置形状“motortopview”
3号套餐
设置速度gl_motospeed-max-随机浮动。1；；这一圈是hinh dang xe vábao cao vi tri
把杜伦达约为0
将前进方向设置为0
分发摩托车
]
陶克泰
创建trucktopview编号卡车
[
设置颜色（随机3*40+15）
设置形状“trucktopview”
7号套餐
设定速度gl_卡车速度最大值-随机浮动。1；这是一个非常小的速度
把杜伦达约为0
将前进方向设置为0
配送车
]
公共汽车
创建bustopview编号Bus
[
设置颜色（随机3*40+15）
设置形状“bustopview”
7号套餐
设置速度gl_-busspeed-max-随机浮动。1；；这一圈是hinh dang xe vábao cao vi tri
把杜伦达约为0
将前进方向设置为0
分配总线
]
将GLU my-car设置为cartop中的一个
看我的车
将gl_my-moto设置为mototopview之一
看我的摩托车
将gl_my-truck设置为trucktopview之一
看着我的卡车
将gl_my-bus设置为bustopview之一
看我的车
询问补丁
[
陶渊旭
如果（pxcor^2+pycor^2<35^2）和（pxcor^2+pycor^2>10^2）
[
设置彩色灰色
]

如果（pxcor^2+pycor^2<7^2）和（pxcor^2+pycor^2>0^2）
[
设置颜色为蓝色
]
陶多芳
如果abs（pxcor）>0且abs（pxcor）<7且（pxcor^2+pycor^2>10^2）
[
设置彩色灰色
]
59426
如果abs（pycor）>=0且abs（pycor）35）
[
设置颜色为黄色
]
陶兰奥托·多芬·范东
如果abs（pycor）>1.5且abs（pycor）<17且（pxcor^2+pycor^2>10^2）
[
设置彩色灰色
]
；陶黛芬·卡奇兰·梅多芬·范东
如果abs（pycor）>=17且abs（pycor）为35）
[
设置颜色为黄色
]
；；陶岚xe may duong pham van dong
如果abs（pycor）>19且abs（pycor）<26且（pxcor^2+pycor^2>10^2）
[
设置彩色灰色
]
；陶兰·多恩·雷佩芬·范东芬·范特里·范东芬·范东芬·本·多伊
如果（（abs（pxcor）-55pycor）以及abs（pxcor）>-10和pycor<-10）
[
设置彩色灰色
]
；；陶兰多·雷佩芬·范东潘·范特里菲·本特伦
如果（（-pxcor）+55>pycor）和（-pxcor）+350和pycor>10）
[
设置彩色灰色
]
；；陶兰多·雷佩潘·范特里潘·范东菲·本特伦
如果（（pxcor）+55>pycor）和（（pxcor）+3510）
[
设置彩色灰色
]
]  
重置滴答声
终止
5942
分发汽车
随机设置航向4*90
；兰潘文崔本辉
如果（标题=0）
[setxy（1+随机（pxcor+6））（40+随机（max-pycor-30））*（2*随机2-1）]
；兰潘范特里本火车站
如果（航向=180）
[setxy（-1+随机（pxcor-6））（（40+随机（max-pycor-30））*（2*随机2-1））]
；兰范东本对
如果（航向=90）
[setxy（（40+随机（最大pxcor-38））*（2*随机2-1））（-3+随机（pycor-13））]
蓝范东本特伦
如果（航向=270）
[setxy（（40+随机（最大pxcor-38））*（2*随机2-1））（3+随机（pycor+13））]
如果有的话？这里还有其他海龟吗
[分发汽车]
终止
phan
分发摩托车
随机设置航向4*90
兰潘·范特里本培
如果（标题=0）
[setxy（1+随机（pycor+6））（40+随机（最大pycor-30））*（2*随机2-1）]
；兰范东本对
如果（航向=90）
[setxy（（40+随机（最大pxcor-38））*（2*随机2-1））（-20+随机（pycor-6））]
兰潘瓦