diff options
| author | Arun Isaac | 2021-02-23 16:08:11 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-02-23 16:08:11 +0530 |
| commit | 13a224b6a3497b448eac4ffb86b0db707f6957a7 (patch) | |
| tree | 06bb246e8955180d0d9bb4b584554f5ddd62ae12 /scm | |
| parent | 6ebe3d0004ac8b19cf4a6fcfc3b2fba16bdc6b97 (diff) | |
| download | nsmc-13a224b6a3497b448eac4ffb86b0db707f6957a7.tar.gz nsmc-13a224b6a3497b448eac4ffb86b0db707f6957a7.tar.lz nsmc-13a224b6a3497b448eac4ffb86b0db707f6957a7.zip | |
Wrap gsl rstat functions.
* scm/extent-sampling/wrap.scm (rstat-alloc, rstat-n): New functions.
Diffstat (limited to 'scm')
| -rw-r--r-- | scm/extent-sampling/wrap.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/scm/extent-sampling/wrap.scm b/scm/extent-sampling/wrap.scm index 180ac91..63d3d9e 100644 --- a/scm/extent-sampling/wrap.scm +++ b/scm/extent-sampling/wrap.scm @@ -148,6 +148,16 @@ histogram input) histogram))) +;; Running statistics + +(define rstat-alloc + (make-gsl-alloc "gsl_rstat_alloc" (list) "gsl_rstat_free")) + +(define-public rstat-n + (pointer->procedure size_t + (dynamic-func "gsl_rstat_n" lib-extentsampling) + (list '*))) + ;; nd-random (define-public (random-direction-vector dimension) |