553c72ab28
Moved Racket-language, doc-generating "defthing" defines to unstable/latent-contract/defthing (will document in another commit)
23 lines
845 B
Racket
23 lines
845 B
Racket
#lang racket/base
|
|
|
|
;; Functions that sample from functions, and functions that create memoized samplers.
|
|
|
|
(require racket/match racket/flonum racket/math racket/contract racket/list
|
|
unstable/latent-contract/defthing
|
|
"parameters.rkt"
|
|
"sample.rkt")
|
|
|
|
(provide (all-defined-out))
|
|
|
|
(defthing function->sampler ((real? . -> . real?) . -> . sampler/c)
|
|
(make-function->sampler plot-x-transform))
|
|
|
|
(defthing inverse->sampler ((real? . -> . real?) . -> . sampler/c)
|
|
(make-function->sampler plot-y-transform))
|
|
|
|
(defthing 2d-function->sampler ((real? real? . -> . real?) . -> . 2d-sampler/c)
|
|
(make-2d-function->sampler plot-x-transform plot-y-transform))
|
|
|
|
(defthing 3d-function->sampler ((real? real? real? . -> . real?) . -> . 3d-sampler/c)
|
|
(make-3d-function->sampler plot-x-transform plot-y-transform plot-z-transform))
|