Function: math-nlfit-find-covar

math-nlfit-find-covar is a byte-compiled function defined in calc-nlfit.el.gz.

Signature

(math-nlfit-find-covar GRAD XLIST PPARMS)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-nlfit.el.gz
;;; Functions to get the final covariance matrix and the sdevs

(defun math-nlfit-find-covar (grad xlist pparms)
  (let ((j nil))
    (while xlist
      (setq j (cons (cons 'vec (apply grad (car xlist) pparms)) j))
      (setq xlist (cdr xlist)))
    (setq j (cons 'vec (reverse j)))
    (setq j
          (math-mul
           (calcFunc-trn j) j))
    (calcFunc-inv j)))