Copy auglag from lbfgsb.jl

src/auglag.jl

@@ -0,0 +1,182 @@
+
+SciMLBase.supports_opt_cache_interface(::LBFGS) = true
+SciMLBase.allowsbounds(::LBFGS) = true
+SciMLBase.requiresgradient(::LBFGS) = true
+SciMLBase.allowsconstraints(::LBFGS) = true
+SciMLBase.requiresconsjac(::LBFGS) = true
+
+function task_message_to_string(task::Vector{UInt8})
+    return String(task)
+end
+
+function __map_optimizer_args(cache::Optimization.OptimizationCache, opt::LBFGS;
+        callback = nothing,
+        maxiters::Union{Number, Nothing} = nothing,
+        maxtime::Union{Number, Nothing} = nothing,
+        abstol::Union{Number, Nothing} = nothing,
+        reltol::Union{Number, Nothing} = nothing,
+        verbose::Bool = false,
+        kwargs...)
+    if !isnothing(abstol)
+        @warn "common abstol is currently not used by $(opt)"
+    end
+    if !isnothing(maxtime)
+        @warn "common abstol is currently not used by $(opt)"
+    end
+
+    mapped_args = (;)
+
+    if cache.lb !== nothing && cache.ub !== nothing
+        mapped_args = (; mapped_args..., lb = cache.lb, ub = cache.ub)
+    end
+
+    if !isnothing(maxiters)
+        mapped_args = (; mapped_args..., maxiter = maxiters)
+    end
+
+    if !isnothing(reltol)
+        mapped_args = (; mapped_args..., pgtol = reltol)
+    end
+
+    return mapped_args
+end
+
+function SciMLBase.__solve(cache::OptimizationCache{
+        F,
+        RC,
+        LB,
+        UB,
+        LC,
+        UC,
+        S,
+        O,
+        D,
+        P,
+        C
+}) where {
+        F,
+        RC,
+        LB,
+        UB,
+        LC,
+        UC,
+        S,
+        O <:
+        LBFGS,
+        D,
+        P,
+        C
+}
+maxiters = Optimization._check_and_convert_maxiters(cache.solver_args.maxiters)
+
+local x
+
+solver_kwargs = __map_optimizer_args(cache, cache.opt; maxiters, cache.solver_args...)
+
+if !isnothing(cache.f.cons)
+    eq_inds = [cache.lcons[i] == cache.ucons[i] for i in eachindex(cache.lcons)]
+    ineq_inds = (!).(eq_inds)
+
+    τ = cache.opt.τ
+    γ = cache.opt.γ
+    λmin = cache.opt.λmin
+    λmax = cache.opt.λmax
+    μmin = cache.opt.μmin
+    μmax = cache.opt.μmax
+    ϵ = cache.opt.ϵ
+
+    λ = zeros(eltype(cache.u0), sum(eq_inds))
+    μ = zeros(eltype(cache.u0), sum(ineq_inds))
+
+    cons_tmp = zeros(eltype(cache.u0), length(cache.lcons))
+    cache.f.cons(cons_tmp, cache.u0)
+    ρ = max(1e-6, min(10, 2 * (abs(cache.f(cache.u0, cache.p))) / norm(cons_tmp)))
+
+    _loss = function (θ)
+        x = cache.f(θ, cache.p)
+        cons_tmp .= zero(eltype(θ))
+        cache.f.cons(cons_tmp, θ)
+        cons_tmp[eq_inds] .= cons_tmp[eq_inds] - cache.lcons[eq_inds]
+        cons_tmp[ineq_inds] .= cons_tmp[ineq_inds] .- cache.ucons[ineq_inds]
+        opt_state = Optimization.OptimizationState(u = θ, objective = x[1])
+        if cache.callback(opt_state, x...)
+            error("Optimization halted by callback.")
+        end
+        return x[1] + sum(@. λ * cons_tmp[eq_inds] + ρ / 2 * (cons_tmp[eq_inds] .^ 2)) +
+               1 / (2 * ρ) * sum((max.(Ref(0.0), μ .+ (ρ .* cons_tmp[ineq_inds]))) .^ 2)
+    end
+
+    prev_eqcons = zero(λ)
+    θ = cache.u0
+    β = max.(cons_tmp[ineq_inds], Ref(0.0))
+    prevβ = zero(β)
+    eqidxs = [eq_inds[i] > 0 ? i : nothing for i in eachindex(ineq_inds)]
+    ineqidxs = [ineq_inds[i] > 0 ? i : nothing for i in eachindex(ineq_inds)]
+    eqidxs = eqidxs[eqidxs .!= nothing]
+    ineqidxs = ineqidxs[ineqidxs .!= nothing]
+    function aug_grad(G, θ)
+        cache.f.grad(G, θ)
+        if !isnothing(cache.f.cons_jac_prototype)
+            J = Float64.(cache.f.cons_jac_prototype)
+        else
+            J = zeros((length(cache.lcons), length(θ)))
+        end
+        cache.f.cons_j(J, θ)
+        __tmp = zero(cons_tmp)
+        cache.f.cons(__tmp, θ)
+        __tmp[eq_inds] .= __tmp[eq_inds] .- cache.lcons[eq_inds]
+        __tmp[ineq_inds] .= __tmp[ineq_inds] .- cache.ucons[ineq_inds]
+        G .+= sum(
+            λ[i] .* J[idx, :] + ρ * (__tmp[idx] .* J[idx, :])
+            for (i, idx) in enumerate(eqidxs);
+            init = zero(G)) #should be jvp
+        G .+= sum(
+            1 / ρ * (max.(Ref(0.0), μ[i] .+ (ρ .* __tmp[idx])) .* J[idx, :])
+            for (i, idx) in enumerate(ineqidxs);
+            init = zero(G)) #should be jvp
+    end
+
+    opt_ret = ReturnCode.MaxIters
+    n = length(cache.u0)
+
+    sol = solve(....)
+
+    solver_kwargs = Base.structdiff(solver_kwargs, (; lb = nothing, ub = nothing))
+
+    for i in 1:maxiters
+        prev_eqcons .= cons_tmp[eq_inds] .- cache.lcons[eq_inds]
+        prevβ .= copy(β)
+        res = optimizer(_loss, aug_grad, θ, bounds; solver_kwargs...,
+            m = cache.opt.m, pgtol = sqrt(ϵ), maxiter = maxiters / 100)
+        # @show res[2]
+        # @show res[1]
+        # @show cons_tmp
+        # @show λ
+        # @show β
+        # @show μ
+        # @show ρ
+        θ = res[2]
+        cons_tmp .= 0.0
+        cache.f.cons(cons_tmp, θ)
+        λ = max.(min.(λmax, λ .+ ρ * (cons_tmp[eq_inds] .- cache.lcons[eq_inds])), λmin)
+        β = max.(cons_tmp[ineq_inds], -1 .* μ ./ ρ)
+        μ = min.(μmax, max.(μ .+ ρ * cons_tmp[ineq_inds], μmin))
+        if max(norm(cons_tmp[eq_inds] .- cache.lcons[eq_inds], Inf), norm(β, Inf)) >
+           τ * max(norm(prev_eqcons, Inf), norm(prevβ, Inf))
+            ρ = γ * ρ
+        end
+        if norm(
+            (cons_tmp[eq_inds] .- cache.lcons[eq_inds]) ./ cons_tmp[eq_inds], Inf) <
+           ϵ && norm(β, Inf) < ϵ
+            opt_ret = ReturnCode.Success
+            break
+        end
+    end
+end
+
+stats = Optimization.OptimizationStats(; iterations = maxiters,
+            time = 0.0, fevals = maxiters, gevals = maxiters)
+return SciMLBase.build_solution(
+            cache, cache.opt, res[2], cache.f(res[2], cache.p)[1],
+            stats = stats, retcode = opt_ret)
+end