Mercurial > emacs
changeset 82279:3f6660bf6595
(math-nlfit-curve): Remove unnecessary variables.
(math-nlfit-givens): Let bind free variables.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Sun, 05 Aug 2007 13:21:19 +0000 |
| parents | e2fa2bd67693 |
| children | 596b8bc7e05e |
| files | lisp/calc/calc-nlfit.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calc-nlfit.el Sun Aug 05 12:54:13 2007 +0000 +++ b/lisp/calc/calc-nlfit.el Sun Aug 05 13:21:19 2007 +0000 @@ -373,7 +373,8 @@ (math-nlfit-set-elt d j dj)))) (setq i (1+ i)))) (setq j (1+ j))) - (let ((i n)) + (let ((i n) + s) (while (>= i 1) (math-nlfit-set-elt r i 0) (setq s (math-nlfit-get-elt d i)) @@ -408,7 +409,8 @@ (calcFunc-sqrt (math-sub 1 (math-mul gamma gamma))))))) (let ((ri (math-nlfit-get-elt r i)) - (rj (math-nlfit-get-elt r j))) + (rj (math-nlfit-get-elt r j)) + h) (setq h (math-add (math-mul gamma rj) (math-mul sigma ri))) (setq ri (math-sub @@ -672,8 +674,6 @@ (mapcar (lambda (x) (math-get-sdev x t)) ydata) nil)) (ydata (mapcar (lambda (x) (math-get-value x)) ydata)) - (zzz (progn (setq j1 xdata j2 ydata j3 sdata) 1)) - (calc-curve-varnames nil) (calc-curve-coefnames nil) (calc-curve-nvars 1)