Mercurial > hg > octave-lyh
diff scripts/general/is_square.m @ 2312:204cc7db6f4a
[project @ 1996-07-11 21:20:36 by jwe]
author | jwe |
---|---|
date | Thu, 11 Jul 1996 21:20:36 +0000 |
parents | 2b5788792cad |
children | 5ca126254d15 |
line wrap: on
line diff
--- a/scripts/general/is_square.m +++ b/scripts/general/is_square.m @@ -24,9 +24,11 @@ ## ## See also: size, rows, columns, length, is_matrix, is_scalar, is_vector -function retval = is_square (x) +## Author: A. S. Hodel <scotte@eng.auburn.edu> +## Created: August 1993 +## Adapted-By: jwe - ## Written by A. S. Hodel (scotte@eng.auburn.edu) August 1993. +function retval = is_square (x) if (nargin == 1) [nr, nc] = size (x);