Mercurial > octave-dspies
changeset 18798:b422ba27951c
Made issymmetric (issymmetric.m) work for logical matrices (Bug #42485)
author | David Spies <dnspies@gmail.com> |
---|---|
date | Mon, 02 Jun 2014 01:24:52 -0600 |
parents | dd57ca9ef7e4 |
children | 9cf6d5868d21 |
files | scripts/linear-algebra/issymmetric.m |
diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/linear-algebra/issymmetric.m Tue Jun 03 09:07:02 2014 -0700 +++ b/scripts/linear-algebra/issymmetric.m Mon Jun 02 01:24:52 2014 -0600 @@ -37,7 +37,7 @@ print_usage (); endif - retval = isnumeric (x) && issquare (x); + retval = (isnumeric (x) || islogical (x)) && issquare (x); if (retval) if (tol == 0) ## Handle large sparse matrices as well as full ones @@ -61,6 +61,7 @@ %!assert (! (issymmetric ("t"))) %!assert (! (issymmetric (["te"; "et"]))) %!assert (issymmetric (speye (100000))) +%!assert (issymmetric (logical (eye (2)))); %!test %! s.a = 1;