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
|
end
|
||||||
|
|
||||||
function pick_Moshinsky_brakcet(BRAC, n1′, l1′, n2′, l2′, n1, l1, n2, l2, Λ) # Efros notation -- don't confuse
|
function pick_Moshinsky_brakcet(BRAC, n1′, l1′, n2′, l2′, n1, l1, n2, l2, Λ) # Efros notation -- don't confuse
|
||||||
ϵ = (l1 + l2 - Λ) % 2
|
ϵ = (l1 + l2 - Λ) % 2
|
||||||
NP = (l1′ - l2′ + Λ - ϵ) ÷ 2
|
NP = (l1′ - l2′ + Λ - ϵ) ÷ 2
|
||||||
MP = (l1′ + l2′ - Λ - ϵ) ÷ 2
|
MP = (l1′ + l2′ - Λ - ϵ) ÷ 2
|
||||||
N = (l1 - l2 + Λ - ϵ) ÷ 2
|
N = (l1 - l2 + Λ - ϵ) ÷ 2
|
||||||
M = (l1 + l2 - Λ - ϵ) ÷ 2
|
M = (l1 + l2 - Λ - ϵ) ÷ 2
|
||||||
|
|
||||||
# BRAC(NP,N1P,MP,N1,N2,N,M,L)
|
# 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]
|
return BRAC[1 + NP, 1 + n1′, 1 + MP, 1 + n1, 1 + n2, 1 + N, 1 + M, 1]
|
||||||
end
|
end
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue