Compute inverse too
This commit is contained in:
parent
0a74c19e81
commit
cde22db3dd
|
@ -20,7 +20,10 @@
|
||||||
#:column-spec '(number-of-entries
|
#:column-spec '(number-of-entries
|
||||||
positive-probes-per-second
|
positive-probes-per-second
|
||||||
negative-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 *the-routes* #f)
|
||||||
(define *count* 0)
|
(define *count* 0)
|
||||||
|
@ -56,7 +59,10 @@
|
||||||
(write-logbook-datum! Tprobe (list *count*
|
(write-logbook-datum! Tprobe (list *count*
|
||||||
positive-probes-per-second
|
positive-probes-per-second
|
||||||
negative-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!)
|
(record-datapoint!)
|
||||||
(let loop ((next-count 1000))
|
(let loop ((next-count 1000))
|
||||||
|
|
Loading…
Reference in New Issue