Mercurial > hg > octave-lyh
diff src/fsolve.cc @ 2086:bfb775fb6fe8
[project @ 1996-04-25 05:55:19 by jwe]
author | jwe |
---|---|
date | Thu, 25 Apr 1996 05:55:19 +0000 |
parents | 003570e69c7b |
children | 36903d507b0e |
line wrap: on
line diff
--- a/src/fsolve.cc +++ b/src/fsolve.cc @@ -85,7 +85,7 @@ int n = x.capacity (); - Octave_object args; + octave_value_list args; args.resize (1); if (n > 1) @@ -93,19 +93,19 @@ Matrix m (n, 1); for (int i = 0; i < n; i++) m (i, 0) = x.elem (i); - tree_constant vars (m); + octave_value vars (m); args(0) = vars; } else { double d = x.elem (0); - tree_constant vars (d); + octave_value vars (d); args(0) = vars; } if (fsolve_fcn) { - Octave_object tmp = fsolve_fcn->eval (0, 1, args); + octave_value_list tmp = fsolve_fcn->eval (0, 1, args); if (tmp.length () > 0 && tmp(0).is_defined ()) { retval = tmp(0).vector_value (); @@ -132,7 +132,7 @@ \n\ where y and x are vectors.") { - Octave_object retval; + octave_value_list retval; int nargin = args.length (); @@ -260,10 +260,10 @@ warning ("fsolve_options: no match for `%s'", keyword.c_str ()); } -static Octave_object +static octave_value_list show_fsolve_option (const string& keyword) { - Octave_object retval; + octave_value_list retval; NLEQN_OPTIONS *list = fsolve_option_table; @@ -288,7 +288,7 @@ Set or show options for fsolve. Keywords may be abbreviated\n\ to the shortest match.") { - Octave_object retval; + octave_value_list retval; int nargin = args.length ();