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))