suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use parameterize instead of setting parameters

Browse Source
This commit is contained in:
Robby Findler 2014-03-21 16:25:41 -05:00
parent d05834afb7
commit bd3aaa0ff7
1 changed files with 181 additions and 188 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/graph-data.rkt
View File

@ -9,7 +9,6 @@
(provide (all-defined-out)) (provide (all-defined-out))
(define types (make-parameter '())) (define types (make-parameter '()))
(define all-types '(grammar search search-gen search-gen-enum search-gen-ref search-gen-enum-ref enum ordered)) (define all-types '(grammar search search-gen search-gen-enum search-gen-ref search-gen-enum-ref enum ordered))
(define names '("grammar" "search" "backjumping" "backjumping, ordered space" "backjumping, with refresh" (define names '("grammar" "search" "backjumping" "backjumping, ordered space" "backjumping, with refresh"
@ -67,6 +66,13 @@
30 2.042)) 30 2.042))
(define (make-plot filenames) (define (make-plot filenames)
(parameterize ([plot-x-tick-label-angle 75]
[plot-x-tick-label-anchor 'right]
[plot-font-size 20]
[error-bar-line-width 3]
[error-bar-width 12]
[plot-line-width 3]
[plot-y-transform (axis-transform-bound log-transform 0.00001 +inf.0)])
(define data (define data
(let ([raw-data (let ([raw-data
@ -85,8 +91,6 @@
[else [else
(error 'data "is the wrong length!")])))) (error 'data "is the wrong length!")]))))
(define (error-bar times) (define (error-bar times)
(define sdev (stddev times #:bias #t)) (define sdev (stddev times #:bias #t))
(define this-z (if (> (length times) 30) (define this-z (if (> (length times) 30)
@ -127,16 +131,6 @@
0 0
(error-bar times))))]))) (error-bar times))))])))
(plot-x-tick-label-angle 75)
(plot-x-tick-label-anchor 'right)
(plot-font-size 20)
(error-bar-line-width 3)
(error-bar-width 12)
(plot-line-width 3)
(plot-y-transform (axis-transform-bound log-transform 0.00001 +inf.0))
(define (name-order name) (define (name-order name)
(length (length
(or (or
@ -252,8 +246,7 @@
#:x-max (+ 0.5 (length (hash-keys name-avgs))) #:x-max (+ 0.5 (length (hash-keys name-avgs)))
#:legend-anchor 'top-left #:legend-anchor 'top-left
#:width 1024 #:width 1024
#:height 768)) #:height 768))))
)
(module+ (module+