Mercurial > hg > octave-nkf

comparison scripts/linear-algebra/cond.m @ 2360:8fc0fa7ae9ca

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-10-10 22:36:46 by jwe]
author jwe
date Thu, 10 Oct 1996 22:39:02 +0000
parents 949ab8eba8bc
children 8b262e771614
comparison
equal deleted inserted replaced
2359:6d3cafa2798b 2360:8fc0fa7ae9ca
29 function retval = cond (a) 29 function retval = cond (a)
30 30
31 if (nargin == 1) 31 if (nargin == 1)
32 [nr, nc] = size (a); 32 [nr, nc] = size (a);
33 if (nr == 0 && nc == 0) 33 if (nr == 0 && nc == 0)
34 if (strcmp (propagate_empty_matrices, "false")) 34 if (! propagate_empty_matrices)
35 error ("cond: empty matrix is invalid as argument"); 35 error ("cond: empty matrix is invalid as argument");
36 endif 36 endif
37 if (strcmp (propagate_empty_matrices, "warn")) 37 if (strcmp (propagate_empty_matrices, "warn"))
38 warning ("cond: argument is empty matrix\n"); 38 warning ("cond: argument is empty matrix\n");
39 endif 39 endif