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 | ]
|