[Maxima-commits] CVS: maxima/share/linearalgebra test-eigens-by-jacobi.mac, 1.5, 1.6

[Douglas <dt...@us...>]

Update of /cvsroot/maxima/maxima/share/linearalgebra
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv12359

Modified Files:
	test-eigens-by-jacobi.mac 
Log Message:
o Replace comparison constants 1d-10, by references to the flonum-epsilon.



Index: test-eigens-by-jacobi.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/share/linearalgebra/test-eigens-by-jacobi.mac,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- test-eigens-by-jacobi.mac	27 Feb 2007 13:38:33 -0000	1.5
+++ test-eigens-by-jacobi.mac	15 Feb 2008 13:57:25 -0000	1.6
@@ -1,7 +1,7 @@
-(listequalp(p,q) := block([listarith : true], every(lambda([x], is(abs(x) < 1.0d-10)), sort(p) - sort(q))),0);
+(listequalp(p,q) := block([listarith : true], every(lambda([x], is(abs(x) < ?flonum\-epsilon * 10000)), sort(p) - sort(q))),0);
 0$
 
-(matrixequalp(p,q) := every(lambda([x], is(abs(x) < 1.0d-10)),p-q),0);
+(matrixequalp(p,q) := every(lambda([x], is(abs(x) < ?flonum\-epsilon * 10000)),p-q),0);
 0$
 
 (m : matrix([1]),0);