diff options
| author | Arun Isaac | 2021-04-08 15:38:53 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-04-08 15:38:53 +0530 |
| commit | 1241246fd8a7babb18b163662b356bdf63c887c3 (patch) | |
| tree | 0d60fa5a139e63165fc03c808f491a32a0b9de45 | |
| parent | fa2d088d31faef95d7b96d681fbf0b14cd444afa (diff) | |
| download | nsmc-1241246fd8a7babb18b163662b356bdf63c887c3.tar.gz nsmc-1241246fd8a7babb18b163662b356bdf63c887c3.tar.lz nsmc-1241246fd8a7babb18b163662b356bdf63c887c3.zip | |
Wrap gsl_sf_lngamma.
* scm/nsmc/wrap.scm (log-gamma): New function.
| -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) |