yapanuwan
/
BergEC-jl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Critical bug related to Jacobi+Moshinsky fixed (3 body results good!)

This commit is contained in:
Nuwan Yapa 2024-04-18 12:36:58 -04:00
parent 4c368ac903
commit 80e091e7ba
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ho_basis_3body.jl
View File

@ -3,7 +3,8 @@ include("ho_basis.jl")
include("p_space.jl")
E_max = 20
μω_gen = 0.2
μ1ω1_gen = 1/2
μ2ω2_gen = 2
Λ = 0
m = 1.0
@ -11,8 +12,7 @@ Va = -2
Ra = 2
μ1 = m * 1/2
μ2 = m * 2/3 * 4
c = sqrt(2)
μ2 = m * 2/3
println("No of threads = ", Threads.nthreads())
@ -25,12 +25,12 @@ end
println("Basis size = ", length(Es))
println("Constructing KE matrices")
@time "T1" T1 = sp_T_matrix(n1s, l1s; mask=mask1, μω_gen=μω_gen, μ=μ1)
@time "T2" T2 = sp_T_matrix(n2s, l2s; mask=mask2, μω_gen=μω_gen, μ=μ2)
@time "T1" T1 = sp_T_matrix(n1s, l1s; mask=mask1, μω_gen=μ1ω1_gen, μ=μ1)
@time "T2" T2 = sp_T_matrix(n2s, l2s; mask=mask2, μω_gen=μ2ω2_gen, μ=μ2)
println("Constructing PE matrices")
V1_elem(l, n1, n2) = Va * V_Gaussian(Ra, l, n1, n2; μω_gen=μω_gen)
V_relative_elem(l, n1, n2) = Va * V_Gaussian(Ra / c, l, n1, n2; μω_gen=μω_gen)
V1_elem(l, n1, n2) = Va * V_Gaussian(Ra, l, n1, n2; μω_gen=μ1ω1_gen)
V_relative_elem(l, n1, n2) = Va * V_Gaussian(Ra, l, n1, n2; μω_gen=1.0)
@time "V1" V1 = sp_V_matrix(V1_elem, n1s, l1s; mask=mask1)
@time "V relative" V_relative = sp_V_matrix(V_relative_elem, n1s, l1s; mask=mask1) + sp_V_matrix(V_relative_elem, n2s, l2s; mask=mask2)
@time "Moshinsky brackets" U = Moshinsky_transform(Es, n1s, l1s, n2s, l2s, Λ)