Commit 0a78898d by liam

### Fixed undefined aliens.


git-svn-id: svn+ssh://pop/opt/space/mathematics/gsl/trunk@3273 a3d8a0fb-c1db-0310-ace7-a616afeb9e30
parent 4546fec5
 ;******************************************************** ; file: mean-variance.lisp ; description: Mean, standard deviation, and variance ; date: Sat Dec 2 2006 - 22:15 ; author: Liam M. Healy ; modified: Mon Oct 8 2007 - 10:34 ;******************************************************** ;;; $Id:$ ;; Mean, standard deviation, and variance ;; Liam Healy, Sat Dec 2 2006 - 22:15 ;; Time-stamp: <2008-01-20 23:34:13EST mean-variance.lisp> ;; $Id:$ (in-package :gsl) ... ... @@ -23,6 +19,15 @@ 'gsl-vector args)) (defmacro defun-gsl-stats-ds (&rest args) "A defun-gsl for stats of double and single." (defun-gsl-all '(double single) '(:double :float) "stats" 'gsl-vector args)) ;;;;**************************************************************************** ;;;; Mean and weighted mean ;;;;**************************************************************************** ... ... @@ -44,7 +49,7 @@ The weighted mean is defined as \Hat\mu = (\sum w_i x_i) / (\sum w_i).")) (defun-gsl-stats weighted-mean ((vector gsl-vector) weights) (defun-gsl-stats-ds weighted-mean ((vector gsl-vector) weights) "gsl_stats_wmean" (((gsl-array weights) :pointer) (1 :int) ((gsl-array vector) :pointer) (1 :int) ((dim0 vector) :size)) ... ... @@ -108,7 +113,7 @@ (defgeneric weighted-variance-nom (gsl-vector weights) (:documentation "Compute the weighted variance with the mean unknown.")) (defun-gsl-stats weighted-variance-nom ((vector gsl-vector) weights) (defun-gsl-stats-ds weighted-variance-nom ((vector gsl-vector) weights) "gsl_stats_wvariance" (((gsl-array weights) :pointer) (1 :int) ((gsl-array vector) :pointer) (1 :int) ((dim0 vector) :size)) ... ... @@ -120,7 +125,7 @@ (:documentation "Compute the weighted variance with the mean known to avoid its recomputation.")) (defun-gsl-stats weighted-variance-m ((vector gsl-vector) weights mean) (defun-gsl-stats-ds weighted-variance-m ((vector gsl-vector) weights mean) "gsl_stats_wvariance_m" (((gsl-array weights) :pointer) (1 :int) ((gsl-array vector) :pointer) (1 :int) ... ... @@ -175,7 +180,7 @@ (defgeneric weighted-standard-deviation-nom (gsl-vector weights)) (defun-gsl-stats weighted-standard-deviation-nom (defun-gsl-stats-ds weighted-standard-deviation-nom ((vector gsl-vector) weights) "gsl_stats_wsd" (((gsl-array weights) :pointer) (1 :int) ... ... @@ -186,7 +191,7 @@ (defgeneric weighted-standard-deviation-m (gsl-vector weights mean)) (defun-gsl-stats weighted-standard-deviation-m (defun-gsl-stats-ds weighted-standard-deviation-m ((vector gsl-vector) weights mean) "gsl_stats_wsd_m" (((gsl-array weights) :pointer) (1 :int) ... ... @@ -244,7 +249,7 @@ population mean @math{\mu}, \Hat\sigma^2 = (\sum w_i (x_i - \mu)^2) / (\sum w_i).")) (defun-gsl-stats weighted-variance-with-fixed-mean (defun-gsl-stats-ds weighted-variance-with-fixed-mean ((vector gsl-vector) weights mean) "gsl_stats_wvariance_with_fixed_mean" (((gsl-array weights) :pointer) (1 :int) ... ... @@ -258,7 +263,7 @@ "The square root of the corresponding variance function #'weighted-variance-with-fixed-mean.")) (defun-gsl-stats weighted-standard-deviation-with-fixed-mean (defun-gsl-stats-ds weighted-standard-deviation-with-fixed-mean ((vector gsl-vector) weights mean) "gsl_stats_wsd_with_fixed_mean" (((gsl-array weights) :pointer) (1 :int) ... ...
 ... ... @@ -249,7 +249,7 @@ "Compute the two-dimensional in-place wavelet transform on a matrix.") (defun-gsl wavelet-2d-nonstandard-transform (wavelet data tda direction workspace) "gsl_wavelet2d_ntransform" "gsl_wavelet2d_nstransform" ((wavelet :pointer) ((gsl-array data) :pointer) (tda :size) ((dim0 data) :size) ((dim1 data) :size) (direction :int) (workspace :pointer)) ... ... @@ -257,7 +257,7 @@ "Compute the two-dimensional wavelet transform in non-standard form.") (defun-gsl wavelet-2d-nonstandard-transform-forward (wavelet data tda workspace) "gsl_wavelet2d_ntransform_forward" "gsl_wavelet2d_nstransform_forward" ((wavelet :pointer) ((gsl-array data) :pointer) (tda :size) ((dim0 data) :size) ((dim1 data) :size) (workspace :pointer)) ... ... @@ -265,7 +265,7 @@ "Compute the two-dimensional wavelet transform in non-standard form.") (defun-gsl wavelet-2d-nonstandard-transform-inverse (wavelet data tda workspace) "gsl_wavelet2d_ntransform_inverse" "gsl_wavelet2d_nstransform_inverse" ((wavelet :pointer) ((gsl-array data) :pointer) (tda :size) ((dim0 data) :size) ((dim1 data) :size) (workspace :pointer)) ... ... @@ -273,7 +273,7 @@ "Compute the two-dimensional wavelet transform in non-standard form.") (defun-gsl wavelet-2d-nonstandard-transform-matrix (wavelet data direction workspace) "gsl_wavelet2d_ntransform_matrix" "gsl_wavelet2d_nstransform_matrix" ((wavelet :pointer) ((gsl-array data) :pointer) (direction :int) (workspace :pointer)) :documentation ... ... @@ -281,14 +281,14 @@ transform on a matrix.") (defun-gsl wavelet-2d-nonstandard-transform-matrix-forward (wavelet data workspace) "gsl_wavelet2d_ntransform_matrix_forward" "gsl_wavelet2d_nstransform_matrix_forward" ((wavelet :pointer) ((gsl-array data) :pointer) (workspace :pointer)) :documentation "Compute the non-standard form of the two-dimensional in-place wavelet transform on a matrix.") (defun-gsl wavelet-2d-nonstandard-transform-matrix-inverse (wavelet data workspace) "gsl_wavelet2d_ntransform_matrix_inverse" "gsl_wavelet2d_nstransform_matrix_inverse" ((wavelet :pointer) ((gsl-array data) :pointer) (workspace :pointer)) :documentation "Compute the non-standard form of the two-dimensional in-place wavelet ... ...
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!