From: Raymond T. <rt...@us...> - 2010-03-22 23:44:03
|
Update of /cvsroot/maxima/maxima/tests In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv3787/tests Modified Files: rtest16.mac Log Message: Bug ID: 2954472 - rectform with large floats gives bad answer Test suite passes. src/rpart.lisp: o Add special case to risplit-expt to handle 1/(x+%i*y) when x and y are Lisp numbers or Maxima rationals. This prevents spurious underflows and overflows. Special case implemented in SPRECIP. o Document SPABS. tests/rtest16.mac: o Add test from the bug report and one other to test for rational parts. Index: rtest16.mac =================================================================== RCS file: /cvsroot/maxima/maxima/tests/rtest16.mac,v retrieving revision 1.124 retrieving revision 1.125 diff -u -d -r1.124 -r1.125 --- rtest16.mac 22 Mar 2010 01:36:11 -0000 1.124 +++ rtest16.mac 22 Mar 2010 23:43:54 -0000 1.125 @@ -1359,3 +1359,12 @@ f(2*cos(x)*sin(x)); trigreduce(%); f(sin(2*x)); + +/* Bug ID: 2954472 - rectform with large floats gives bad answer +*/ +is(abs(rectform(1e160/(1e160+%i))-1) < 1e-160); +true; + +is(abs(rectform(1e160/(1e160+3/2*%i))-1) < 1.5e-160); +true; + |