|
| 1 | +""" |
| 2 | +$(TYPEDSIGNATURES) |
| 3 | +
|
| 4 | +Constructs and returns a JuMP model for the **Aircraft Balanced Field Length Calculation (Takeoff phase)**. |
| 5 | +The model represents the dynamics of the aircraft during takeoff and seeks to minimise the final range. |
| 6 | +
|
| 7 | +# Arguments |
| 8 | +
|
| 9 | +- `::JuMPBackend`: Specifies the backend for building the JuMP model. |
| 10 | +- `grid_size::Int=200`: (Keyword) Number of discretisation steps for the time horizon. |
| 11 | +
|
| 12 | +# Returns |
| 13 | +
|
| 14 | +- `model::JuMP.Model`: A JuMP model representing the problem. |
| 15 | +""" |
| 16 | +function OptimalControlProblems.balanced_field( |
| 17 | + ::JuMPBackend, |
| 18 | + args...; |
| 19 | + grid_size::Int=grid_size_data(:balanced_field), |
| 20 | + parameters::Union{Nothing,NamedTuple}=nothing, |
| 21 | + kwargs..., |
| 22 | +) |
| 23 | + |
| 24 | + # parameters |
| 25 | + params = parameters_data(:balanced_field, parameters) |
| 26 | + t0 = params[:t0] |
| 27 | + m = params[:m] |
| 28 | + g = params[:g] |
| 29 | + ρ = params[:ρ] |
| 30 | + S = params[:S] |
| 31 | + CD0 = params[:CD0] |
| 32 | + AR = params[:AR] |
| 33 | + e = params[:e] |
| 34 | + CL0 = params[:CL0] |
| 35 | + CL_max = params[:CL_max] |
| 36 | + h_w = params[:h_w] |
| 37 | + span = params[:span] |
| 38 | + α_max = params[:α_max] |
| 39 | + T = params[:T] |
| 40 | + |
| 41 | + r_t0 = params[:r_t0] |
| 42 | + v_t0 = params[:v_t0] |
| 43 | + h_t0 = params[:h_t0] |
| 44 | + γ_t0 = params[:γ_t0] |
| 45 | + h_tf = params[:h_tf] |
| 46 | + γ_tf = params[:γ_tf] |
| 47 | + |
| 48 | + α_min = params[:α_min] |
| 49 | + α_max_ctrl = params[:α_max_ctrl] |
| 50 | + |
| 51 | + # Constants |
| 52 | + b = span / 2.0 |
| 53 | + K_nom = 1.0 / (pi * AR * e) |
| 54 | + |
| 55 | + # model |
| 56 | + model = JuMP.Model(args...; kwargs...) |
| 57 | + |
| 58 | + # metadata |
| 59 | + model[:time_grid] = () -> range(t0, value(model[:tf]), grid_size + 1) |
| 60 | + model[:state_components] = ["r", "v", "h", "γ"] |
| 61 | + model[:costate_components] = ["∂r", "∂v", "∂h", "∂γ"] |
| 62 | + model[:control_components] = ["α"] |
| 63 | + model[:variable_components] = ["tf"] |
| 64 | + |
| 65 | + @expression(model, N, grid_size) |
| 66 | + |
| 67 | + # variables |
| 68 | + @variables( |
| 69 | + model, |
| 70 | + begin |
| 71 | + r[0:N], (start = r_t0) |
| 72 | + v[0:N] ≥ 1.0, (start = v_t0 + 10.0) |
| 73 | + h[0:N] ≥ 0.0, (start = h_tf / 2.0) |
| 74 | + γ[0:N], (start = γ_tf) |
| 75 | + 0 ≤ α[0:N] ≤ α_max_ctrl, (start = 0.1) |
| 76 | + tf ≥ 0.1, (start = 10.0) |
| 77 | + end |
| 78 | + ) |
| 79 | + |
| 80 | + # boundary constraints |
| 81 | + @constraints( |
| 82 | + model, |
| 83 | + begin |
| 84 | + r[0] == r_t0 |
| 85 | + v[0] == v_t0 |
| 86 | + h[0] == h_t0 |
| 87 | + γ[0] == γ_t0 |
| 88 | + |
| 89 | + h[N] == h_tf |
| 90 | + γ[N] == γ_tf |
| 91 | + end |
| 92 | + ) |
| 93 | + |
| 94 | + # dynamics |
| 95 | + @expressions( |
| 96 | + model, |
| 97 | + begin |
| 98 | + Δt, (tf - t0) / N |
| 99 | + |
| 100 | + q[i = 0:N], 0.5 * ρ * v[i]^2 |
| 101 | + CL[i = 0:N], CL0 + (α[i] / α_max) * (CL_max - CL0) |
| 102 | + L[i = 0:N], q[i] * S * CL[i] |
| 103 | + |
| 104 | + h_eff[i = 0:N], h[i] + h_w |
| 105 | + term_h[i = 0:N], 33.0 * abs(h_eff[i] / b)^1.5 |
| 106 | + K[i = 0:N], K_nom * term_h[i] / (1.0 + term_h[i]) |
| 107 | + D[i = 0:N], q[i] * S * (CD0 + K[i] * CL[i]^2) |
| 108 | + |
| 109 | + dr[i = 0:N], v[i] * cos(γ[i]) |
| 110 | + dv[i = 0:N], (T * cos(α[i]) - D[i]) / m - g * sin(γ[i]) |
| 111 | + dh[i = 0:N], v[i] * sin(γ[i]) |
| 112 | + dγ[i = 0:N], (T * sin(α[i]) + L[i]) / (m * v[i]) - (g * cos(γ[i])) / v[i] |
| 113 | + end |
| 114 | + ) |
| 115 | + |
| 116 | + @constraints( |
| 117 | + model, |
| 118 | + begin |
| 119 | + ∂r[i = 1:N], r[i] == r[i - 1] + 0.5 * Δt * (dr[i] + dr[i - 1]) |
| 120 | + ∂v[i = 1:N], v[i] == v[i - 1] + 0.5 * Δt * (dv[i] + dv[i - 1]) |
| 121 | + ∂h[i = 1:N], h[i] == h[i - 1] + 0.5 * Δt * (dh[i] + dh[i - 1]) |
| 122 | + ∂γ[i = 1:N], γ[i] == γ[i - 1] + 0.5 * Δt * (dγ[i] + dγ[i - 1]) |
| 123 | + end |
| 124 | + ) |
| 125 | + |
| 126 | + # objective |
| 127 | + @objective(model, Min, r[N]) |
| 128 | + |
| 129 | + return model |
| 130 | +end |
0 commit comments