Mercurial > octave-nkf
comparison 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 |
comparison
equal
deleted
inserted
replaced
72:2d480148756b | 73:f3c9042fd609 |
---|---|
1 function retval = is_symmetric (x,tol) | 1 function retval = is_symmetric (x,tol) |
2 | 2 |
3 # usage: is_symmetric (x{,tol}) | 3 # Usage: is_symmetric (x {,tol}) |
4 # | 4 # |
5 # If x is symmetric, return the dimension of x, otherwise, return 0. | 5 # If x is symmetric, return the dimension of x, otherwise, return 0. |
6 # | 6 # |
7 # See also: size, rows, columns, length, is_matrix, is_scalar, | 7 # See also: size, rows, columns, length, is_matrix, is_scalar, |
8 # is_square, is_vector | 8 # is_square, is_vector |
9 | |
10 # Written by A. S. Hodel (scotte@eng.auburn.edu) August 1993. | |
9 | 11 |
10 if (nargin == 1 || nargin == 2) | 12 if (nargin == 1 || nargin == 2) |
11 if ((retval = is_square (x))) | 13 if ((retval = is_square (x))) |
12 if (nargin == 1) | 14 if (nargin == 1) |
13 tol = eps; | 15 tol = eps; |