| 1 | test_laguerre = ->
|
| 2 | run_test [
|
| 3 | "laguerre(x,n)",
|
| 4 | "laguerre(x,n,0)",
|
| 5 |
|
| 6 | "laguerre(x,n,k)",
|
| 7 | "laguerre(x,n,k)",
|
| 8 |
|
| 9 | "laguerre(x,0)-1",
|
| 10 | "0",
|
| 11 |
|
| 12 | "laguerre(x,1)-(-x+1)",
|
| 13 | "0",
|
| 14 |
|
| 15 | "laguerre(x,2)-1/2*(x^2-4*x+2)",
|
| 16 | "0",
|
| 17 |
|
| 18 | "laguerre(x,3)-1/6*(-x^3+9*x^2-18*x+6)",
|
| 19 | "0",
|
| 20 |
|
| 21 | "laguerre(x,0,k)-1",
|
| 22 | "0",
|
| 23 |
|
| 24 | "laguerre(x,1,k)-(-x+k+1)",
|
| 25 | "0",
|
| 26 |
|
| 27 | "laguerre(x,2,k)-1/2*(x^2-2*(k+2)*x+(k+1)*(k+2))",
|
| 28 | "0",
|
| 29 |
|
| 30 | "laguerre(x,3,k)-1/6*(-x^3+3*(k+3)*x^2-3*(k+2)*(k+3)*x+(k+1)*(k+2)*(k+3))",
|
| 31 | "0",
|
| 32 |
|
| 33 | "laguerre(a-b,10)-eval(subst(a-b,x,laguerre(x,10)))",
|
| 34 | "0",
|
| 35 | ]
|