1 | test_condense = ->
|
2 | run_test [
|
3 |
|
4 | "condense(a/(a+b)+b/(a+b))",
|
5 | "1",
|
6 |
|
7 | "psi(n) = exp(-r/n) laguerre(2r/n,n-1,1)",
|
8 | "",
|
9 |
|
10 | "psi(3)",
|
11 | "3*exp(-1/3*r)-2*r*exp(-1/3*r)+2/9*r^2*exp(-1/3*r)",
|
12 |
|
13 | "condense(last)",
|
14 | "exp(-1/3*r)*(3-2*r+2/9*r^2)",
|
15 |
|
16 | "psi()=psi",
|
17 | "",
|
18 |
|
19 |
|
20 |
|
21 | "condense(-3 exp(-1/3 r + i phi) cos(theta) - 6 exp(-1/3 r + i phi) cos(theta) sin(theta)^2 + 12 exp(-1/3 r + i phi) cos(theta)^3)",
|
22 | "3*exp(-1/3*r+i*phi)*(-1+4*cos(theta)^2-2*sin(theta)^2)*cos(theta)",
|
23 |
|
24 | "condense(7208+2736*5^(1/2))",
|
25 | "8*(901+342*5^(1/2))",
|
26 |
|
27 |
|
28 | ]
|