Random Seed Example

;; Use a seed created by the NEW-SEED reporter

to use-new-seed
  let my-seed new-seed            ;; generate a new seed
  output-print word "Generated seed: " my-seed  ;; print it out
  random-seed my-seed             ;; use the new seed
end 

;; Use a seed entered by the user

to use-seed-from-user
  let my-seed read-from-string user-input "Enter a random seed (an integer):"
  output-print word "User-entered seed: " my-seed  ;; print it out
  random-seed my-seed             ;; use the new seed
end 

;; create turtles and assign them shapes randomly

to go
  clear-turtles
  ask patches [ sprout 1 ]
  repeat 50
  [ ask turtles
    [ set shape one-of shapes
      set label shape ]
    display ]
  output-print word "Result: " [(word " < " shape " > ")] of turtles
end 


; Public Domain:
; To the extent possible under law, Uri Wilensky has waived all
; copyright and related or neighboring rights to this model.