Mercurial > hg > octave-lyh
diff src/balance.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/balance.cc +++ b/src/balance.cc @@ -66,7 +66,7 @@ int nargin = args.length (); - if (nargin < 2 || nargin > 4 || nargout < 0 || nargout > 4) + if (nargin < 1 || nargin > 3 || nargout < 0 || nargout > 4) { print_usage ("balance"); return retval; @@ -81,15 +81,15 @@ if (args(nargin-1).is_string ()) { bal_job = args(nargin-1).string_value (); - my_nargin = nargin-2; + my_nargin = nargin-1; } else { bal_job = "B"; - my_nargin = nargin-1; + my_nargin = nargin; } - tree_constant arg_a = args(1); + tree_constant arg_a = args(0); int a_nr = arg_a.rows (); int a_nc = arg_a.columns (); @@ -157,7 +157,7 @@ // 1st we have to check argument 2 dimensions and type... - tree_constant arg_b = args(2); + tree_constant arg_b = args(1); int b_nr = arg_b.rows (); int b_nc = arg_b.columns ();