Mercurial > hg > octave-lyh
diff src/fsolve.cc @ 506:0f388340e607
[project @ 1994-07-09 06:10:34 by jwe]
author | jwe |
---|---|
date | Sat, 09 Jul 1994 06:10:34 +0000 |
parents | 88614b380d6e |
children | 309fc59f66ee |
line wrap: on
line diff
--- a/src/fsolve.cc +++ b/src/fsolve.cc @@ -42,15 +42,15 @@ #ifdef WITH_DLD Octave_object -builtin_fsolve_2 (const Octave_object& args, int nargin, int nargout) +builtin_fsolve_2 (const Octave_object& args, int nargout) { - return fsolve (args, nargin, nargout); + return fsolve (args, nargout); } Octave_object -builtin_fsolve_options (const Octave_object& args, int nargin, int nargout) +builtin_fsolve_options (const Octave_object& args, int nargout) { - return fsolve_options (args, nargin, nargout); + return fsolve_options (args, nargout); } #endif @@ -112,7 +112,7 @@ if (fsolve_fcn != (tree_fvc *) NULL) { - Octave_object tmp = fsolve_fcn->eval (0, 1, args, 2); + Octave_object tmp = fsolve_fcn->eval (0, 1, args); if (tmp.length () > 0 && tmp(0).is_defined ()) { retval = tmp(0).to_vector (); @@ -128,12 +128,14 @@ } Octave_object -fsolve (const Octave_object& args, int nargin, int nargout) +fsolve (const Octave_object& args, int nargout) { // Assumes that we have been given the correct number of arguments. Octave_object retval; + int nargin = args.length (); + fsolve_fcn = is_valid_function (args(1), "fsolve", 1); if (fsolve_fcn == (tree_fvc *) NULL || takes_correct_nargs (fsolve_fcn, 2, "fsolve", 1) != 1) @@ -251,10 +253,12 @@ } Octave_object -fsolve_options (const Octave_object& args, int nargin, int nargout) +fsolve_options (const Octave_object& args, int nargout) { Octave_object retval; + int nargin = args.length (); + if (nargin == 1) print_fsolve_option_list (); else if (nargin == 3)