diff --git a/solve-minimize-fit/linear-least-squares.lisp b/solve-minimize-fit/linear-least-squares.lisp index fe49a241c5a3e0f0227a8362097693f8ffec21a9..b5c034a353c76249a4768c6de6e2d3fc3364c9f1 100644 --- a/solve-minimize-fit/linear-least-squares.lisp +++ b/solve-minimize-fit/linear-least-squares.lisp @@ -1,8 +1,8 @@ ;; Linear least squares, or linear regression ;; Liam Healy <2008-01-21 12:41:46EST linear-least-squares.lisp> -;; Time-stamp: <2012-12-31 12:30:36EST linear-least-squares.lisp> +;; Time-stamp: <2013-01-01 21:29:30EST linear-least-squares.lisp> ;; -;; Copyright 2008, 2009, 2010, 2011, 2012 Liam M. Healy +;; Copyright 2008, 2009, 2010, 2011, 2012, 2013 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -64,7 +64,9 @@ computed using the weights and returned via the parameters (cov00, cov01, c0v01) as the next three values. The weighted or unweighted sum of squares of the residuals from the best-fit line, - \chi^2, is returned in as the last value.") + \chi^2, is returned as the last value. + + Returns: c0, c1, cov00, cov01, cov11, sumsq.") (defmfun linear-estimate (x c0 c1 cov00 cov01 cov11) "gsl_fit_linear_est" diff --git a/special-functions/elementary.lisp b/special-functions/elementary.lisp index 1e7786a0dcede7b778345579af14c52db94cef1f..47b54511e9981157b41a4b8b1e57d1b8fa18baee 100644 --- a/special-functions/elementary.lisp +++ b/special-functions/elementary.lisp @@ -1,8 +1,8 @@ ;; Elementary functions ;; Liam Healy, Mon Mar 20 2006 - 21:43 -;; Time-stamp: <2011-10-29 23:35:51EDT elementary.lisp> +;; Time-stamp: <2012-12-30 10:59:51EST elementary.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011, 2012 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -24,14 +24,14 @@ "gsl_sf_multiply_e" ((x :double) (y :double) (ret (:pointer (:struct sf-result)))) :documentation ; FDL - "Multiplies x and y returning the product and associated error.") + "Multiplies two double-floats returning the product and associated error.") (defmfun multiply-err (x dx y dy) "gsl_sf_multiply_err_e" ((x :double) (dx :double) (y :double) (dy :double) (ret (:pointer (:struct sf-result)))) :documentation ; FDL - "Multiplies x and y with associated absolute + "Multiplies two double floats x and y with associated absolute errors dx and dy. The product xy +/- xy \sqrt((dx/x)^2 +(dy/y)^2) is returned.")