Advertisement
Guest User

Untitled

a guest
Jul 18th, 2019
68
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.61 KB | None | 0 0
  1. if ticks = 350
  2. [ask rbc [ set final-coord patch-here ]
  3. ask initial-coord [set dist dist + distance final-coord]
  4. set dist dist / (count rbc)]
  5.  
  6. to makeOutputFile
  7. set fileCounter 0
  8. let date date-and-time
  9. repeat 16 [set date remove-item 0 date]
  10.  
  11. set output_folder (word "Experiments/")
  12.  
  13. while [file-exists? (word output_folder"run_"fileCounter"_"date"_output.txt")][set fileCounter fileCounter + 1]
  14. let output_file(word output_folder"run_"fileCounter"_"date"_output.txt")
  15.  
  16. file-close-all
  17. file-open output_file
  18. file-write ( "dist:")
  19. file-write (dist)
  20.  
  21. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement