Mercurial > hg > octave-lyh

changeset 9075:7b35d3b21c1c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix test in fsolve
author Jaroslav Hajek <highegg@gmail.com>
date Thu, 02 Apr 2009 11:35:56 +0200
parents 46a0e6e9e446
children d5a4aa53f03a
files scripts/ChangeLog scripts/optimization/fsolve.m
diffstat 2 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,7 @@
+2009-04-02  Jaroslav Hajek  <highegg@gmail.com>
+
+	* optimization/fsolve.m: Fix test.
+
 2009-03-30  Ben Abbott <bpabbott@mac.com>
 
 	* plot/__go_draw_axes__.m: New subfunction create_fontspec(). Allow
--- a/scripts/optimization/fsolve.m
+++ b/scripts/optimization/fsolve.m
@@ -356,7 +356,7 @@
       if (fn <= tolf*n*xn)
         info = 1;
 	## The following tests done only after successful step.
-      elseif (actred > 0)
+      elseif (ratio >= 1e-4)
         ## This one is classic. Note that we use scaled variables again,
 	## but compare to scaled step, so nothing bad.
         if (sn <= tolx*xn)