[Maxima-commits] CVS: maxima/tests rtesthyp.mac,1.42,1.43

[Raymond T. <rt...@us...>]

Update of /cvsroot/maxima/maxima/tests
In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv27027

Modified Files:
	rtesthyp.mac 
Log Message:
Add a few more 3F2 tests.


Index: rtesthyp.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/tests/rtesthyp.mac,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -d -r1.42 -r1.43
--- rtesthyp.mac	12 Jan 2007 14:29:00 -0000	1.42
+++ rtesthyp.mac	12 Jan 2007 14:41:21 -0000	1.43
@@ -882,6 +882,22 @@
                (8/9*(1-2*x)/sqrt(1-x)-2/(9*x)+2/(9*x*sqrt(1-x))));
 0;
 
+ratsimp(factor(hgfred([-1/2,1,5/2],[1/2,3],x))-
+               4/45/x^2*(-5*x+2*sqrt(1-x)*(8*x^2+4*x+3)-6));
+0;
+
+ratsimp(factor(hgfred([-1/2,1,5/2],[3/2,3/2],x))-
+               1/3*((1-2*x)*atanh(sqrt(x))/sqrt(x)+2));
+0;
+
+ratsimp(factor(hgfred([-1/2,1,5/2],[3/2,2],x))-
+               2/9/x*(1-(1-4*x)*sqrt(1-x)));
+0;
+
+ratsimp(factor(hgfred([-1/2,1,5/2],[3/2,3],x))-
+               4/45/x^2*(5*x+2-2*(4*x+1)*(1-x)^(3/2)));
+0;
+
 ratsimp(factor(hgfred([-1/2,1,3],[2,2],x))-
 	       ((2-(2-5*x)*sqrt(1-x))/(6*x)));
 0;