diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2007-08-05 13:22:45 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2007-08-05 13:22:45 +0000 |
| commit | bdf007a02b410d009005b18634073866455024c4 (patch) | |
| tree | 7fdf37317492cb92c5432ab8f58f9a274ac1c8b9 /lisp/calc/calc-nlfit.el | |
| parent | 6564a4423149021fd165fcec41526f60cdfaabf7 (diff) | |
| download | emacs-bdf007a02b410d009005b18634073866455024c4.tar.gz | |
(math-nlfit-curve): Remove unnecessary variables.
(math-nlfit-givens): Let bind free variables.
Diffstat (limited to 'lisp/calc/calc-nlfit.el')
| -rw-r--r-- | lisp/calc/calc-nlfit.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/calc/calc-nlfit.el b/lisp/calc/calc-nlfit.el index 2880ff837bd..489599781f6 100644 --- a/lisp/calc/calc-nlfit.el +++ b/lisp/calc/calc-nlfit.el @@ -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) |