Mercurial > octave-nkf

changeset 18832:b422ba27951c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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;