Formatting
This commit is contained in:
parent
e3b06b8bcd
commit
fcdd669983
14
ho_basis.jl
14
ho_basis.jl
|
|
@ -111,12 +111,12 @@ function Moshinsky_transform(Es, n1s, l1s, n2s, l2s, Λ)
|
|||
end
|
||||
|
||||
function pick_Moshinsky_brakcet(BRAC, n1′, l1′, n2′, l2′, n1, l1, n2, l2, Λ) # Efros notation -- don't confuse
|
||||
ϵ = (l1 + l2 - Λ) % 2
|
||||
NP = (l1′ - l2′ + Λ - ϵ) ÷ 2
|
||||
MP = (l1′ + l2′ - Λ - ϵ) ÷ 2
|
||||
N = (l1 - l2 + Λ - ϵ) ÷ 2
|
||||
M = (l1 + l2 - Λ - ϵ) ÷ 2
|
||||
ϵ = (l1 + l2 - Λ) % 2
|
||||
NP = (l1′ - l2′ + Λ - ϵ) ÷ 2
|
||||
MP = (l1′ + l2′ - Λ - ϵ) ÷ 2
|
||||
N = (l1 - l2 + Λ - ϵ) ÷ 2
|
||||
M = (l1 + l2 - Λ - ϵ) ÷ 2
|
||||
|
||||
# BRAC(NP,N1P,MP,N1,N2,N,M,L)
|
||||
return BRAC[1 + NP, 1 + n1′, 1 + MP, 1 + n1, 1 + n2, 1 + N, 1 + M, 1]
|
||||
# BRAC(NP,N1P,MP,N1,N2,N,M,L)
|
||||
return BRAC[1 + NP, 1 + n1′, 1 + MP, 1 + n1, 1 + n2, 1 + N, 1 + M, 1]
|
||||
end
|
||||
|
|
|
|||
Loading…
Reference in New Issue