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)
(map (lambda (impl)
(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)))))
sorted-impls))))
bm-runs)]
@ -527,7 +528,8 @@ exec racket -qu "$0" ${1+"$@"}
(lambda ()
(map (lambda (impl)
(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))])
(bar-plot impl n (and n base (not (zero? n))
(/ base n)))))