diff options
| author | Arun Isaac | 2021-02-10 14:30:31 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-02-10 14:53:50 +0530 |
| commit | a4a0ffd97f57f51c6e5df267ef5b5c84e8eedfe2 (patch) | |
| tree | eb0066a91ef0ab9b6a500a7d53d6c6ad2aa35bb8 | |
| parent | fc2a0c2aba0a8526412869349683cb04f1038465 (diff) | |
| download | nsmc-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.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))) |