Mercurial > hg > octave-nkf

diff scripts/special-matrix/wilkinson.m @ 12551:e4a1ede4e832

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update test for 'wilkinson(1)' to reflect changes to diag().
author John W. Eaton <jwe@octave.org>
date Tue, 29 Mar 2011 17:51:38 -0700
parents f2c080bbd8a5
children 4d777e05d47c
line wrap: on
line diff
--- a/scripts/special-matrix/wilkinson.m
+++ b/scripts/special-matrix/wilkinson.m
@@ -35,8 +35,8 @@
     print_usage ();
   endif
 
-  if (! (isscalar (n) && (n == fix (n)) && n > 0))
-    error ("wilkinson: N must be an integer greater than 0");
+  if (! (isscalar (n) && (n == fix (n)) && n >= 0))
+    error ("wilkinson: N must be a non-negative integer");
   endif
 
   side = ones (n-1, 1);
@@ -45,7 +45,8 @@
 
 endfunction
 
-%!assert (wilkinson(1), [])
+%!assert (wilkinson(0), [])
+%!assert (wilkinson(1), 0)
 %!assert (wilkinson(2), [0.5,1;1,0.5])
 %!assert (wilkinson(3), [1,1,0;1,0,1;0,1,1])
 %!assert (wilkinson(4), [1.5,1,0,0;1,0.5,1,0;0,1,0.5,1;0,0,1,1.5])