function highPass import Modelica.Constants.pi; extends Modelica.Icons.Function; input Real cr_in[:] "Coefficients of real poles"; input Real c0_in[:] "Coefficients of s^0 term if conjugate complex pole"; input Real c1_in[size(c0_in, 1)] "Coefficients of s^1 term if conjugate complex pole"; input SI.Frequency f_cut "Cut-off frequency"; output Real cr[size(cr_in, 1)] "Coefficient of real pole"; output Real c0[size(c0_in, 1)] "Coefficients of s^0 term if conjugate complex pole"; output Real c1[size(c0_in, 1)] "Coefficients of s^1 term if conjugate complex pole"; end highPass;