Bump up roundtrip-gathering period to 10s; remove useless variables

This commit is contained in:
Tony Garnock-Jones 2015-03-21 20:51:50 -04:00
parent cb6a481f25
commit add1d81f29
8 changed files with 20 additions and 28 deletions

View File

@ -71,7 +71,7 @@
;; We exchange pings with the server for this many milliseconds before
;; moving up to the next waypoint.
(define ping-time 5000)
(define ping-time 10000)
;; The ports representing a single connection.
(struct c (in out) #:transparent)

View File

@ -70,7 +70,7 @@
(values total-roundtrips (rate-at total-roundtrips) (- run-start-time boot-start-time))))
(module+ main
(define t 5000)
(define t 10000)
(define E (standard-logbook-entry (default-logbook #:verbose? #t) "minimart" "internal-latency-prospect"))
(define T (logbook-table E "internal-latency"
#:column-spec '(number-of-echoers

View File

@ -71,7 +71,7 @@
(values total-roundtrips (rate-at total-roundtrips) (- run-start-time boot-start-time))))
(module+ main
(define t 5000)
(define t 10000)
(define E (standard-logbook-entry (default-logbook #:verbose? #t) "minimart" "internal-latency-symbols-not-fixnums"))
(define T (logbook-table E "internal-latency"
#:column-spec '(number-of-echoers

View File

@ -70,7 +70,7 @@
(values total-roundtrips (rate-at total-roundtrips) (- run-start-time boot-start-time))))
(module+ main
(define t 5000)
(define t 10000)
(define E (standard-logbook-entry (default-logbook #:verbose? #t) "minimart" "internal-latency"))
(define T (logbook-table E "internal-latency"
#:column-spec '(number-of-echoers

View File

@ -10,8 +10,7 @@
(struct presence (id) #:transparent)
(define (run #:peer-count [peer-count 100]
#:run-time [run-time 10000])
(define (run #:peer-count [peer-count 100])
(define routing-update-count 0)
(define (peer id)
@ -34,7 +33,6 @@
(values routing-update-count delta))
(module+ main
(define t 5000)
(define E (standard-logbook-entry (default-logbook #:verbose? #t) "minimart" "observe-all-minimart"))
(define T (logbook-table E "presence-processing"
#:column-spec '(number-of-peers
@ -46,8 +44,8 @@
run-duration-ms)))
;; Warmup
(let ()
(run #:peer-count 1 #:run-time 1000)
(run #:peer-count 10 #:run-time 1000)
(run #:peer-count 1)
(run #:peer-count 10)
(void))
;; Real run
(for ((n
@ -61,7 +59,7 @@
(collect-garbage)
(collect-garbage)
(collect-garbage)
(define-values (routing-update-count run-duration-ms) (run #:peer-count n #:run-time t))
(define-values (routing-update-count run-duration-ms) (run #:peer-count n))
(write-logbook-datum! T (list n
(/ (/ run-duration-ms 1000.0) routing-update-count)
(/ routing-update-count (/ run-duration-ms 1000.0))

View File

@ -10,8 +10,7 @@
(struct presence (id) #:transparent)
(define (run #:peer-count [peer-count 100]
#:run-time [run-time 10000])
(define (run #:peer-count [peer-count 100])
(define routing-update-count 0)
(define (peer id)
@ -34,7 +33,6 @@
(values routing-update-count delta))
(module+ main
(define t 5000)
(define E (standard-logbook-entry (default-logbook #:verbose? #t) "minimart" "observe-all-prospect"))
(define T (logbook-table E "presence-processing"
#:column-spec '(number-of-peers
@ -46,8 +44,8 @@
run-duration-ms)))
;; Warmup
(let ()
(run #:peer-count 1 #:run-time 1000)
(run #:peer-count 10 #:run-time 1000)
(run #:peer-count 1)
(run #:peer-count 10)
(void))
;; Real run
(for ((n
@ -61,7 +59,7 @@
(collect-garbage)
(collect-garbage)
(collect-garbage)
(define-values (routing-update-count run-duration-ms) (run #:peer-count n #:run-time t))
(define-values (routing-update-count run-duration-ms) (run #:peer-count n))
(write-logbook-datum! T (list n
(/ (/ run-duration-ms 1000.0) routing-update-count)
(/ routing-update-count (/ run-duration-ms 1000.0))

View File

@ -12,8 +12,7 @@
(define presence-proj (project-pubs (presence (?!))))
(define (run #:peer-count [peer-count 100]
#:run-time [run-time 10000])
(define (run #:peer-count [peer-count 100])
(define routing-update-count 0)
(define (peer id)
@ -38,7 +37,6 @@
(values routing-update-count delta))
(module+ main
(define t 5000)
(define E (standard-logbook-entry (default-logbook #:verbose? #t) "minimart" "sum-all-minimart"))
(define T (logbook-table E "presence-processing"
#:column-spec '(number-of-peers
@ -50,8 +48,8 @@
run-duration-ms)))
;; Warmup
(let ()
(run #:peer-count 1 #:run-time 1000)
(run #:peer-count 10 #:run-time 1000)
(run #:peer-count 1)
(run #:peer-count 10)
(void))
;; Real run
(for ((n
@ -65,7 +63,7 @@
(collect-garbage)
(collect-garbage)
(collect-garbage)
(define-values (routing-update-count run-duration-ms) (run #:peer-count n #:run-time t))
(define-values (routing-update-count run-duration-ms) (run #:peer-count n))
(write-logbook-datum! T (list n
(/ (/ run-duration-ms 1000.0) routing-update-count)
(/ routing-update-count (/ run-duration-ms 1000.0))

View File

@ -12,8 +12,7 @@
(define presence-proj (compile-projection (advertise (presence (?!)))))
(define (run #:peer-count [peer-count 100]
#:run-time [run-time 10000])
(define (run #:peer-count [peer-count 100])
(define routing-update-count 0)
(define (peer id)
@ -43,7 +42,6 @@
(values routing-update-count delta))
(module+ main
(define t 5000)
(define E (standard-logbook-entry (default-logbook #:verbose? #t) "minimart" "sum-all-prospect"))
(define T (logbook-table E "presence-processing"
#:column-spec '(number-of-peers
@ -55,8 +53,8 @@
run-duration-ms)))
;; Warmup
(let ()
(run #:peer-count 1 #:run-time 1000)
(run #:peer-count 10 #:run-time 1000)
(run #:peer-count 1)
(run #:peer-count 10)
(void))
;; Real run
(for ((n
@ -70,7 +68,7 @@
(collect-garbage)
(collect-garbage)
(collect-garbage)
(define-values (routing-update-count run-duration-ms) (run #:peer-count n #:run-time t))
(define-values (routing-update-count run-duration-ms) (run #:peer-count n))
(write-logbook-datum! T (list n
(/ (/ run-duration-ms 1000.0) routing-update-count)
(/ routing-update-count (/ run-duration-ms 1000.0))