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

Spelling fix

This commit is contained in:
Nuwan Yapa 2024-04-22 09:36:08 -04:00
parent fcdd669983
commit c5e4f51b0c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ho_basis.jl
View File

@ -103,14 +103,14 @@ function Moshinsky_transform(Es, n1s, l1s, n2s, l2s, Λ)
(Elhs, N, L, n, l) = s[i, :] (Elhs, N, L, n, l) = s[i, :]
(Erhs, n1, l1, n2, l2) = s[j, :] (Erhs, n1, l1, n2, l2) = s[j, :]
if Elhs == Erhs && triangle_ineq(L, l, Λ) && triangle_ineq(l1, l2, Λ) if Elhs == Erhs && triangle_ineq(L, l, Λ) && triangle_ineq(l1, l2, Λ)
mat[i, j] = (-1)^(n1 + n2 + N + n) * pick_Moshinsky_brakcet(BRAC, n1, l1, n2, l2, N, L, n, l, Λ) mat[i, j] = (-1)^(n1 + n2 + N + n) * pick_Moshinsky_bracket(BRAC, n1, l1, n2, l2, N, L, n, l, Λ)
end end
end end
return sparse(mat) return sparse(mat)
end end
function pick_Moshinsky_brakcet(BRAC, n1′, l1′, n2′, l2′, n1, l1, n2, l2, Λ) # Efros notation -- don't confuse function pick_Moshinsky_bracket(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