Mercurial > octave-nkf

diff scripts/optimization/fminunc.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 5bcfa0b346e8
children 00958d0c4e3c
line wrap: on
line diff
--- a/scripts/optimization/fminunc.m	Tue Sep 08 13:39:39 2009 +0200
+++ b/scripts/optimization/fminunc.m	Tue Sep 08 14:27:35 2009 +0200
@@ -189,7 +189,7 @@
       dg = d2f;
       xn = norm (dg .* x);
       ## FIXME: something better?
-      delta = max (factor * xn, 1);
+      delta = factor * max (xn, 1);
     endif
 
     ## FIXME: maybe fixed lower and upper bounds?