Mercurial > hg > octave-lyh
diff src/fsolve.cc @ 718:e81d3a66725e
[project @ 1994-09-21 14:58:18 by jwe]
author | jwe |
---|---|
date | Wed, 21 Sep 1994 14:58:18 +0000 |
parents | 36ba0576bd1b |
children | 1866484b236b |
line wrap: on
line diff
--- a/src/fsolve.cc +++ b/src/fsolve.cc @@ -46,6 +46,8 @@ int hybrd_info_to_fsolve_info (int info) { + cerr << "info: " << info << "\n"; + switch (info) { case -1: @@ -119,7 +121,7 @@ return retval; } -DEFUN_DLD_BUILTIN ("fsolve", Ffsolve, Sfsolve, 5, 1, +DEFUN_DLD_BUILTIN ("fsolve", Ffsolve, Sfsolve, 2, 1, "Solve nonlinear equations using Minpack. Usage:\n\ \n\ [X, INFO] = fsolve (F, X0)\n\ @@ -135,14 +137,14 @@ int nargin = args.length (); - if (nargin < 2 || nargin > 6 || nargout > 3) + if (nargin != 2 || nargout > 3) { print_usage ("fsolve"); return retval; } fsolve_fcn = is_valid_function (args(0), "fsolve", 1); - if (! fsolve_fcn || takes_correct_nargs (fsolve_fcn, 2, "fsolve", 1) != 1) + if (! fsolve_fcn || takes_correct_nargs (fsolve_fcn, 1, "fsolve", 1) != 1) return retval; ColumnVector x = args(1).vector_value ();