| 1 | test_hermite = ->
|
| 2 | run_test [
|
| 3 | "hermite(x,n)",
|
| 4 | "hermite(x,n)",
|
| 5 |
|
| 6 | "hermite(x,0)-1",
|
| 7 | "0",
|
| 8 |
|
| 9 | "hermite(x,1)-2*x",
|
| 10 | "0",
|
| 11 |
|
| 12 | "hermite(x,2)-(4*x^2-2)",
|
| 13 | "0",
|
| 14 |
|
| 15 | "hermite(x,3)-(8*x^3-12*x)",
|
| 16 | "0",
|
| 17 |
|
| 18 | "hermite(x,4)-(16*x^4-48*x^2+12)",
|
| 19 | "0",
|
| 20 |
|
| 21 | "hermite(x,5)-(32*x^5-160*x^3+120*x)",
|
| 22 | "0",
|
| 23 |
|
| 24 | "hermite(x,6)-(64*x^6-480*x^4+720*x^2-120)",
|
| 25 | "0",
|
| 26 |
|
| 27 | "hermite(x,7)-(128*x^7-1344*x^5+3360*x^3-1680*x)",
|
| 28 | "0",
|
| 29 |
|
| 30 | "hermite(x,8)-(256*x^8-3584*x^6+13440*x^4-13440*x^2+1680)",
|
| 31 | "0",
|
| 32 |
|
| 33 | "hermite(x,9)-(512*x^9-9216*x^7+48384*x^5-80640*x^3+30240*x)",
|
| 34 | "0",
|
| 35 |
|
| 36 | "hermite(x,10)-(1024*x^10-23040*x^8+161280*x^6-403200*x^4+302400*x^2-30240)",
|
| 37 | "0",
|
| 38 |
|
| 39 | "hermite(a-b,10)-eval(subst(a-b,x,hermite(x,10)))",
|
| 40 | "0",
|
| 41 | ]
|