diff options
| author | Arun Isaac | 2021-04-20 17:05:30 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-04-20 17:05:30 +0530 |
| commit | af21f83217c2bd249356ba5088fd3033a3909914 (patch) | |
| tree | 3dae0291b128bbafacd5205e6ac98a553890b6b5 | |
| parent | fa8fd4b94d5d03eda98a34fb6039925f2f9cd90e (diff) | |
| download | nsmc-af21f83217c2bd249356ba5088fd3033a3909914.tar.gz nsmc-af21f83217c2bd249356ba5088fd3033a3909914.tar.lz nsmc-af21f83217c2bd249356ba5088fd3033a3909914.zip | |
Return rstat object from volume and integral wrappers.
We return the rstat object so it can be passed on into another
invocation to continue the estimation and refine the estimate to a
closer tolerance.
* scm/nsmc/wrap.scm (volume, integral): Return rsat object.
| -rw-r--r-- | scm/nsmc/wrap.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scm/nsmc/wrap.scm b/scm/nsmc/wrap.scm index 9789795..5e4c8be 100644 --- a/scm/nsmc/wrap.scm +++ b/scm/nsmc/wrap.scm @@ -367,7 +367,7 @@ (list '* double '* unsigned-int double '*)) (maybe-procedure->extent-oracle extent-oracle) true-volume %gsl-random-state dimension rtol stats) - (rstat-n stats))) + stats)) (define-public (integral integrand extent-oracle true-integral dimension rtol) (let ((stats (rstat-alloc))) @@ -377,7 +377,7 @@ (maybe-procedure->integrand integrand) (maybe-procedure->extent-oracle extent-oracle) true-integral %gsl-random-state dimension rtol stats) - (rstat-n stats))) + stats)) (define-public (volume-importance extent-oracle mean samples-per-cone solid-angle-factor solid-angle-threshold-exponent-factor) |