Mercurial > octave
diff scripts/general/is_symmetric.m @ 73:f3c9042fd609
[project @ 1993-08-30 14:49:08 by jwe]
| author | jwe |
|---|---|
| date | Mon, 30 Aug 1993 14:54:55 +0000 |
| parents | 2d10ab3ee69d |
| children | 16a24e76d6e0 |
line wrap: on
line diff
--- a/scripts/general/is_symmetric.m Mon Aug 30 14:44:35 1993 +0000 +++ b/scripts/general/is_symmetric.m Mon Aug 30 14:54:55 1993 +0000 @@ -1,12 +1,14 @@ function retval = is_symmetric (x,tol) -# usage: is_symmetric (x{,tol}) +# Usage: is_symmetric (x {,tol}) # # If x is symmetric, return the dimension of x, otherwise, return 0. # # See also: size, rows, columns, length, is_matrix, is_scalar, # is_square, is_vector +# Written by A. S. Hodel (scotte@eng.auburn.edu) August 1993. + if (nargin == 1 || nargin == 2) if ((retval = is_square (x))) if (nargin == 1)