From: Jaime E. V. <vi...@us...> - 2007-12-07 14:53:18
|
Update of /cvsroot/maxima/maxima/tests In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv29803/tests Modified Files: rtest11.mac Log Message: Copy of the changes to the reveal function, made by Andrej in the 5.14 release branch Index: rtest11.mac =================================================================== RCS file: /cvsroot/maxima/maxima/tests/rtest11.mac,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- rtest11.mac 23 May 2007 13:30:48 -0000 1.9 +++ rtest11.mac 7 Dec 2007 14:53:13 -0000 1.10 @@ -38,10 +38,10 @@ /* It's not easy to test reveal. Let's not worry about it too much. */ expand(reveal(exp1,2),0,0); -"negterm" + 2 * "quotient"$ +Negterm + 2 * Quotient$ -/* reveal(exp1,3); answers ok but the check program doesn't like "product"(2) --"quotient"+atan/"product"(2)+log/"product"(2))$ */ +expand(reveal(exp1,3),0,0); +log/Product(2)+atan/Product(2)-Quotient$ g(l):=catch(map(lambda([x],if x < 0 then throw(x) else f(x)),l)); g(l):=catch(map(lambda([x],if x < 0 then throw(x) else f(x)),l))$ |