netlogo实现相向行驶的小汽车.docxVIP

在街道上行驶的汽车要求：汽车按照上下行车道行驶汽车的加速度和减速度，通过滑动空间来调节。行驶过程中不发生碰撞事件。能够时时检测汽车在行驶过程中的最大速度和最小速度。绘制某一选定汽车在整个运行期间的速度曲线globals [ sample-car ]turtles-own [ speed speed-limit speed-min ]to setup clear-all ask patches [ setup-road ] setup-cars reset-ticksendto setup-road if (pycor 20) and (pycor 0) [ set pcolor white ]endto setup-cars set-default-shape turtles car crt number-of-cars [ set color blue set size 1 set shape car setxy random-xcor random-ycor set heading 90 ;;; set initial speed to be in range 0.1 to 1.0 set speed 0.1 + random-float .9 set ycor 2 set ycor random 2 + 6 set speed 0.1 + random-float .9 set speed-limit 1 set speed-min 0 separate-cars ] crt number-of-car2s [ set color orange set size 1 set shape car top setxy random-xcor random-ycor set heading 270 ;;; set initial speed to be in range 0.1 to 1.0 set ycor random 2 set ycor random 2 + 17 set speed 0.1 + random-float .9 set speed-limit 1 set speed-min 0 separate-cars ] set sample-car one-of turtles ask sample-car [ set color red ] ask patches with[pycor = 10 and pxcor = 0 and pxcor = 50 ][ set pcolor 122 ]endto separate-cars if any? other turtles-here [ fd 1 separate-cars ]endto go ask turtles [ let car-ahead one-of turtles-on patch-ahead 1 ifelse car-ahead != nobody [ slow-down-car car-ahead ] [ speed-up-car ] if speed speed-min [ set speed speed-min ] if speed speed-limit [ set speed speed-limit ] fd speed ] tickendto slow-down-car [car-ahead] set speed [speed] of car-ahead - decelerationendto speed-up-car set speed speed + accelerationend