-
-
Save ohno/efeb382c4be77d7603ffca469ac0fc34 to your computer and use it in GitHub Desktop.
| using LinearAlgebra | |
| α = [13.00773, 1.962079, 0.444529, 0.1219492] | |
| S = [(π/(α[i]+α[j]))^(3/2) for i in keys(α), j in keys(α)] | |
| H = [3*π^(3/2)*α[i]*α[j]/(α[i]+α[j])^(5/2) - 2*π/(α[i]+α[j]) for i in keys(α), j in keys(α)] | |
| E, C = eigen(H, S) |
J. Thijssen, Computational Physics 2nd edition, (Cambridge University Press, 2007)
Uh oh!
There was an error while loading. Please reload this page.