2023-05-30 16:35:55 +02:00
|
|
|
|
using LinearAlgebra
|
|
|
|
|
BLAS.set_num_threads(4)
|
|
|
|
|
ENV["OMP_NUM_THREADS"] = 4
|
2024-02-19 18:45:02 +01:00
|
|
|
|
include(joinpath(@__DIR__, "../test/optimizers.jl"))
|
|
|
|
|
using SCS_MKL_jll
|
2023-05-30 16:35:55 +02:00
|
|
|
|
|
|
|
|
|
using Groups
|
|
|
|
|
import Groups.MatrixGroups
|
|
|
|
|
|
|
|
|
|
using PropertyT
|
|
|
|
|
|
2024-02-19 18:45:02 +01:00
|
|
|
|
import PropertyT.SW as SW
|
|
|
|
|
using PropertyT.PG
|
|
|
|
|
using PropertyT.SA
|
2023-05-30 16:35:55 +02:00
|
|
|
|
|
|
|
|
|
include(joinpath(@__DIR__, "argparse.jl"))
|
|
|
|
|
|
|
|
|
|
const N = parsed_args["N"]
|
|
|
|
|
const HALFRADIUS = parsed_args["halfradius"]
|
|
|
|
|
const UPPER_BOUND = parsed_args["upper_bound"]
|
|
|
|
|
|
|
|
|
|
G = MatrixGroups.SpecialLinearGroup{N}(Int8)
|
|
|
|
|
@info "Running Δ² - λ·Δ sum of squares decomposition for " G
|
|
|
|
|
|
|
|
|
|
@info "computing group algebra structure"
|
|
|
|
|
RG, S, sizes = @time PropertyT.group_algebra(G, halfradius = HALFRADIUS)
|
|
|
|
|
|
|
|
|
|
@info "computing WedderburnDecomposition"
|
|
|
|
|
wd = let RG = RG, N = N
|
|
|
|
|
G = StarAlgebras.object(RG)
|
|
|
|
|
P = PermGroup(perm"(1,2)", Perm(circshift(1:N, -1)))
|
|
|
|
|
Σ = Groups.Constructions.WreathProduct(PermGroup(perm"(1,2)"), P)
|
|
|
|
|
act = PropertyT.action_by_conjugation(G, Σ)
|
|
|
|
|
|
2024-02-19 18:45:02 +01:00
|
|
|
|
wdfl = @time SW.WedderburnDecomposition(
|
2023-05-30 16:35:55 +02:00
|
|
|
|
Float64,
|
|
|
|
|
Σ,
|
|
|
|
|
act,
|
|
|
|
|
basis(RG),
|
|
|
|
|
StarAlgebras.Basis{UInt16}(@view basis(RG)[1:sizes[HALFRADIUS]]),
|
|
|
|
|
)
|
|
|
|
|
end
|
|
|
|
|
@info wd
|
|
|
|
|
|
|
|
|
|
Δ = RG(length(S)) - sum(RG(s) for s in S)
|
|
|
|
|
elt = Δ^2
|
|
|
|
|
unit = Δ
|
|
|
|
|
warm = nothing
|
|
|
|
|
|
|
|
|
|
@info "defining optimization problem"
|
|
|
|
|
@time model, varP = PropertyT.sos_problem_primal(
|
|
|
|
|
elt,
|
|
|
|
|
unit,
|
|
|
|
|
wd;
|
|
|
|
|
upper_bound = UPPER_BOUND,
|
|
|
|
|
augmented = true,
|
|
|
|
|
)
|
|
|
|
|
begin
|
|
|
|
|
@time status, warm = PropertyT.solve(
|
|
|
|
|
model,
|
|
|
|
|
scs_optimizer(;
|
|
|
|
|
linear_solver = SCS.MKLDirectSolver,
|
2024-02-19 18:45:02 +01:00
|
|
|
|
eps = 1e-9,
|
|
|
|
|
max_iters = 30_000,
|
|
|
|
|
accel = -50,
|
2023-05-30 16:35:55 +02:00
|
|
|
|
alpha = 1.95,
|
|
|
|
|
),
|
|
|
|
|
warm,
|
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
@info "reconstructing the solution"
|
|
|
|
|
Q = @time let wd = wd, Ps = [JuMP.value.(P) for P in varP]
|
|
|
|
|
Qs = real.(sqrt.(Ps))
|
|
|
|
|
PropertyT.reconstruct(Qs, wd)
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
@info "certifying the solution"
|
|
|
|
|
@time certified, λ = PropertyT.certify_solution(
|
|
|
|
|
elt,
|
|
|
|
|
unit,
|
|
|
|
|
JuMP.objective_value(model),
|
|
|
|
|
Q;
|
|
|
|
|
halfradius = HALFRADIUS,
|
|
|
|
|
augmented = true,
|
|
|
|
|
)
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
if certified && λ > 0
|
|
|
|
|
Κ(λ, S) = round(sqrt(2λ / length(S)), Base.RoundDown; digits = 5)
|
|
|
|
|
@info "Certified result: $G has property (T):" N λ Κ(λ, S)
|
|
|
|
|
else
|
|
|
|
|
@info "Could NOT certify the result:" certified λ
|
|
|
|
|
end
|