Mercurial > hg > octave-lyh

diff scripts/linear-algebra/cond.m @ 7411:83a8781b529d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2008-01-22 21:52:25 by jwe]
author jwe
date Tue, 22 Jan 2008 21:52:26 +0000
parents a1dbe9d80eee
children e7485946272b
line wrap: on
line diff
--- a/scripts/linear-algebra/cond.m
+++ b/scripts/linear-algebra/cond.m
@@ -55,3 +55,12 @@
   endif
 
 endfunction
+
+%!assert(abs (cond ([1, 2; 2, 1]) - 3) < sqrt (eps));
+
+%!assert(cond ([1, 2, 3; 4, 5, 6; 7, 8, 9]) > 1.0e+16);
+
+%!error cond ();
+
+%!error cond (1, 2);
+