From: Robert D. <rob...@us...> - 2008-04-06 02:36:45
|
Update of /cvsroot/maxima/maxima/tests In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv32509/tests Modified Files: rtest8.mac Log Message: Increase float_approx_equal_tolerance so that comparison of floating point result from solve matches the expected result. Result is presumably the output of a numerical root-finding algorithm so it seems unlikely that an exact match can be achieved. Index: rtest8.mac =================================================================== RCS file: /cvsroot/maxima/maxima/tests/rtest8.mac,v retrieving revision 1.13 retrieving revision 1.14 diff -u -d -r1.13 -r1.14 --- rtest8.mac 29 Mar 2008 17:55:42 -0000 1.13 +++ rtest8.mac 6 Apr 2008 02:36:36 -0000 1.14 @@ -54,6 +54,8 @@ [x = %pi/6,f(x) = 1]$ ev(solve(5^f(x) = 125,f(x)),solveradcan:true); [f(x) = 3]$ +(float_approx_equal_tolerance : 1e-12, 0); +0; [4*x^2-y^2 = 12,x*y-x = 2]; [4*x^2-y^2 = 12,x*y-x = 2]$ solve(%,[x,y]); @@ -63,6 +65,8 @@ [x = -0.5202594388652008*%i-0.1331240357358706, y = 3.608003221870287*%i+0.07678378523787777], [x = -1.733751846381093,y = -0.1535675710019696]]; +(reset (float_approx_equal_tolerance), 0); +0; (eq :1+a*x+x^3, sol : solve(eq,x), makelist(ratsimp(subst(s,eq)),s, sol)); [0,0,0]$ |