Algorithm not implemented
function T_closed extends Modelica.Icons.Function; input SIpu.Reactance x(unit = "1") "total or syn reactance"; input SIpu.Reactance[:] xtr(each unit = "1") "transient reactance"; input SI.Angle[size(xtr, 1)] To "time constant open-loop"; output SI.Angle[size(xtr, 1)] Tc "time constant closed-loop"; end T_closed;