diff options
| -rw-r--r-- | src/nd-random.sc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/nd-random.sc b/src/nd-random.sc index 3d96113..a243a04 100644 --- a/src/nd-random.sc +++ b/src/nd-random.sc @@ -55,13 +55,13 @@ dx. THETA should be in [0,pi]." (beta-inc-unnormalized 0.5 (* 0.5 (+ m 1)) (gsl-pow-2 (cos theta)))) 2))))) -(define (planar-angle->solid-angle planar-angle dimension) ((static double) double (unsigned int)) +(define (planar-angle->solid-angle planar-angle dimension) (double double (unsigned int)) (return (/ (* 2 (pow M-PI (* 0.5 (- dimension 1))) (incomplete-wallis-integral planar-angle (- dimension 2))) (gsl-sf-gamma (* 0.5 (- dimension 1)))))) -(define (solid-angle->planar-angle solid-angle dimension) ((static double) double (unsigned int)) +(define (solid-angle->planar-angle solid-angle dimension) (double double (unsigned int)) (define (f planar-angle params) (double double void*) (return (- (planar-angle->solid-angle planar-angle dimension) solid-angle))) |