Add wpidhy

src/initialization/generator_components/init_tg.jl

@@ -406,3 +406,100 @@
     end
     return
 end
+
+function initialize_tg!(
+    device_states,
+    static::PSY.StaticInjection,
+    dynamic_device::DynamicWrapper{PSY.DynamicGenerator{M, S, A, PSY.WPIDHY, P}},
+    inner_vars::AbstractVector,
+) where {M <: PSY.Machine, S <: PSY.Shaft, A <: PSY.AVR, P <: PSY.PSS}
+
+    #Get mechanical torque to SyncMach
+    τm0 = inner_vars[τm_var]
+    τe0 = inner_vars[τe_var]
+    P0 = PSY.get_active_power(static)
+
+    #Get parameters
+    tg = PSY.get_prime_mover(dynamic_device)
+    reg = PSY.get_reg(tg)
+    Kp = PSY.get_Kp(tg)
+    Ki = PSY.get_Ki(tg)
+    Kd = PSY.get_Kd(tg)
+    Ta = PSY.get_Ta(tg)
+    gate_openings = PSY.get_gate_openings(tg)
+    power_gate_openings = PSY.get_power_gate_openings(tg)
+    G_min, G_max = PSY.get_G_lim(tg)
+    P_min, P_max = PSY.get_P_lim(tg)
+    Tw = PSY.get_Tw(tg)
+
+    #Compute controller parameters for equivalent TF
+    Kp_prime = (-Ta * Ki) + Kp
+    Kd_prime = (Ta^2 * Ki) - (Ta * Kp) + Kd
+    Ki_prime = Ki
+
+    function f!(out, x)
+        P_ref = x[1]
+        x_g1 = x[2]
+        x_g2 = x[3]
+        x_g3 = x[4]
+        x_g4 = x[5]
+        x_g5 = x[6]
+        x_g6 = x[7]
+        x_g7 = x[8]
+
+        pid_input = x_g1
+        pi_out, dxg2_dt = pi_block(pid_input, x_g2, Kp_prime, Ki_prime)
+        pd_out, dxg4_dt = high_pass(pid_input, x_g4, Kd_prime, Ta)
+
+        power_at_gate =
+            three_level_gate_to_power_map(x_g6, gate_openings, power_gate_openings)
+
+        y_LL_out, dxg7_dt = lead_lag(power_at_gate, x_g7, 1.0, -Tw, Tw / 2.0)
+
+        out[1] = y_LL_out - τm0
+        out[2] = (P0 - P_ref) * reg - x_g1
+        out[3] = dxg2_dt
+        out[4] = pi_out + pd_out - x_g3
+        out[5] = dxg4_dt
+        out[6] = x_g3 - x_g5
+        out[7] = x_g5
+        out[8] = dxg7_dt
+    end
+    gate0 = three_level_power_to_gate_map(τm0, gate_openings, power_gate_openings)
+    P_ref_guess = P0
+    xg1_guess = τe0 - P_ref_guess
+
+    #x0 = [P_ref_guess, xg1_guess, 0.0, 0.0, 0.0, 0.0, gate0, 3.0 * τm0]
+    x0 = [P_ref_guess, 0.0, gate0, gate0, 0.0, gate0, gate0, 3.0 * τm0]
+    sol = NLsolve.nlsolve(f!, x0; ftol = STRICT_NLSOLVE_F_TOLERANCE)
+    if !NLsolve.converged(sol)
+        @warn("Initialization of Turbine Governor $(PSY.get_name(static)) failed")
+    else
+        sol_x0 = sol.zero
+        #Error if x_g3 is outside PI limits
+        if sol_x0[7] > G_max || sol_x0[7] < G_min
+            @error(
+                "WPIDHY Turbine Governor $(PSY.get_name(static)) $(sol_x0[7]) outside its gate limits $G_min, $G_max. Consider updating the operating point.",
+            )
+        elseif τm0 > P_max || τm0 < P_min
+            @error(
+                "WPIDHY Turbine Governor $(PSY.get_name(static)) $(sol_x0[8]) outside its power limits $P_min, $P_max. Consider updating the operating point.",
+            )
+        end
+
+        #Update Control Refs
+        PSY.set_P_ref!(tg, sol_x0[1])
+        set_P_ref(dynamic_device, sol_x0[1])
+        #Update states
+        tg_ix = get_local_state_ix(dynamic_device, typeof(tg))
+        tg_states = @view device_states[tg_ix]
+        tg_states[1] = sol_x0[2]
+        tg_states[2] = sol_x0[3]
+        tg_states[3] = sol_x0[4]
+        tg_states[4] = sol_x0[5]
+        tg_states[5] = sol_x0[6]
+        tg_states[6] = sol_x0[7]
+        tg_states[7] = sol_x0[8]
+    end
+    return
+end

