From 4fa01f80e1b9c69194a0acdc5aa0b028a462e114 Mon Sep 17 00:00:00 2001 From: Nuwan Yapa Date: Fri, 19 Apr 2024 17:51:27 -0400 Subject: [PATCH] =?UTF-8?q?Global=20=CE=BC=CF=89=20coefficient=20added?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- ho_basis_3body.jl | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/ho_basis_3body.jl b/ho_basis_3body.jl index 7ea84e6..44cad58 100644 --- a/ho_basis_3body.jl +++ b/ho_basis_3body.jl @@ -2,15 +2,17 @@ using Arpack, SparseArrays include("ho_basis.jl") include("p_space.jl") -E_max = 40 -μ1ω1_gen = 1/2 -μ2ω2_gen = 2 Λ = 0 m = 1.0 - Va = -2 Ra = 2 +E_max = 40 +μω_global = 0.5 + +# due to Jacobi coordinates +μ1ω1 = μω_global * 1/2 +μ2ω2 = μω_global * 2 μ1 = m * 1/2 μ2 = m * 2/3 @@ -25,12 +27,12 @@ end println("Basis size = ", length(Es)) println("Constructing KE matrices") -@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) +@time "T1" T1 = sp_T_matrix(n1s, l1s; mask=mask1, μω_gen=μ1ω1, μ=μ1) +@time "T2" T2 = sp_T_matrix(n2s, l2s; mask=mask2, μω_gen=μ2ω2, μ=μ2) println("Constructing PE matrices") -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) +V1_elem(l, n1, n2) = Va * V_Gaussian(Ra, l, n1, n2; μω_gen=μ1ω1) +V_relative_elem(l, n1, n2) = Va * V_Gaussian(Ra, l, n1, n2; μω_gen=μω_global) @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, Λ)