Learn how easy it is to sync an existing GitHub or Google Code repo to a SourceForge project!

## [Maxima-commits] CVS: maxima/tests rtest_hypgeo.mac, 1.3, 1.4 rtesthyp.mac, 1.45, 1.46

 [Maxima-commits] CVS: maxima/tests rtest_hypgeo.mac, 1.3, 1.4 rtesthyp.mac, 1.45, 1.46 From: Dieter Kaiser - 2008-07-28 10:33:16 ```Update of /cvsroot/maxima/maxima/tests In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv13201 Modified Files: rtest_hypgeo.mac rtesthyp.mac Log Message: Changes to testsuite files because of autoloading orthopoly. rtest_hypgeo.mac: Add a test for the killed line loading orthopoly to preserve the numbering scheme. rtesthyp.mac: Problems 13,14 and 16 Because of autoloading orthopoly the Hermite function expand and the tests will fail. Rewrite the tests so they will work again. Dieter Kaiser Index: rtest_hypgeo.mac =================================================================== RCS file: /cvsroot/maxima/maxima/tests/rtest_hypgeo.mac,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- rtest_hypgeo.mac 27 Jul 2008 03:38:33 -0000 1.3 +++ rtest_hypgeo.mac 28 Jul 2008 10:33:08 -0000 1.4 @@ -303,10 +303,16 @@ Last: After some corrections to the routine ltw the result is OK. */ -/* Problem 42: OK New +/* Problem 41: OK New After correction of some bugs we get the correct result. */ +/* First a test with a special value for the order of the Laguerre function. + (Test is added to compensate a killed line to load orthopoly.) */ + +factor(specint(%e^(-s*t)*%l[10,0](t),t)); +(s-1)^10/s^11; + factor(specint(%e^(-s*t)*%l[n,0](t),t)); (s-1)^n/s^(n+1); Index: rtesthyp.mac =================================================================== RCS file: /cvsroot/maxima/maxima/tests/rtesthyp.mac,v retrieving revision 1.45 retrieving revision 1.46 diff -u -d -r1.45 -r1.46 --- rtesthyp.mac 25 May 2007 18:37:41 -0000 1.45 +++ rtesthyp.mac 28 Jul 2008 10:33:08 -0000 1.46 @@ -53,12 +53,12 @@ * * He(n,x) = 2^(-n/2)*H(n,x/sqrt(2)) */ -ratsimp(hgfred([-4],[1/2],z^2/2) - hermite(8,z/sqrt(2))/1680); -0\$ +hgfred([-4],[1/2],z^2/2); +hermite(8,z/sqrt(2))/1680; /* A&S 13.6.18 */ -ratsimp(hgfred([-4],[3/2],z^2/2) - sqrt(2)*hermite(9,z/sqrt(2))/30240/z)\$ -0\$ +ratsimp(hgfred([-4],[3/2],z^2/2)); +hermite(9,z/sqrt(2))/(15120*sqrt(2)*z)\$ /* A&S 13.6.19 */ ratsimp(hgfred([1/2],[3/2],-z^2)); @@ -302,8 +302,8 @@ hgfred([-2],[1/2],z); hermite(4,sqrt(z))/12\$ -ratsimp(hgfred([-2],[3/2],z) - hermite(5,sqrt(z))/(120*sqrt(z))); -0\$ +ratsimp(hgfred([-2],[3/2],z)); +hermite(5,sqrt(z))/(120*sqrt(z)); hgfred([a],[a+1],-z); a*%gammagreek(a,z)/z^a\$ ```

 [Maxima-commits] CVS: maxima/tests rtest_hypgeo.mac, 1.3, 1.4 rtesthyp.mac, 1.45, 1.46 From: Dieter Kaiser - 2008-07-28 10:33:16 ```Update of /cvsroot/maxima/maxima/tests In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv13201 Modified Files: rtest_hypgeo.mac rtesthyp.mac Log Message: Changes to testsuite files because of autoloading orthopoly. rtest_hypgeo.mac: Add a test for the killed line loading orthopoly to preserve the numbering scheme. rtesthyp.mac: Problems 13,14 and 16 Because of autoloading orthopoly the Hermite function expand and the tests will fail. Rewrite the tests so they will work again. Dieter Kaiser Index: rtest_hypgeo.mac =================================================================== RCS file: /cvsroot/maxima/maxima/tests/rtest_hypgeo.mac,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- rtest_hypgeo.mac 27 Jul 2008 03:38:33 -0000 1.3 +++ rtest_hypgeo.mac 28 Jul 2008 10:33:08 -0000 1.4 @@ -303,10 +303,16 @@ Last: After some corrections to the routine ltw the result is OK. */ -/* Problem 42: OK New +/* Problem 41: OK New After correction of some bugs we get the correct result. */ +/* First a test with a special value for the order of the Laguerre function. + (Test is added to compensate a killed line to load orthopoly.) */ + +factor(specint(%e^(-s*t)*%l[10,0](t),t)); +(s-1)^10/s^11; + factor(specint(%e^(-s*t)*%l[n,0](t),t)); (s-1)^n/s^(n+1); Index: rtesthyp.mac =================================================================== RCS file: /cvsroot/maxima/maxima/tests/rtesthyp.mac,v retrieving revision 1.45 retrieving revision 1.46 diff -u -d -r1.45 -r1.46 --- rtesthyp.mac 25 May 2007 18:37:41 -0000 1.45 +++ rtesthyp.mac 28 Jul 2008 10:33:08 -0000 1.46 @@ -53,12 +53,12 @@ * * He(n,x) = 2^(-n/2)*H(n,x/sqrt(2)) */ -ratsimp(hgfred([-4],[1/2],z^2/2) - hermite(8,z/sqrt(2))/1680); -0\$ +hgfred([-4],[1/2],z^2/2); +hermite(8,z/sqrt(2))/1680; /* A&S 13.6.18 */ -ratsimp(hgfred([-4],[3/2],z^2/2) - sqrt(2)*hermite(9,z/sqrt(2))/30240/z)\$ -0\$ +ratsimp(hgfred([-4],[3/2],z^2/2)); +hermite(9,z/sqrt(2))/(15120*sqrt(2)*z)\$ /* A&S 13.6.19 */ ratsimp(hgfred([1/2],[3/2],-z^2)); @@ -302,8 +302,8 @@ hgfred([-2],[1/2],z); hermite(4,sqrt(z))/12\$ -ratsimp(hgfred([-2],[3/2],z) - hermite(5,sqrt(z))/(120*sqrt(z))); -0\$ +ratsimp(hgfred([-2],[3/2],z)); +hermite(5,sqrt(z))/(120*sqrt(z)); hgfred([a],[a+1],-z); a*%gammagreek(a,z)/z^a\$ ```