# HG changeset patch
# User jwe
# Date 1033146619 0
# Node ID 3827a03c72f0057df546e850177e315f4449a908
# Parent  e0e95e9aad7bc6bbd89e35d1d024e03f0fa6482c
[project @ 2002-09-27 17:10:19 by jwe]

diff -r e0e95e9aad7b -r 3827a03c72f0 test/ChangeLog
--- a/test/ChangeLog	Fri Sep 27 15:26:29 2002 +0000
+++ b/test/ChangeLog	Fri Sep 27 17:10:19 2002 +0000
@@ -1,3 +1,8 @@
+2002-09-27  Paul Kienzle <pkienzle@users.sf.net>
+
+	* qr-7.m: Remove randomness from complex matrix generator.
+	Increase tolerance on rosser matrix test.
+
 2002-09-26  Paul Kienzle <pkienzle@users.sf.net>
 
 	* octave.test/linalg/qr-7.m: Replace large random matrix tests 
diff -r e0e95e9aad7b -r 3827a03c72f0 test/octave.test/linalg/qr-7.m
--- a/test/octave.test/linalg/qr-7.m	Fri Sep 27 15:26:29 2002 +0000
+++ b/test/octave.test/linalg/qr-7.m	Fri Sep 27 17:10:19 2002 +0000
@@ -28,7 +28,7 @@
 [q,r,p]=qr(a,0); t(j++) = testqr(q,r,a,p);
 [q,r,p]=qr(a',0); t(j++) = testqr(q,r,a',p);
 
-a = a+1i*randn(size(a))*sqrt(eps);
+a = a+1i*eps;
 [q,r]=qr(a,0); t(j++) = testqr(q,r,a);
 [q,r]=qr(a',0); t(j++) = testqr(q,r,a');
 [q,r,p]=qr(a,0); t(j++) = testqr(q,r,a,p);
@@ -41,7 +41,7 @@
 [q,r,p]=qr(a); t(j++) = testqr(q,r,a,p);
 [q,r,p]=qr(a'); t(j++) = testqr(q,r,a',p);
 
-a = a+1i*randn(size(a))*sqrt(eps);
+a = a+1i*eps;
 [q,r]=qr(a); t(j++) = testqr(q,r,a);
 [q,r]=qr(a'); t(j++) = testqr(q,r,a');
 [q,r,p]=qr(a); t(j++) = testqr(q,r,a,p);
@@ -53,7 +53,7 @@
 [q,r,p]=qr(a,0); t(j++) = testqr(q,r,a,p);
 [q,r,p]=qr(a',0); t(j++) = testqr(q,r,a',p);
 
-a = a+1i*randn(size(a))*sqrt(eps);
+a = a+1i*eps;
 [q,r]=qr(a,0); t(j++) = testqr(q,r,a);
 [q,r]=qr(a',0); t(j++) = testqr(q,r,a');
 [q,r,p]=qr(a,0); t(j++) = testqr(q,r,a,p);
@@ -71,4 +71,4 @@
 ];
 [q,r] = qr(a);
 
-all (t) && norm(q*r-a) < 2000*eps
+all (t) && norm(q*r-a) < 5000*eps