Calculates transformer base-resistance and -inductance depending on the choice of units (first index: primary, secondary, second index: R, L).
The secondary side is winding-reduced to the primary, as the equations are written in reduced form.
"pu":
RL_base = [V_nom[1]^2/S_nom ] * [1, 1/omega_nom] [(V_nom[2]^2/S_nom)/W_nom^2]"SI":
RL_base[k] = [1 ] * [1, 1/omega_nom] [1/W_nom^2]
The winding ratio W_nom is given by the nominal voltages:
W_nom = V_nom[2]/V_nom[1]
function baseTrafoRL extends Modelica.Icons.Function; input Boolean puUnits "= true if pu else SI units"; input SI.Voltage[:] V_nom "nom voltage {prim, sec} or {prim, sec1, sec2}"; input SI.ApparentPower S_nom "apparent power"; input SI.AngularFrequency omega_nom "angular frequency"; output Real[size(V_nom, 1), 2] RL_base "base [prim res, prim ind; sec res, sec ind] or [prim res, prim ind; sec1 res, sec1 ind; sec2 res, sec2 ind]"; end baseTrafoRL;