Mercurial > hg > octave-nkf

diff scripts/general/is_square.m @ 3197:a998db745232

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1998-10-29 00:26:52 by jwe]
author jwe
date Thu, 29 Oct 1998 00:26:52 +0000
parents 8b262e771614
children 6923abb04e16
line wrap: on
line diff
--- a/scripts/general/is_square.m
+++ b/scripts/general/is_square.m
@@ -30,12 +30,14 @@
 
 function retval = is_square (x)
 
+  retval = 0;
+
   if (nargin == 1)
-    [nr, nc] = size (x);
-    if (nr == nc && nr > 0)
-      retval = nr;
-    else
-      retval = 0;
+    if (is_matrix (x))
+      [nr, nc] = size (x);
+      if (nr == nc && nr > 0)
+      	retval = nr;
+      endif
     endif
   else
     usage ("is_square (x)");