Mercurial > hg > octave-avbm
changeset 3919:cdfbc6678c23
[project @ 2002-05-01 03:01:54 by jwe]
author | jwe |
---|---|
date | Wed, 01 May 2002 03:01:54 +0000 |
parents | fe7cbb23cb83 |
children | 87db95b22f8f |
files | liboctave/ChangeLog liboctave/DASSL.h |
diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/liboctave/ChangeLog +++ b/liboctave/ChangeLog @@ -1,3 +1,8 @@ +2002-04-30 John W. Eaton <jwe@bevo.che.wisc.edu> + + * DASSL.h (DASSL_options::init): Undo previous change. + (DASSL_options::set_absolute_tolerance): Likewise. + 2002-04-27 John W. Eaton <jwe@bevo.che.wisc.edu> * DASPK.h, DASPK.cc: New files.
--- a/liboctave/DASSL.h +++ b/liboctave/DASSL.h @@ -53,7 +53,7 @@ void init (void) { - x_absolute_tolerance = DBL_EPSILON * DBL_EPSILON; + x_absolute_tolerance = sqrt (DBL_EPSILON); x_initial_step_size = -1.0; x_maximum_step_size = -1.0; x_minimum_step_size = 0.0; @@ -72,7 +72,7 @@ void set_default_options (void) { init (); } void set_absolute_tolerance (double val) - { x_absolute_tolerance = (val > 0.0) ? val : DBL_EPSILON * DBL_EPSILON; } + { x_absolute_tolerance = (val > 0.0) ? val : ::sqrt (DBL_EPSILON); } void set_initial_step_size (double val) { x_initial_step_size = (val >= 0.0) ? val : -1.0; }