diff options
| author | Arun Isaac | 2021-04-20 16:52:35 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-04-20 17:01:55 +0530 |
| commit | 9266f4ce5213ea3197484ca22cb82ca082382fc6 (patch) | |
| tree | c96f47466097bac01a63bded1e6ff78a83e49fff /scm | |
| parent | 2eacc2841e34c926b9bb739c9800783b61e1d01a (diff) | |
| download | nsmc-9266f4ce5213ea3197484ca22cb82ca082382fc6.tar.gz nsmc-9266f4ce5213ea3197484ca22cb82ca082382fc6.tar.lz nsmc-9266f4ce5213ea3197484ca22cb82ca082382fc6.zip | |
Return the first accurate estimate.
* include/extent-sampling.h (volume_window): Delete function.
* src/extent-sampling.sc (integral, volume): Return the first accurate
estimate.
(volume-window): Delete function.
* scm/nsmc/wrap.scm (volume-window): Delete function.
Diffstat (limited to 'scm')
| -rw-r--r-- | scm/nsmc/wrap.scm | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/scm/nsmc/wrap.scm b/scm/nsmc/wrap.scm index 33c1bee..005dd86 100644 --- a/scm/nsmc/wrap.scm +++ b/scm/nsmc/wrap.scm @@ -369,16 +369,6 @@ true-volume %gsl-random-state dimension rtol stats) (rstat-n stats))) -(define-public (volume-window extent-oracle true-volume dimension rtol) - (let ((samples (make-c-struct (list unsigned-int) (list 0)))) - ((pointer->procedure double - (dynamic-func "volume_window" lib-nsmc) - (list '* double '* unsigned-int double '*)) - (maybe-procedure->extent-oracle extent-oracle) - true-volume %gsl-random-state dimension rtol samples) - (match (parse-c-struct samples (list unsigned-int)) - ((samples) samples)))) - (define-public (integral integrand extent-oracle true-integral dimension rtol) (let ((stats (rstat-alloc))) ((pointer->procedure double |