cruise.nlogo

来自「NETLOGO」· NLOGO 代码 · 共 239 行 · 第 1/5 页

globals [
  ticks
  mapname
]

;;;

to startup ; slow, do just once
   set mapname "";   set mapname "cruise"
   import-dat mapname
end

to setup
  clear-turtles clear-all-plots
  set ticks 0
  setup-agents
end

to import-dat [datfile]
  ifelse length datfile = 0 [
    (foreach values-from patches [self] patchcolors [set pcolor-of ?1 ?2])
  ][
    set datfile datfile + ".dat"
    file-open datfile 
    ask patches [set pcolor file-read]
    file-close
  ]
  ask patches with [pcolor = 9] [set pcolor 9.9999] ; to save space, 9.9.. converted to 9 during export.
end

to-report on-road?
  report (abs (pcolor - red) < 5) or  (abs (pcolor - orange) < 5) ;or  (abs (pcolor - pink) < 5)
end
to go-home ; agent proc
  stamp green setup-agent ; self healing!
end

to setup-agents
  create-custom-turtles num-cars [setup-agent]
end
to setup-agent
  set size 8
  set color black
  while [not on-road?] [ ; REMIND can't start on road!  Need until
    setxy random screen-size-x random screen-size-y
  ]
end