suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix benchmark graphs in the presence of the coefficient of variation.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-10-18 14:17:48 -04:00
parent a40723d14d
commit edacae9082
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/tests/racket/benchmarks/common/tabulate.rkt
View File

@ -500,7 +500,8 @@ exec racket -qu "$0" ${1+"$@"}
base n-base c-base) base n-base c-base)
(map (lambda (impl) (map (lambda (impl)
(let* ([a (assq impl (cdr bm-run))] (let* ([a (assq impl (cdr bm-run))]
[n (and a (caadr a))]) [n (and a (caadr a) (caaadr a))]
[coeff-var (and a (caadr a) (cadr (caadr a)))]) ; should be used for error bars
(list impl (if (zero? n) 1 (/ base n))))) (list impl (if (zero? n) 1 (/ base n)))))
sorted-impls)))) sorted-impls))))
bm-runs)] bm-runs)]
@ -527,7 +528,8 @@ exec racket -qu "$0" ${1+"$@"}
(lambda () (lambda ()
(map (lambda (impl) (map (lambda (impl)
(let* ([a (assq impl (cdr bm-run))] (let* ([a (assq impl (cdr bm-run))]
[n (and a (caadr a))] [n (and a (caadr a) (caaadr a))]
[coeff-var (and a (caadr a) (cadr (caadr a)))]
[n2 (and a (ntime a))]) [n2 (and a (ntime a))])
(bar-plot impl n (and n base (not (zero? n)) (bar-plot impl n (and n base (not (zero? n))
(/ base n))))) (/ base n)))))