Megatest

Check-in [344f97d10a]
Login
Overview
Comment:Updated get-delay function to return 0 from 0 to .5 ratio, then begin to ramp.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65-cleanup
Files: files | file ages | folders
SHA1: 344f97d10ac21c0f90b4640000a0b2a52da80079
User & Date: jmoon18 on 2020-08-26 19:27:39
Other Links: branch diff | manifest | tags
Context
2020-08-26
19:36
Changing genexample simple-get-runs argument to #f for consistency in style check-in: 658ed21c84 user: jmoon18 tags: v1.65-cleanup
19:27
Updated get-delay function to return 0 from 0 to .5 ratio, then begin to ramp. check-in: 344f97d10a user: jmoon18 tags: v1.65-cleanup
17:48
Added option to change the get-delay function by setting [load] new-load-method in the megatest.config ==/2.9/0.9/PASS/1204/mars/== check-in: 5c50817156 user: jmoon18 tags: v1.65-cleanup, v1.6565
Changes

Modified common.scm from [1dd9692520] to [2890b41a2a].

1767
1768
1769
1770
1771
1772
1773
1774




1775
1776
1777
1778
1779
1780
1781
1767
1768
1769
1770
1771
1772
1773

1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784







-
+
+
+
+







;;      - 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))))