diff options
| -rw-r--r-- | scm/nsmc/wrap.scm | 6 |
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) |