aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-02-10 14:30:31 +0530
committerArun Isaac2021-02-10 14:53:50 +0530
commita4a0ffd97f57f51c6e5df267ef5b5c84e8eedfe2 (patch)
treeeb0066a91ef0ab9b6a500a7d53d6c6ad2aa35bb8
parentfc2a0c2aba0a8526412869349683cb04f1038465 (diff)
downloadnsmc-a4a0ffd97f57f51c6e5df267ef5b5c84e8eedfe2.tar.gz
nsmc-a4a0ffd97f57f51c6e5df267ef5b5c84e8eedfe2.tar.lz
nsmc-a4a0ffd97f57f51c6e5df267ef5b5c84e8eedfe2.zip
Declare planar, solid angle conversion functions as public.
* src/nd-random.sc (planar-angle->solid-angle, solid-angle->planar-angle): Declare these to be a part of the public interface of the module.
-rw-r--r--src/nd-random.sc4
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)))