jipd-grid.scm

来自「swarm的例子,包換對java,xml,servlet等的介紹」· SCM 代码 · 共 50 行

(list
  (cons 'Strategy0
     (make-instance 'Strategy 
                    #:name "all-D" 
                    #:red 0.5F0
                    #:green 0.50F0
                    #:blue 0.00F0
                    #:number 0 
                    #:i 0.000000D0 
                    #:p 0.000000D0 
                    #:q 0.000000D0))
  (cons 'Strategy1
     (make-instance 'Strategy 
                    #:name "aTFT" 
                    #:red 0.0F0
                    #:green 0.00F0
                    #:blue 1.00F0
                    #:number 1 
                    #:i 0.000000D0 
                    #:p 0.000000D0 
                    #:q 1.000000D0))
  (cons 'Strategy2
     (make-instance 'Strategy 
                    #:name "TFT" 
                    #:red 1.0F0
                    #:green 0.00F0
                    #:blue 0.00F0
                    #:number 6 
                    #:i 1.000000D0 
                    #:p 1.000000D0 
                    #:q 0.000000D0))
  (cons 'Strategy3
     (make-instance 'Strategy 
                    #:name "all-C" 
                    #:red 0.9F0
                    #:green 0.60F0
                    #:blue 0.50F0
                    #:number 7 
                    #:i 1.000000D0 
                    #:p 1.000000D0 
                    #:q 1.000000D0)))