Mercurial > octave-nkf

diff scripts/optimization/fsolve.m @ 8661:9c092b111b1d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
small fix in fsolve
author Jaroslav Hajek <highegg@gmail.com>
date Wed, 04 Feb 2009 10:18:25 +0100
parents ff61b53eb294
children e5ffb52c9c61
line wrap: on
line diff
--- a/scripts/optimization/fsolve.m	Wed Feb 04 10:18:22 2009 +0100
+++ b/scripts/optimization/fsolve.m	Wed Feb 04 10:18:25 2009 +0100
@@ -211,7 +211,6 @@
         qtf = q'*fvec;
         s = - __dogleg__ (r, qtf, dg, delta);
         w = qtf + r * s;
-        s = p * s;
       else
         s = - __dogleg__ (fjac, fvec, dg, delta);
         w = fvec + fjac * s;