Mercurial > octave-nkf

diff scripts/optimization/fsolve.m @ 9628:73e6ad869f08

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
further correct initial TR step strategy
author Jaroslav Hajek <highegg@gmail.com>
date Tue, 08 Sep 2009 14:27:35 +0200
parents bc0739d02724
children f22bbc5d56e9
line wrap: on
line diff
--- a/scripts/optimization/fsolve.m	Tue Sep 08 13:39:39 2009 +0200
+++ b/scripts/optimization/fsolve.m	Tue Sep 08 14:27:35 2009 +0200
@@ -234,7 +234,7 @@
       dg(dg == 0) = 1;
       xn = norm (dg .* x);
       ## FIXME: something better?
-      delta = max (factor * xn, 1);
+      delta = factor * max (xn, 1);
     endif
 
     ## Rescale adaptively.