diff options
| -rw-r--r-- | include/nd-random.h | 2 | ||||
| -rw-r--r-- | scm/nsmc/wrap.scm | 4 | ||||
| -rw-r--r-- | src/nd-random.sc | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/include/nd-random.h b/include/nd-random.h index 9637a0e..7f3d41c 100644 --- a/include/nd-random.h +++ b/include/nd-random.h @@ -6,8 +6,8 @@ #include <gsl/gsl_vector.h> void random_direction_vector (const gsl_rng* r, gsl_vector* x); +void cone_random_vector (const gsl_rng* r, const gsl_vector* mean, double theta_max, gsl_vector* x); void hollow_cone_random_vector (const gsl_rng* r, const gsl_vector* mean, double theta_min, double theta_max, gsl_vector* x); -void subsampling_random_vector (const gsl_rng* r, const gsl_vector* mean, double theta_max, gsl_vector* x); double planar_angle_to_solid_angle (double planar_angle, unsigned int dimension); double solid_angle_to_planar_angle (double solid_angle, unsigned int dimension); diff --git a/scm/nsmc/wrap.scm b/scm/nsmc/wrap.scm index e6d9a47..853dfb6 100644 --- a/scm/nsmc/wrap.scm +++ b/scm/nsmc/wrap.scm @@ -188,10 +188,10 @@ %gsl-random-state vector) vector)) -(define-public (subsampling-random-vector mean max-theta) +(define-public (cone-random-vector mean max-theta) (let ((vector (vector-alloc (vector-size mean)))) ((pointer->procedure void - (dynamic-func "subsampling_random_vector" lib-nsmc) + (dynamic-func "cone_random_vector" lib-nsmc) (list '* '* double '*)) %gsl-random-state mean max-theta vector) vector)) diff --git a/src/nd-random.sc b/src/nd-random.sc index 459500f..9984a7b 100644 --- a/src/nd-random.sc +++ b/src/nd-random.sc @@ -93,6 +93,6 @@ dx. THETA should be in [0,pi]." ;; Rotate to arbitrary basis. (rotate-from-nth-canonical x mean)) -(define (subsampling-random-vector r mean theta-max x) +(define (cone-random-vector r mean theta-max x) (void (const gsl-rng*) (const gsl-vector*) double gsl-vector*) (hollow-cone-random-vector r mean 0 theta-max x)) |