[Aimmath-commit] AIM/WEB-INF/maple/aim Trig.mpl,1.4,1.5

[Greg G. <gr...@us...>]

Update of /cvsroot/aimmath/AIM/WEB-INF/maple/aim
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24541

Modified Files:
	Trig.mpl 
Log Message:
Added an is(...) construct to fix a bug in `aim/TrigSLN`.            - GG


Index: Trig.mpl
===================================================================
RCS file: /cvsroot/aimmath/AIM/WEB-INF/maple/aim/Trig.mpl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Trig.mpl	9 Jan 2004 07:57:32 -0000	1.4
--- Trig.mpl	31 Mar 2005 10:00:25 -0000	1.5
***************
*** 330,334 ****
    partright := NULL;
    for i to nops(ans) do
!     while j < 2 and op(j, rightans) < op(i, ans) and 
            not `aim/TestNumeric`(op(j, rightans), op(i, ans), 'margin' = 0.02) do
        j := j + 1;
--- 330,334 ----
    partright := NULL;
    for i to nops(ans) do
!     while j < 2 and is(op(j, rightans) < op(i, ans)) and 
            not `aim/TestNumeric`(op(j, rightans), op(i, ans), 'margin' = 0.02) do
        j := j + 1;