diff src/npsol.cc @ 712:36ba0576bd1b

[project @ 1994-09-19 14:18:15 by jwe]
author jwe
date Mon, 19 Sep 1994 14:18:48 +0000
parents 0a81458ef677
children e81d3a66725e
line wrap: on
line diff
--- a/src/npsol.cc
+++ b/src/npsol.cc
@@ -289,14 +289,14 @@
 
   int nargin = args.length ();
 
-  if (nargin < 3 || nargin == 4 || nargin == 7 || nargin == 10
-      || nargin > 11 || nargout > 4)
+  if (nargin < 2 || nargin == 3 || nargin == 6 || nargin == 9
+      || nargin > 10 || nargout > 4)
     {
       print_usage ("npsol");
       return retval;
     }
 
-  ColumnVector x = args(1).vector_value ();
+  ColumnVector x = args(0).vector_value ();
 
   if (error_state || x.capacity () == 0)
     {
@@ -304,7 +304,7 @@
       return retval;
     }
 
-  npsol_objective = is_valid_function (args(2), "npsol", 1);
+  npsol_objective = is_valid_function (args(1), "npsol", 1);
   if (! npsol_objective
       || takes_correct_nargs (npsol_objective, 2, "npsol", 1) != 1)
     return retval;
@@ -314,10 +314,10 @@
   ColumnVector soln;
 
   Bounds bounds;
-  if (nargin == 5 || nargin == 8 || nargin == 11)
+  if (nargin == 4 || nargin == 7 || nargin == 10)
     {
-      ColumnVector lb = args(3).vector_value ();
-      ColumnVector ub = args(4).vector_value ();
+      ColumnVector lb = args(2).vector_value ();
+      ColumnVector ub = args(3).vector_value ();
 
       int lb_len = lb.capacity ();
       int ub_len = ub.capacity ();
@@ -338,7 +338,7 @@
   ColumnVector lambda;
   int inform;
 
-  if (nargin == 3)
+  if (nargin == 2)
     {
       // 1. npsol (x, phi)
 
@@ -349,7 +349,7 @@
       goto solved;
     }
 
-  if (nargin == 5)
+  if (nargin == 4)
     {
       // 2. npsol (x, phi, lb, ub)
 
@@ -361,15 +361,15 @@
     }
 
   npsol_constraints = 0;
-  if (nargin == 6 || nargin == 8 || nargin == 9 || nargin == 11)
-    npsol_constraints = is_valid_function (args(nargin-2), "npsol", 0);
+  if (nargin == 5 || nargin == 7 || nargin == 8 || nargin == 10)
+    npsol_constraints = is_valid_function (args(nargin-1), "npsol", 0);
 
-  if (nargin == 8 || nargin == 6)
+  if (nargin == 7 || nargin == 5)
     {
       if (! npsol_constraints)
 	{
-	  ColumnVector lub = args(nargin-1).vector_value ();
-	  ColumnVector llb = args(nargin-3).vector_value ();
+	  ColumnVector lub = args(nargin).vector_value ();
+	  ColumnVector llb = args(nargin-2).vector_value ();
 
 	  if (error_state || llb.capacity () == 0 || lub.capacity () == 0)
 	    {
@@ -377,7 +377,7 @@
 	      return retval;
 	    }
 
-	  Matrix c = args(nargin-2).matrix_value ();
+	  Matrix c = args(nargin-1).matrix_value ();
 
 	  if (error_state)
 	    {
@@ -390,7 +390,7 @@
 
 	  LinConst linear_constraints (llb, c, lub);
 
-	  if (nargin == 6)
+	  if (nargin == 5)
 	    {
 	      // 7. npsol (x, phi, llb, c, lub)
 
@@ -412,8 +412,8 @@
 	{
 	  if (takes_correct_nargs (npsol_constraints, 2, "npsol", 1))
 	    {
-	      ColumnVector nlub = args(nargin-1).vector_value ();
-	      ColumnVector nllb = args(nargin-3).vector_value ();
+	      ColumnVector nlub = args(nargin).vector_value ();
+	      ColumnVector nllb = args(nargin-2).vector_value ();
 
 	      if (error_state
 		  || (! nonlinear_constraints_ok
@@ -423,7 +423,7 @@
 	      NLFunc const_func (npsol_constraint_function);
 	      NLConst nonlinear_constraints (nllb, const_func, nlub);
 
-	      if (nargin == 6)
+	      if (nargin == 5)
 		{
 		  // 8. npsol (x, phi, nllb, g, nlub)
 
@@ -444,19 +444,19 @@
 	}
     }
 
-  if (nargin == 9 || nargin == 11)
+  if (nargin == 8 || nargin == 10)
     {
       if (! npsol_constraints)
 	{
 	  // Produce error message.
-	  is_valid_function (args(nargin-2), "npsol", 1);
+	  is_valid_function (args(nargin-1), "npsol", 1);
 	}
       else
 	{
 	  if (takes_correct_nargs (npsol_constraints, 2, "npsol", 1))
 	    {
-	      ColumnVector nlub = args(nargin-1).vector_value ();
-	      ColumnVector nllb = args(nargin-3).vector_value ();
+	      ColumnVector nlub = args(nargin).vector_value ();
+	      ColumnVector nllb = args(nargin-2).vector_value ();
 
 	      if (error_state
 		  || (! nonlinear_constraints_ok
@@ -466,8 +466,8 @@
 	      NLFunc const_func (npsol_constraint_function);
 	      NLConst nonlinear_constraints (nllb, const_func, nlub);
 
-	      ColumnVector lub = args(nargin-4).vector_value ();
-	      ColumnVector llb = args(nargin-6).vector_value ();
+	      ColumnVector lub = args(nargin-3).vector_value ();
+	      ColumnVector llb = args(nargin-5).vector_value ();
 
 	      if (error_state || llb.capacity () == 0 || lub.capacity () == 0)
 		{
@@ -475,7 +475,7 @@
 		  return retval;
 		}
 	      
-	      Matrix c = args(nargin-5).matrix_value ();
+	      Matrix c = args(nargin-4).matrix_value ();
 
 	      if (error_state)
 		{
@@ -488,7 +488,7 @@
 
 	      LinConst linear_constraints (llb, c, lub);
 
-	      if (nargin == 9)
+	      if (nargin == 8)
 		{
 		  // 6. npsol (x, phi, llb, c, lub, nllb, g, nlub)
 
@@ -768,18 +768,18 @@
 
   int nargin = args.length ();
 
-  if (nargin == 1)
+  if (nargin == 0)
     {
       print_npsol_option_list ();
       return retval;
     }
-  else if (nargin == 3)
+  else if (nargin == 2)
     {
-      char *keyword = args(1).string_value ();
+      char *keyword = args(0).string_value ();
 
       if (! error_state)
 	{
-	  double val = args(2).double_value ();
+	  double val = args(1).double_value ();
 
 	  if (! error_state)
 	    {