1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
;; run sim for four hours
;;
(define *end-time* (* 60 50))
;; create the cpus
;;
(let loop ((count 200))
(add-cpu (conc "cpu_" count) 1 1)
(if (>= count 0)(loop (- count 1))))
(draw-cpus)
;; init the queues
;;
(hash-table-set! *queues* "normal" '())
(hash-table-set! *queues* "quick" '())
(draw-queues)
|
>
>
>
>
>
>
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
;; run sim for four hours
;;
(define *end-time* (* 60 50))
;; create the cpus
;;
(let loop ((count 200))
(add-cpu (conc "cpu_" count) 1 1)
(if (>= count 0)(loop (- count 1))))
(draw-cpus)
(define *pool1* (new-pool "generic" 100 100 100 100 2 10))
(let loop ((count 10))
(pool:add-cpu *pool1* (conc count) 1 1)
(if (> count 0)
(loop (- count 1))))
(pool:draw *ezx* *pool1*)
;; init the queues
;;
(hash-table-set! *queues* "normal" '())
(hash-table-set! *queues* "quick" '())
(draw-queues)
|