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;