Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- if ticks = 350
- [ask rbc [ set final-coord patch-here ]
- ask initial-coord [set dist dist + distance final-coord]
- set dist dist / (count rbc)]
- to makeOutputFile
- set fileCounter 0
- let date date-and-time
- repeat 16 [set date remove-item 0 date]
- set output_folder (word "Experiments/")
- while [file-exists? (word output_folder"run_"fileCounter"_"date"_output.txt")][set fileCounter fileCounter + 1]
- let output_file(word output_folder"run_"fileCounter"_"date"_output.txt")
- file-close-all
- file-open output_file
- file-write ( "dist:")
- file-write (dist)
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement