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