mirror of
https://github.com/kalmarek/SmallHyperbolic
synced 2024-11-09 04:05:27 +01:00
correct use of acb_mat_eig_multiple
This commit is contained in:
parent
b95807095f
commit
d0d0d2ace4
@ -78,3 +78,65 @@ function AcbVector(v::AbstractVector{Nemo.acb})
|
|||||||
return acb_v
|
return acb_v
|
||||||
end
|
end
|
||||||
|
|
||||||
|
function approx_eig_qr!(v::AcbVector, R::acb_mat, A::acb_mat)
|
||||||
|
n = nrows(A)
|
||||||
|
ccall(
|
||||||
|
(:acb_mat_approx_eig_qr, Nemo.libarb),
|
||||||
|
Cint,
|
||||||
|
(
|
||||||
|
Ptr{acb_struct},
|
||||||
|
Ptr{Cvoid},
|
||||||
|
Ref{acb_mat},
|
||||||
|
Ref{acb_mat},
|
||||||
|
Ptr{Cvoid},
|
||||||
|
Int,
|
||||||
|
Int,
|
||||||
|
),
|
||||||
|
v,
|
||||||
|
C_NULL,
|
||||||
|
R,
|
||||||
|
A,
|
||||||
|
C_NULL,
|
||||||
|
0,
|
||||||
|
prec(parent(A)),
|
||||||
|
)
|
||||||
|
return v
|
||||||
|
end
|
||||||
|
|
||||||
|
function LinearAlgebra.eigvals(A::Nemo.acb_mat)
|
||||||
|
n = nrows(A)
|
||||||
|
λ_approx = AcbVector(n)
|
||||||
|
R_approx = similar(A)
|
||||||
|
v = approx_eig_qr!(λ_approx, R_approx, A)
|
||||||
|
|
||||||
|
λ = AcbVector(n)
|
||||||
|
b = ccall(
|
||||||
|
(:acb_mat_eig_multiple, Nemo.libarb),
|
||||||
|
Cint,
|
||||||
|
(Ptr{acb_struct}, Ref{acb_mat}, Ptr{acb_struct}, Ref{acb_mat}, Int),
|
||||||
|
λ,
|
||||||
|
A,
|
||||||
|
λ_approx,
|
||||||
|
R_approx,
|
||||||
|
prec(base_ring(A)),
|
||||||
|
)
|
||||||
|
|
||||||
|
CC = base_ring(A)
|
||||||
|
return CC.(λ)
|
||||||
|
end
|
||||||
|
|
||||||
|
function _count_multiplicites(evs)
|
||||||
|
λ_m = Vector{Tuple{acb,Int}}()
|
||||||
|
sizehint!(λ_m, length(evs))
|
||||||
|
i = 1
|
||||||
|
while i <= length(evs)
|
||||||
|
m = 0
|
||||||
|
v = evs[i]
|
||||||
|
while i + m <= length(evs) && isequal(evs[i], evs[i+m])
|
||||||
|
m += 1
|
||||||
|
end
|
||||||
|
push!(λ_m, (evs[i], m))
|
||||||
|
i += m
|
||||||
|
end
|
||||||
|
return λ_m
|
||||||
|
end
|
||||||
|
Loading…
Reference in New Issue
Block a user