30 lines
1.6 KiB
Racket
30 lines
1.6 KiB
Racket
#lang racket/base
|
|
|
|
(require racket/contract unstable/latent-contract)
|
|
|
|
(require "../common/sample.rkt"
|
|
"../common/math.rkt")
|
|
(provide (contract-out (struct sample ([xs (listof real?)]
|
|
[ys (listof real?)]
|
|
[y-min (or/c regular-real? #f)]
|
|
[y-max (or/c regular-real? #f)]))
|
|
(struct 2d-sample ([xs (listof real?)]
|
|
[ys (listof real?)]
|
|
[zss (vectorof (vectorof real?))]
|
|
[z-min (or/c regular-real? #f)]
|
|
[z-max (or/c regular-real? #f)]))
|
|
(struct 3d-sample ([xs (listof real?)]
|
|
[ys (listof real?)]
|
|
[zs (listof real?)]
|
|
[dsss (vectorof (vectorof (vectorof real?)))]
|
|
[d-min (or/c regular-real? #f)]
|
|
[d-max (or/c regular-real? #f)])))
|
|
(activate-contract-out build-linear-seq linear-seq linear-seq* nonlinear-seq
|
|
sampler/c 2d-sampler/c 3d-sampler/c
|
|
make-function->sampler
|
|
make-2d-function->sampler
|
|
make-3d-function->sampler)
|
|
(contract-out (struct mapped-function ([f (any/c . -> . any/c)]
|
|
[fmap ((listof any/c) . -> . (listof any/c))])))
|
|
map*)
|