22 lines
445 B
Julia
22 lines
445 B
Julia
println("### Test: U' * U == identity")
|
|
|
|
using LinearAlgebra
|
|
|
|
include("../ho_basis.jl")
|
|
|
|
E_max = 30
|
|
Λ = 0
|
|
|
|
println("No of threads = ", Threads.nthreads())
|
|
|
|
@time "Basis" Es, n1s, l1s, n2s, l2s = get_2p_basis(E_max)
|
|
|
|
println("Basis size = ", length(Es))
|
|
|
|
@time "Moshinsky brackets" U = Moshinsky_transform(Es, n1s, l1s, n2s, l2s, Λ)
|
|
|
|
check = U' * U - I
|
|
|
|
println("Maximum = ", maximum(abs.(check)))
|
|
println("Norm = ", sum(check .* conj(check)))
|