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))
(define types (make-parameter '()))
(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"
@ -67,6 +66,13 @@
30 2.042))
(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
(let ([raw-data
@ -85,8 +91,6 @@
[else
(error 'data "is the wrong length!")]))))
(define (error-bar times)
(define sdev (stddev times #:bias #t))
(define this-z (if (> (length times) 30)
@ -127,16 +131,6 @@
0
(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)
(length
(or
@ -252,8 +246,7 @@
#:x-max (+ 0.5 (length (hash-keys name-avgs)))
#:legend-anchor 'top-left
#:width 1024
#:height 768))
)
#:height 768))))
(module+