Mercurial > hg > octave-avbm

changeset 4071:3827a03c72f0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-09-27 17:10:19 by jwe]
author jwe
date Fri, 27 Sep 2002 17:10:19 +0000
parents e0e95e9aad7b
children 3cc39e3b8fa5
files test/ChangeLog test/octave.test/linalg/qr-7.m
diffstat 2 files changed, 9 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -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 
--- a/test/octave.test/linalg/qr-7.m
+++ b/test/octave.test/linalg/qr-7.m
@@ -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