From 1241246fd8a7babb18b163662b356bdf63c887c3 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Thu, 8 Apr 2021 15:38:53 +0530 Subject: Wrap gsl_sf_lngamma. * scm/nsmc/wrap.scm (log-gamma): New function. --- scm/nsmc/wrap.scm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'scm') 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) -- cgit v1.2.3