From cde22db3dde26ed61a5b5759181dbf66bea237ee Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sun, 22 Mar 2015 19:02:32 -0400 Subject: [PATCH] Compute inverse too --- measure-routes.rkt | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/measure-routes.rkt b/measure-routes.rkt index e5cbd53..811d259 100644 --- a/measure-routes.rkt +++ b/measure-routes.rkt @@ -20,7 +20,10 @@ #:column-spec '(number-of-entries positive-probes-per-second negative-probes-per-second - large-positive-per-second))) + large-positive-per-second + seconds-per-positive-probe + seconds-per-negative-probe + seconds-per-large-positive))) (define *the-routes* #f) (define *count* 0) @@ -56,7 +59,10 @@ (write-logbook-datum! Tprobe (list *count* positive-probes-per-second negative-probes-per-second - large-positive-per-second))) + large-positive-per-second + (/ positive-probes-per-second) + (/ negative-probes-per-second) + (/ large-positive-per-second)))) (record-datapoint!) (let loop ((next-count 1000))