src/models/common_controls.jl

@@ -1606,7 +1606,7 @@ function three_level_gate_to_power_map(
     p0 = 0.0
     g3 = 1.0
     if input <= g0
-        return zero(T)
+        return zero(Z)
     elseif g0 < input <= g1
         return ((p1 - p0) / (g1 - g0)) * (input - g0) + p0
     elseif g1 < input <= g2

src/models/generator_models/tg_models.jl

@@ -43,6 +43,15 @@ function mass_matrix_tg_entries!(
     return
 end
 
+function mass_matrix_tg_entries!(
+    mass_matrix,
+    tg::PSY.WPIDHY,
+    global_index::Base.ImmutableDict{Symbol, Int64},
+)
+    mass_matrix[global_index[:x_g1], global_index[:x_g1]] = PSY.get_T_reg(tg)
+    return
+end
+
 ##################################
 ##### Differential Equations #####
 ##################################
@@ -409,6 +418,102 @@ function mdl_tg_ode!(
     return
 end
 
+function mdl_tg_ode!(
+    device_states::AbstractArray{<:ACCEPTED_REAL_TYPES},
+    output_ode::AbstractArray{<:ACCEPTED_REAL_TYPES},
+    inner_vars::AbstractArray{<:ACCEPTED_REAL_TYPES},
+    ω_sys::ACCEPTED_REAL_TYPES,
+    device::DynamicWrapper{PSY.DynamicGenerator{M, S, A, PSY.WPIDHY, P}},
+    h,
+    t,
+) where {M <: PSY.Machine, S <: PSY.Shaft, A <: PSY.AVR, P <: PSY.PSS}
+
+    #Obtain references
+    P_ref = get_P_ref(device)
+
+    #Obtain indices for component w/r to device
+    local_ix = get_local_state_ix(device, PSY.WPIDHY)
+
+    #Define internal states for component
+    internal_states = @view device_states[local_ix]
+    x_g1 = internal_states[1] # Filter Input
+    x_g2 = internal_states[2] # PI Block
+    x_g3 = internal_states[3] # Regulator After PID Block
+    x_g4 = internal_states[4] # Derivative (High Pass) Block
+    x_g5 = internal_states[5] # Second Regulator Block
+    x_g6 = internal_states[6] # Gate State
+    x_g7 = internal_states[7] # Water Inertia State
+
+    #Obtain external states inputs for component
+    external_ix = get_input_port_ix(device, PSY.WPIDHY)
+    ω = @view device_states[external_ix]
+
+    # Read Inner Vars
+    τ_e = inner_vars[τe_var]
+
+    #Get Parameters
+    tg = PSY.get_prime_mover(device)
+    T_reg = PSY.get_T_reg(tg)
+    reg = PSY.get_reg(tg)
+    Kp = PSY.get_Kp(tg)
+    Ki = PSY.get_Ki(tg)
+    Kd = PSY.get_Kd(tg)#Kd>0
+    Ta = PSY.get_Ta(tg)
+    Tb = PSY.get_Tb(tg)
+    V_min, V_max = PSY.get_V_lim(tg)
+    G_min, G_max = PSY.get_G_lim(tg)
+    P_min, P_max = PSY.get_P_lim(tg)
+    Tw = PSY.get_Tw(tg)
+    D = PSY.get_D(tg)
+    gate_openings = PSY.get_gate_openings(tg)
+    power_gate_openings = PSY.get_power_gate_openings(tg)
+
+    #Compute controller parameters for equivalent TF
+    Kp_prime = (-Ta * Ki) + Kp
+    Kd_prime = (Ta^2 * Ki) - (Ta * Kp) + Kd
+    Ki_prime = Ki
+
+    x_in = τ_e - P_ref
+    #Compute block derivatives
+    _, dxg1_dt = low_pass_mass_matrix(x_in, x_g1, reg, T_reg)
+    pid_input = x_g1 - (ω[1] - ω_sys)
+    pi_out, dxg2_dt = pi_block(pid_input, x_g2, Kp_prime, Ki_prime)
+    pd_out, dxg4_dt = high_pass(pid_input, x_g4, Kd_prime, Ta)
+    pid_out = pi_out + pd_out
+    _, dxg3_dt = low_pass(pid_out, x_g3, 1.0, Ta)
+    _, dxg5_dt = low_pass(x_g3, x_g5, 1.0, Tb)
+
+    #Set clamping for G_vel.
+    G_vel_sat = clamp(x_g5, V_min, V_max)
+
+    # Compute integrator
+    xg6_sat, dxg6_dt = integrator_windup(G_vel_sat, x_g6, 1.0, 1.0, G_min, G_max)
+
+    power_at_gate =
+        three_level_gate_to_power_map(xg6_sat, gate_openings, power_gate_openings)
+
+    # Compute Lead-Lag Block
+    ll_out, dxg7_dt = lead_lag(power_at_gate, x_g7, 1.0, -Tw, Tw / 2.0)
+    Power_sat = clamp(ll_out, P_min, P_max)
+
+    #Compute output torque
+    P_m = Power_sat - (D * (ω[1] - ω_sys))
+
+    #Compute 1 State TG ODE:
+    output_ode[local_ix[1]] = dxg1_dt
+    output_ode[local_ix[2]] = dxg2_dt
+    output_ode[local_ix[3]] = dxg3_dt
+    output_ode[local_ix[4]] = dxg4_dt
+    output_ode[local_ix[5]] = dxg5_dt
+    output_ode[local_ix[6]] = dxg6_dt
+    output_ode[local_ix[7]] = dxg7_dt
+
+    #Update mechanical torque
+    inner_vars[τm_var] = P_m / ω[1]
+
+    return
+end
+
 function mdl_tg_ode!(
     device_states::AbstractArray{<:ACCEPTED_REAL_TYPES},
     output_ode::AbstractArray{<:ACCEPTED_REAL_TYPES},

src/post_processing/post_proc_generator.jl

@@ -1179,3 +1179,34 @@ function _mechanical_torque(
     τm = Pe ./ ω
     return ts, τm
 end
+
+function _mechanical_torque(
+    tg::PSY.WPIDHY,
+    name::String,
+    res::SimulationResults,
+    dt::Union{Nothing, Float64, Vector{Float64}},
+)
+    # Get params
+    D = PSY.get_D(tg)
+    gate_openings = PSY.get_gate_openings(tg)
+    power_gate_openings = PSY.get_power_gate_openings(tg)
+    Tw = PSY.get_Tw(tg)
+    setpoints = get_setpoints(res)
+    ω_ref = setpoints[name]["ω_ref"]
+
+    # Get state results
+    ts, x_g7 = post_proc_state_series(res, (name, :x_g7), dt)
+    _, x_g6 = post_proc_state_series(res, (name, :x_g6), dt)
+    _, ω = post_proc_state_series(res, (name, :ω), dt)
+    Pm = similar(x_g7)
+
+    for (ix, x7) in enumerate(x_g7)
+        x6 = x_g6[ix]
+        power_at_gate =
+            three_level_gate_to_power_map(x6, gate_openings, power_gate_openings)
+        ll_out, _ = lead_lag(power_at_gate, x7, 1.0, -Tw, Tw / 2.0)
+        Pm[ix] = ll_out - D * (ω[ix] - ω_ref)
+    end
+    τm = Pm ./ ω
+    return ts, τm
+end

test/benchmarks/psse/WPIDHY/ThreeBusMulti.raw

@@ -0,0 +1,32 @@
+0,   100.00, 33, 0, 0, 60.00     / PSS(R)E 33 RAW created by rawd33  TUE, JUL 21 2020  17:55
+
+
+   101,'BUS 1', 138.0000,3,   1,   1,   1,1.05000,   0.0000,1.10000,0.90000,1.10000,0.90000
+   102,'BUS 2', 138.0000,2,   1,   1,   1,1.02000,  -0.9440,1.10000,0.90000,1.10000,0.90000
+   103,'BUS 3', 138.0000,1,   1,   1,   1,0.99341,  -8.7697,1.10000,0.90000,1.10000,0.90000
+ 0 /End of Bus data, Begin Load data
+   103,'1 ',1,   1,   1,   200.000,    30.000,     0.000,     0.000,     0.000,     0.000,   1,1,0
+ 0 /End of Load data, Begin Fixed shunt data
+ 0 /End of Fixed shunt data, Begin Generator data
+   101,'1 ',   133.335,    73.271,   100.000,  -100.000,1.05000,     0,   100.000, 0.00000E+0, 1.00000E-5, 0.00000E+0, 0.00000E+0,1.00000,1,  100.0,   318.000,     0.000,   1,1.0000
+   102,'1 ',   70.000,    -3.247,   100.000,  -100.000,1.02000,     0,   100.000, 0.00000E+0, 2.500E-1, 0.00000E+0, 0.00000E+0,1.00000,1,  100.0,   318.000,     0.000,   1,1.0000
+ 0 /End of Generator data, Begin Branch data
+   101,   102,'1 ', 1.00000E-2, 1.20000E-1,   0.00000,  250.00,  250.00,  250.00,  0.00000,  0.00000,  0.00000,  0.00000,1,1,   0.00,   1,1.0000
+   101,   103,'1 ', 1.00000E-2, 1.20000E-1,   0.00000,  250.00,  250.00,  250.00,  0.00000,  0.00000,  0.00000,  0.00000,1,1,   0.00,   1,1.0000
+   102,   103,'1 ', 1.00000E-2, 1.20000E-1,   0.00000,  250.00,  250.00,  250.00,  0.00000,  0.00000,  0.00000,  0.00000,1,1,   0.00,   1,1.0000
+ 0 /End of Branch data, Begin Transformer data
+ 0 /End of Transformer data, Begin Area interchange data
+ 0 /End of Area interchange data, Begin Two-terminal dc line data
+ 0 /End of Two-terminal dc line data, Begin VSC dc line data
+ 0 /End of VSC dc line data, Begin Impedance correction table data
+ 0 /End of Impedance correction table data, Begin Multi-terminal dc line data
+ 0 /End of Multi-terminal dc line data, Begin Multi-section line data
+ 0 /End of Multi-section line data, Begin Zone data
+ 0 /End of Zone data, Begin Inter-area transfer data
+ 0 /End of Inter-area transfer data, Begin Owner data
+ 0 /End of Owner data, Begin FACTS device data
+ 0 /End of FACTS device data, Begin Switched shunt data
+ 0 /End of Switched shunt data, Begin GNE device data
+ 0 /End of GNE device data, Begin Induction machine data
+ 0 /End of Induction machine data
+Q

test/benchmarks/psse/WPIDHY/ThreeBus_WPIDHY.dyr

@@ -0,0 +1,10 @@
+    101 'GENCLS' 1     0.0000       0.0000      /
+    102 'GENROU' 1     8.0000      0.30000E-01  0.40000      0.50000E-01
+          6.1750      0.50000E-01   1.8000       1.7000      0.30000
+         0.55000      0.25000      0.20000       0.0000       1.0000      /
+    102 'SEXS' 1    0.4    5.0      20.0     1.0     -50.0       50.0 /
+    102 'WPIDHY'   1    0.10000E-01  -0.50000E-01   3.0000      0.50000
+          3.0000      0.20000E-01  0.10000E-01  0.25000E-01 -0.25000E-01
+          1.0000      0.20000       3.2500       52001.       0.0000
+          0.0000      0.12000      0.54500      0.40000      0.82700
+         0.83000       1.0000       /

test/results/results_eigenvalues.jl

@@ -983,3 +983,21 @@ test59_eigvals = [
     -0.36823401395037775 - 0.5649228138733879im
     -0.36823401395037775 + 0.5649228138733879im
 ]
+
+test60_eigvals = [
+    -106.13231871102334 + 0.0im
+    -91.13024819676329 + 0.0im
+    -63.8688081304463 + 0.0im
+    -40.03565106938418 + 0.0im
+    -38.75323547447537 - 8.125818822049656im
+    -38.75323547447537 + 8.125818822049656im
+    -6.104826779980879 + 0.0im
+    -1.395127240875047 - 5.966607970662552im
+    -1.395127240875047 + 5.966607970662552im
+    -0.9449531063097173 + 0.0im
+    -0.48179149983179287 + 0.0im
+    -0.1941504953444676 - 0.18213498194497163im
+    -0.1941504953444676 + 0.18213498194497163im
+    -0.03057660237077197 - 0.30118043163774183im
+    -0.03057660237077197 + 0.30118043163774183im
+]

test/results/results_initial_conditions.jl

@@ -1806,3 +1806,33 @@ test59_x0_init = Dict(
         2.153115531256307
     ],
 )
+
+test60_x0_init = Dict(
+    "V_R" => [
+        1.05
+        1.0197944718502572
+        0.9923907751848658
+    ],
+    "V_I" => [
+        0.0
+        -0.020475233421259967
+        -0.1243212484458825
+    ],
+    "generator-102-1" => [
+        0.7538967192769663
+        0.5555487379562241
+        0.7042452148052648
+        0.7246287886385532
+        0.9158416020737494
+        1.0
+        1.4986692863524897
+        0.044960078577949814
+        0.0
+        3.871458709170383e-12
+        3.871569731472846e-12
+        0.0
+        3.871569731472846e-12
+        0.7417441860465115
+        2.099999999999999
+    ],
+)