aimmath-commit

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

Update of /cvsroot/aimmath/AIM/WEB-INF/maple/aim
In directory sc8-pr-cvs1:/tmp/cvs-serv17483

Modified Files:
	Trig.mpl 
Log Message:
Added evalb that was needed to make it work with Maple 7.              - GG


Index: Trig.mpl
===================================================================
RCS file: /cvsroot/aimmath/AIM/WEB-INF/maple/aim/Trig.mpl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Trig.mpl	25 Aug 2003 21:47:19 -0000	1.2
--- Trig.mpl	13 Sep 2003 18:11:25 -0000	1.3
***************
*** 85,89 ****
     ans := eval(a);
    fi;
!   ans := sort([op(ans)], `<` @ evalf);
  
    eq, interval, rightans := op(Q);
--- 85,89 ----
     ans := eval(a);
    fi;
!   ans := sort([op(ans)], evalb @ `<` @ evalf); # evalb req'd for Maple 7
  
    eq, interval, rightans := op(Q);