Megatest

;;      - numcpus, number of cpus, ideally use the real cpus, not threads
;;
(define (common:get-delay load-in numcpus)
  (let* ((ratio (/ load-in numcpus))
         (new-option (configf:lookup *configdat* "load" "new-load-method")))
    (if new-option
      (begin
        (cond ((and (>= ratio 0) (<= ratio .9))
        (cond ((and (>= ratio 0) (< ratio .5))
          0
        )
        ((and (>= ratio 0.5) (<= ratio .9))
          (* ratio (/ 5 .9)))
        ((and (> ratio .9) (<= ratio 1.1))
          (+ 5 (* (- ratio .9) (/ 55 .2)))) 
        ((> ratio 1.1)
          60)))
      (max (/ (expt 5 (* 4 ratio)) 10) 0))))