Megatest

Check-in [5c50817156]
Login
Overview
Comment: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/==
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65-cleanup | v1.6565
Files: files | file ages | folders
SHA1: 5c508171562e08b05cd7a21d9bc09f217f6727f3
User & Date: jmoon18 on 2020-08-26 17:48:35
Original Comment: Added option to change the get-delay function by setting [load] new-load-method in the megatest.config
Other Links: branch diff | manifest | tags
Context
2020-08-26
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
16:10
Fixed genexample to fix call to simple-get-runs ==3.3/0.9/PASS/mars== check-in: 0dbbb70834 user: jmoon18 tags: v1.65-cleanup, v1.6565
Changes

Modified common.scm from [3098ddb7dd] to [1dd9692520].

1763
1764
1765
1766
1767
1768
1769










1770

1771
1772
1773
1774
1775
1776
1777
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779

1780
1781
1782
1783
1784
1785
1786
1787







+
+
+
+
+
+
+
+
+
+
-
+








;; calculate a delay number based on a droop curve
;;    inputs are:
;;      - load-in, load as from uptime, NOT normalized
;;      - 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))
          (* ratio (/ 5 .9)))
        ((and (> ratio .9) (<= ratio 1.1))
          (+ 5 (* (- ratio .9) (/ 55 .2)))) 
        ((> ratio 1.1)
          60)))
  (max (/ (expt 5 (* 4 (/ load-in numcpus))) 10) 0))
      (max (/ (expt 5 (* 4 ratio)) 10) 0))))


(define (get-cpu-load #!key (remote-host #f))
  (car (common:get-cpu-load remote-host)))
;;   (let* ((load-res (process:cmd-run->list "uptime"))
;; 	 (load-rx  (regexp "load average:\\s+(\\d+)"))
;; 	 (cpu-load #f))