Mercurial > octave

diff scripts/special-matrix/wilkinson.m @ 12551:e4a1ede4e832
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
--- a/scripts/special-matrix/wilkinson.m	Tue Mar 29 17:47:26 2011 -0700
+++ b/scripts/special-matrix/wilkinson.m	Tue Mar 29 17:51:38 2011 -0700
@@ -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])