diff options
Diffstat (limited to 'src/extent-sampling.sc')
| -rw-r--r-- | src/extent-sampling.sc | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/extent-sampling.sc b/src/extent-sampling.sc index b54c44b..c91c46c 100644 --- a/src/extent-sampling.sc +++ b/src/extent-sampling.sc @@ -26,13 +26,13 @@ body ...)) (sc-define-syntax (invoke-extent-oracle extent-oracle r x) - ((struct-get extent-oracle oracle) r x (struct-get extent-oracle params))) + ((: extent-oracle oracle) r x (: extent-oracle params))) (pre-define CONFIDENCE-INTERVAL-FACTOR 1.96) (pre-let* (VOLUME-MINIMUM-SAMPLES 100) (define (volume extent-oracle true-volume r dimension rtol stats) - (double extent-oracle-t double (const gsl-rng*) (unsigned int) double gsl-rstat-workspace*) + (double extent-oracle-t* double (const gsl-rng*) (unsigned int) double gsl-rstat-workspace*) (declare volume double) (let* ((vn double (ln-volume-of-ball dimension))) (with-vector x dimension @@ -49,7 +49,7 @@ (return volume))) (define (volume-window extent-oracle true-volume r dimension rtol number-of-samples) - (double extent-oracle-t double (const gsl-rng*) (unsigned int) double (unsigned int*)) + (double extent-oracle-t* double (const gsl-rng*) (unsigned int) double (unsigned int*)) (declare volume double) (let* ((vn double (ln-volume-of-ball dimension)) ;; This is the window length used in Volume.m of @@ -97,7 +97,7 @@ (pre-let* (INTEGRAL-MINIMUM-SAMPLES 100) (define (integral integrand extent-oracle true-integral r dimension rtol stats) - (double integrand-t extent-oracle-t double (const gsl-rng*) (unsigned int) double gsl-rstat-workspace*) + (double integrand-t extent-oracle-t* double (const gsl-rng*) (unsigned int) double gsl-rstat-workspace*) (declare integral double error double) (with-vector x dimension @@ -119,7 +119,7 @@ (return integral))) (define (volume-cone extent-oracle r mean omega-min omega-max number-of-samples variance) - (double extent-oracle-t (const gsl-rng*) (const gsl-vector*) double double (unsigned int) double*) + (double extent-oracle-t* (const gsl-rng*) (const gsl-vector*) double double (unsigned int) double*) (declare volume double) (let* ((dimension (unsigned int) (: mean size)) (vn double (ln-volume-of-ball dimension)) @@ -139,7 +139,7 @@ (define (volume-experiment extent-oracle r mean samples-per-cone solid-angle-factor solid-angle-threshold-exponent-factor number-of-samples) - (double extent-oracle-t (const gsl-rng*) (const gsl-vector*) + (double extent-oracle-t* (const gsl-rng*) (const gsl-vector*) (unsigned int) double double (unsigned int*)) (define volume double 0 |