aboutsummaryrefslogtreecommitdiff
path: root/scm
diff options
context:
space:
mode:
authorArun Isaac2021-04-08 15:38:53 +0530
committerArun Isaac2021-04-08 15:38:53 +0530
commit1241246fd8a7babb18b163662b356bdf63c887c3 (patch)
tree0d60fa5a139e63165fc03c808f491a32a0b9de45 /scm
parentfa2d088d31faef95d7b96d681fbf0b14cd444afa (diff)
downloadnsmc-1241246fd8a7babb18b163662b356bdf63c887c3.tar.gz
nsmc-1241246fd8a7babb18b163662b356bdf63c887c3.tar.lz
nsmc-1241246fd8a7babb18b163662b356bdf63c887c3.zip
Wrap gsl_sf_lngamma.
* scm/nsmc/wrap.scm (log-gamma): New function.
Diffstat (limited to 'scm')
-rw-r--r--scm/nsmc/wrap.scm6
1 files changed, 6 insertions, 0 deletions
diff --git a/scm/nsmc/wrap.scm b/scm/nsmc/wrap.scm
index 3e94192..ae86413 100644
--- a/scm/nsmc/wrap.scm
+++ b/scm/nsmc/wrap.scm
@@ -49,6 +49,12 @@
(dynamic-func "surface_area_of_ball" lib-nsmc)
(list int)))
+(define-public (log-gamma x)
+ ((pointer->procedure double
+ (dynamic-func "gsl_sf_lngamma" lib-gsl)
+ (list double))
+ x))
+
(define-public (lower-incomplete-gamma s x)
(* ((pointer->procedure double
(dynamic-func "gsl_sf_gamma" lib-gsl)