Mercurial > hg > octave-nkf

changeset 1872:d5ba1bd06584

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-02-04 12:52:14 by jwe]
author jwe
date Sun, 04 Feb 1996 12:55:04 +0000
parents bed9f3e11011
children dc859604b19b
files liboctave/LSODE.h liboctave/NLEqn.h src/fsolve.cc
diffstat 3 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/liboctave/LSODE.h
+++ b/liboctave/LSODE.h
@@ -32,6 +32,7 @@
 class ostream;
 #endif
 
+#include <cfloat>
 #include <cmath>
 
 #include "ODE.h"
--- a/liboctave/NLEqn.h
+++ b/liboctave/NLEqn.h
@@ -57,6 +57,9 @@
 
   void set_default_options (void) { x_tolerance = ::sqrt (DBL_EPSILON); }
 
+  void set_options (const NLEqn_options& opt)
+    { x_tolerance = opt.x_tolerance; }
+
   void set_tolerance (double val)
     { x_tolerance = (val > 0.0) ? val : ::sqrt (DBL_EPSILON); }
 
--- a/src/fsolve.cc
+++ b/src/fsolve.cc
@@ -163,7 +163,7 @@
 
   NLFunc foo_fcn (fsolve_user_function);
   NLEqn foo (x, foo_fcn);
-  foo.copy (fsolve_opts);
+  foo.set_options (fsolve_opts);
 
   int info;
   ColumnVector soln = foo.solve (info);