From b5d263029323217f8d2793f7b22f0f180253fe1f Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 5 Feb 2021 14:11:39 +0530
Subject: Remove unused extent oracles.

* include/oracles.c (symmetric_spiral_extent_oracle,
right_triangle_extent_oracle, right_triangle_true_volume,
sphere_extent_oracle, sphere_maximum_extent, plane_extent_oracle):
Delete function prototype declarations.
* src/oracles.c (symmetric_spiral_extent_oracle,
right_triangle_extent_oracle, right_triangle_true_volume,
sphere_extent_oracle, sphere_maximum_extent, plane_extent_oracle):
Delete functions.
---
 include/oracles.h | 10 ----------
 src/oracles.c     | 33 ---------------------------------
 2 files changed, 43 deletions(-)

diff --git a/include/oracles.h b/include/oracles.h
index a661c94..981f855 100644
--- a/include/oracles.h
+++ b/include/oracles.h
@@ -13,16 +13,6 @@ double uniform_true_volume (double a, double b, unsigned int dimension);
 double beta_extent_generator (const gsl_rng* r, double alpha, double beta);
 double beta_true_volume (double alpha, double beta, unsigned int dimension);
 
-double symmetric_spiral_extent_oracle (const gsl_vector* x);
-
-double right_triangle_extent_oracle (const gsl_vector* x, double base, double height);
-double right_triangle_true_volume (double base, double height);
-
-double sphere_extent_oracle (const gsl_vector* x, double radius);
-double sphere_maximum_extent (double radius);
-
-double plane_extent_oracle (const gsl_vector* x, double displacement);
-
 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);
diff --git a/src/oracles.c b/src/oracles.c
index 80f401f..9f6577f 100644
--- a/src/oracles.c
+++ b/src/oracles.c
@@ -43,39 +43,6 @@ double beta_true_volume (double alpha, double beta, unsigned int dimension)
   return vol;
 }
 
-double symmetric_spiral_extent_oracle (const gsl_vector* x)
-{
-  double angle = atan2(gsl_vector_get(x, 1), gsl_vector_get(x, 0));
-  return fabs(angle);
-}
-
-double right_triangle_extent_oracle (const gsl_vector* x, double base, double height)
-{
-  double max_angle = atan(height / base);
-  double angle = atan2(gsl_vector_get(x, 1), gsl_vector_get(x, 0));
-  return (angle > 0) && (angle < max_angle) ? base / cos(angle) : 0;
-}
-
-double right_triangle_true_volume (double base, double height)
-{
-  return 0.5 * base * height;
-}
-
-double sphere_extent_oracle (const gsl_vector* x, double radius)
-{
-  return radius;
-}
-
-double sphere_maximum_extent (double radius)
-{
-  return radius;
-}
-
-double plane_extent_oracle (const gsl_vector* x, double displacement)
-{
-  return displacement / fabs(gsl_vector_get(x, 0));
-}
-
 double infinity_norm (const gsl_vector* x)
 {
   double max = fabs(gsl_vector_get(x, 0));
-- 
cgit v1.2.3