Mercurial > octave-antonio
diff scripts/general/repmat.m @ 11587:c792872f8942
all script files: untabify and strip trailing whitespace
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 20 Jan 2011 17:35:29 -0500 |
parents | fd0a3ac60b0e |
children | 4d777e05d47c |
line wrap: on
line diff
--- a/scripts/general/repmat.m Thu Jan 20 17:24:59 2011 -0500 +++ b/scripts/general/repmat.m Thu Jan 20 17:35:29 2011 -0500 @@ -22,7 +22,7 @@ ## @deftypefnx {Function File} {} repmat (@var{A}, [@var{m} @var{n}]) ## @deftypefnx {Function File} {} repmat (@var{A}, [@var{m} @var{n} @var{p} @dots{}]) ## Form a block matrix of size @var{m} by @var{n}, with a copy of matrix -## @var{A} as each element. If @var{n} is not specified, form an +## @var{A} as each element. If @var{n} is not specified, form an ## @var{m} by @var{m} block matrix. ## @seealso{repelems} ## @end deftypefn @@ -41,7 +41,7 @@ error ("repmat: with 3 arguments M and N must be scalar"); endif idx = [m, n]; - else + else if (isscalar (m)) idx = [m, m]; n = m; @@ -52,7 +52,7 @@ error ("repmat: invalid dimensional argument"); endif endif - + if (all (idx < 0)) error ("repmat: invalid dimensions"); else