Function: math-nlfit-jacobian

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

Signature

(math-nlfit-jacobian GRAD XLIST PARMS &optional SLIST)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-nlfit.el.gz
(defun math-nlfit-jacobian (grad xlist parms &optional slist)
  (let ((j nil))
    (while xlist
      (let ((row (apply grad (car xlist) parms)))
        (setq j
              (cons
               (if slist
                   (mapcar (lambda (x) (math-div x (car slist))) row)
                 row)
               j)))
      (setq slist (cdr slist))
      (setq xlist (cdr xlist)))
    (reverse j)))