Netlogo 这不是最优的

模拟道路上的汽车——在汽车死亡的地方创建车站

• 在你的道路上随机放置汽车（从城市开始）。汽车在需要充电（死亡）前可以行驶约50英里
• 没有车站
• 模拟汽车在道路上随机行驶
• 当汽车撞到车站时，它会充满电
• 如果一辆车的电量耗尽，它就会死亡，并且该补丁/节点/位置的计数器会增加
• 重复
• 当补丁中的计数器超过某个值时，在那里设置一个站
• 创建桩号时，半径为50英里的所有面片的计数器将按渐变方式减少，最靠近桩号的计数器将减少到0，最远的计数器将减少到0

最终，电台将在需要它们的地方弹出。看这部电影会很有趣

~~詹姆斯

to setup-stacijas
  set-default-shape boats "tree"
  create-boats num-boats [
    set speed 0 ; min-speed + random-float (max-speed - min-speed)
    let l one-of links
    set size 18
    set-next-stacija-link l [end1] of l
  ]
end 

to set-next-stacija-link [l n] ;; boat proc
  set cur-link l
  move-to n
  ifelse n = [end1] of l [set to-node [end2] of l] [set to-node [end1] of l]
  face to-node
end

;; get all nodes that are multiples of 50 miles from start
let stations no-turtles
ask start [ set stations nodes with [ (floor distance myself) MOD 50 = 0 ]