Mercurial > hg > octave-nkf
diff src/rand.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 | a2f9d3fd720c |
line wrap: on
line diff
--- a/src/rand.cc +++ b/src/rand.cc @@ -112,7 +112,7 @@ int nargin = args.length (); - if (nargin > 3 || nargout > 1) + if (nargin > 2 || nargout > 1) { print_usage ("rand"); return retval; @@ -145,15 +145,15 @@ int n = 0; int m = 0; - if (nargin == 1) + if (nargin == 0) { n = 1; m = 1; goto gen_matrix; } - else if (nargin == 2) + else if (nargin == 1) { - tree_constant tmp = args(1); + tree_constant tmp = args(0); if (tmp.is_string ()) { @@ -191,8 +191,8 @@ } else if (tmp.is_matrix_type ()) { - n = NINT (args(1).rows ()); - m = NINT (args(1).columns ()); + n = NINT (args(0).rows ()); + m = NINT (args(0).columns ()); goto gen_matrix; } else @@ -201,23 +201,23 @@ return retval; } } - else if (nargin == 3) + else if (nargin == 2) { - if (args(1).is_string () - && strcmp (args(1).string_value (), "seed") == 0) + if (args(0).is_string () + && strcmp (args(0).string_value (), "seed") == 0) { - double d = args(2).double_value (); + double d = args(1).double_value (); if (! error_state) set_rand_seed (d); } else { - n = NINT (args(1).double_value ()); + n = NINT (args(0).double_value ()); if (! error_state) { - m = NINT (args(2).double_value ()); + m = NINT (args(1).double_value ()); if (! error_state) goto gen_matrix;