simplebug.scm

来自「Swarm是一个非常有用的仿真工具」· SCM 代码 · 共 22 行

(list
 (
  cons 'displaySwarm
       (
	make-instance 'ObserverSwarm
		      #:displayFrequency 1
		      #:zoomFactor 5
		      )
       )
 (
  cons 'modelSwarm
       (
	make-instance 'ModelSwarm
		      #:worldXSize 100
		      #:worldYSize 100
		      #:seedProb 0.05
		      #:bugDensity 0.05
		      #:bugHardiness 10
		      )
       )
 )