Mercurial > hg > octave-lyh

diff scripts/linear-algebra/ishermitian.m @ 10023:73fc43e01f4c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
allow issquare on arbitrary data
author Jaroslav Hajek <highegg@gmail.com>
date Fri, 25 Dec 2009 22:20:33 +0100
parents ecd750d1eabd
children fbd7843974fa
line wrap: on
line diff
--- a/scripts/linear-algebra/ishermitian.m
+++ b/scripts/linear-algebra/ishermitian.m
@@ -38,7 +38,7 @@
     print_usage ();
   endif
 
-  retval = issquare (x);
+  retval = isnumeric (x) && issquare (x);
   if (retval)
     if (tol == 0)
       retval = all ((x == x')(:));