aboutsummaryrefslogtreecommitdiff
path: root/scm
diff options
context:
space:
mode:
authorArun Isaac2021-02-23 16:08:11 +0530
committerArun Isaac2021-02-23 16:08:11 +0530
commit13a224b6a3497b448eac4ffb86b0db707f6957a7 (patch)
tree06bb246e8955180d0d9bb4b584554f5ddd62ae12 /scm
parent6ebe3d0004ac8b19cf4a6fcfc3b2fba16bdc6b97 (diff)
downloadnsmc-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.scm10
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)