diff options
| -rw-r--r-- | include/oracles.h | 1 | ||||
| -rw-r--r-- | src/oracles.sc | 3 |
2 files changed, 0 insertions, 4 deletions
diff --git a/include/oracles.h b/include/oracles.h index 981f855..1af39cc 100644 --- a/include/oracles.h +++ b/include/oracles.h @@ -16,7 +16,6 @@ double beta_true_volume (double alpha, double beta, unsigned int dimension); double cube_extent_oracle (const gsl_vector* x, double edge); double cube_extent_oracle_with_center (const gsl_vector* x, const gsl_vector* center, double edge); double cube_true_volume (double edge, unsigned int dimension); -double cube_maximum_extent (double edge, unsigned int dimension); double ellipsoid_extent_oracle (const gsl_vector* x, const gsl_vector* axes); double ellipsoid_true_volume (const gsl_vector* axes); diff --git a/src/oracles.sc b/src/oracles.sc index 9680479..e0e88ba 100644 --- a/src/oracles.sc +++ b/src/oracles.sc @@ -63,9 +63,6 @@ (define (cube-true-volume edge dimension) (double double (unsigned int)) (return (gsl-pow-uint edge dimension))) -(define (cube-maximum-extent edge dimension) (double double (unsigned int)) - (return (/ (* edge (sqrt dimension)) - 2))) (define (ellipsoid-extent-oracle x axes) (double (const gsl-vector*) (const gsl-vector*)) (let* ((k double 0)) |