From edacae9082f8dab2703ef9cf44ea41d868a4fb2f Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Tue, 18 Oct 2011 14:17:48 -0400 Subject: [PATCH] Fix benchmark graphs in the presence of the coefficient of variation. --- collects/tests/racket/benchmarks/common/tabulate.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/tests/racket/benchmarks/common/tabulate.rkt b/collects/tests/racket/benchmarks/common/tabulate.rkt index 5db0bae47e..925c509051 100755 --- a/collects/tests/racket/benchmarks/common/tabulate.rkt +++ b/collects/tests/racket/benchmarks/common/tabulate.rkt @@ -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)))))