function bandPass
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_min "Band of band pass filter is f_min (A=-3db) .. f_max (A=-3db)";
input SI.Frequency f_max "Upper band frequency";
output Real cr[0] "Coefficient of real pole";
output Real c0[size(cr_in, 1) + 2 * size(c0_in, 1)] "Coefficients of s^0 term if conjugate complex pole";
output Real c1[size(cr_in, 1) + 2 * size(c0_in, 1)] "Coefficients of s^1 term if conjugate complex pole";
output Real cn "Numerator coefficient of the PT2 terms";
end bandPass;