Mercurial > hg > octave-lyh
diff src/data.cc @ 777:a2f9d3fd720c
[project @ 1994-10-07 14:01:53 by jwe]
author | jwe |
---|---|
date | Fri, 07 Oct 1994 14:13:44 +0000 (1994-10-07) |
parents | 42731861ee09 |
children | 5e45f8f8f8c1 |
line wrap: on
line diff
--- a/src/data.cc +++ b/src/data.cc @@ -38,6 +38,7 @@ #include "help.h" #include "utils.h" #include "error.h" +#include "gripes.h" #include "defun.h" #ifndef MIN @@ -828,12 +829,15 @@ case 0: retval = 1.0; break; + case 1: retval = fill_matrix (args(0), 1.0, "ones"); break; + case 2: retval = fill_matrix (args(0), args(1), 1.0, "ones"); break; + default: print_usage ("ones"); break; @@ -854,12 +858,15 @@ case 0: retval = 0.0; break; + case 1: retval = fill_matrix (args(0), 0.0, "zeros"); break; + case 2: retval = fill_matrix (args(0), args(1), 0.0, "zeros"); break; + default: print_usage ("zeros"); break; @@ -922,12 +929,15 @@ case 0: retval = 1.0; break; + case 1: retval = identity_matrix (args(0)); break; + case 2: retval = identity_matrix (args(0), args(1)); break; + default: print_usage ("eye"); break;