mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(math-nlfit-curve): Remove unnecessary variables.

Browse source 
(math-nlfit-givens): Let bind free variables.
This commit is contained in:
Jay Belanger 2007-08-05 13:22:45 +00:00
parent 6564a44231
commit bdf007a02b
2 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2007-08-05 Jay Belanger <belanger@localhost.localdomain>
* calc/calc-nlfit.el (math-nlfit-curve):
Remove unnecessary variables.
(math-nlfit-givens): Let bind free variables.
2007-08-05 Vinicius Jose Latorre <viniciusig@ig.com.br>
* printing.el: Require lpr and ps-print when loading printing package.

8
lisp/calc/calc-nlfit.el
View file

@ -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)