tgorordo/WignerSymbols.jl
1
0
Fork 0
mirror of https://github.com/tgorordo/WignerSymbols.jl.git synced 2026-06-05 15:42:15 -07:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

9j caching to canonical lexicographical order w/ regge sym

Browse source
This commit is contained in:
Thomas (Tom) C. Gorordo 2026-01-27 13:18:08 -08:00
parent 8e3d78114e
commit e21df477fc
Signed by: tgorordo
GPG key ID: 0CBED22BB0D94490
2 changed files with 76 additions and 46 deletions
Download patch file Download diff file Expand all files Collapse all files

28
test/runtests.jl
View file

@ -208,21 +208,25 @@ end
end
end
@threads for i = 1:N
@testset "wigner9j: relation to sum over 6j products, thread $i" begin
for k = 1:10_000
let (j1, j2, j3, j4, j5, j6, j7, j8, j9) = rand(smalljlist, 9)
@test wigner9j(j1, j2, j3,
j4, j5, j6,
j7, j8, j9) ≈ sum(largejlist) do x # lazy choice for range of this sum, but good enough
(iseven(2x) ? (2x + 1) : -(2x + 1)) *
wigner6j(j1, j4, j7,
j8, j9, x ) *
wigner6j(j2, j5, j8,
j4, x , j6) *
wigner6j(j3, j6, j9,
x , j1, j2)
end
debug = false
js = rand(smalljlist, 9)
debug |= !(@test(wigner9j(js...) ≈ sum(largejlist) do x # lazy choice for range of this sum, but good enough
(iseven(2x) ? (2x + 1) : -(2x + 1)) *
wigner6j(js[1], js[4], js[7],
js[8], js[9], x ) *
wigner6j(js[2], js[5], js[8],
js[4], x , js[6]) *
wigner6j(js[3], js[6], js[9],
x , js[1], js[2])
end) isa Test.Pass)
if debug
@warn "Failed on input" js
end
end
end