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 ();