sim.app.scheme.run1.scm Maven / Gradle / Ivy

Go to download

Show more of this group Show more artifacts with this name
Show all versions of mason Show documentation

MASON is a fast discrete-event multiagent simulation library core in Java, designed to be the foundation for large custom-purpose Java simulations, and also to provide more than enough functionality for many lightweight simulation needs. MASON contains both a model library and an optional suite of visualization tools in 2D and 3D.

The newest version!

;;; Copyright 2006 by Sean Luke
;;; Licensed under the Academic Free License version 3.0
;;; See the file "LICENSE" for more information

(load "tutorial1.scm")
(load "ca.scm")

;; we could just call doLoop on our class...

(:doLoop :class 
	( (*:toString "-until") (*:toString 5000)))

;; Or instead we'll just do our own start/step/finish cycle...

;(let ((t1 ( 1234)))
;  (t1:start)
;  (do ((x 0 (+ x 1))) ((= x 5000))
;    (if (= (modulo (+ x 1) 500) 0) 
;	(begin (write x) (newline)))
;    (t1:schedule:step t1))
;  (t1:finish))


;; all done
(exit)