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: |
5c508171562e08b05cd7a21d9bc09f21 |
| 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 | ;; 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) | > > > > > > > > > > | | 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 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))
|
| ︙ | ︙ |