See also analog circuit on 'Diagram layer' of 'CoefSynchron' and 'CoefAsynchron'!
function z_fromEqCirc extends Modelica.Icons.Function; input Integer n "transient order"; input SIpu.Reactance x(unit = "1") "total or syn reactance"; input SIpu.Reactance xsig_s(unit = "1") "leakage reactance stator"; input SIpu.Resistance r_s(unit = "1") "resistance stator"; input SIpu.Reactance[n - 1] xm2_n(each unit = "1") "coupling reactance"; input SIpu.Reactance[n] xsig_r(each unit = "1") "leakage reactance rotor"; input SIpu.Resistance[n] r_r(each unit = "1") "resistance rotor"; output SIpu.Resistance[n + 1] zr(each unit = "1") "impedance matrix resistive"; output SIpu.Reactance[n + 1, n + 1] zx(each unit = "1") "impedance matrix reactive"; end z_fromEqCirc;