Mercurial > hg > octave-avbm

diff scripts/linear-algebra/cond.m @ 4890:e7da90a1cc11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-05-06 20:36:29 by jwe]
author jwe
date Thu, 06 May 2004 20:36:29 +0000 (2004-05-06)
parents 7afd4bf05aa8
children aa7573ddf60f
line wrap: on
line diff
--- a/scripts/linear-algebra/cond.m
+++ b/scripts/linear-algebra/cond.m
@@ -30,6 +30,10 @@
 function retval = cond (a)
 
   if (nargin == 1)
+    if (ndims (x) > 2)
+      error ("cond: Only valid on 2-D objects")
+    endif
+
     [nr, nc] = size (a);
     if (nr == 0 || nc == 0)
       retval = 0.0;