design_iir_bandpass_cmsis_elliptical.m

% @author Matteo Scordino
% @date 2018-08-04
% @version 1.0.0
% 
% @brief M file to design a bandpass Elliptical filter and get the coefficients for CMSIS DSP
% 
 
function design_iir_bandpass_cmsis_elliptical (requested_order, ripple, att, f1, f2, fs, plot_results)
% it's a bandpass filter, so if we want a 4th order, we need to compute a
% 2nd order (because it's actually 2 filters in one, so the final order will be double)
order = requested_order/2;
% Nyquist frequency, for convenience
fNyquist=fs/2;
% design filter in zeros, poles, gain format
[z,p,k] = ellip(order,ripple,att,[f1 f2]/fNyquist);
% convert it to the second order sections (used for biquads) format
[sos] = zp2sos(z,p,k);

% compute biquad coefficients
coeffs = sos(:,[1 2 3 5 6]);
% negate a1 and a2 coeffs (CMSIS expects them negated)
coeffs(:,4) = -coeffs(:,4);
coeffs(:,5) = -coeffs(:,5);

% make a linear array of it
coeffs = coeffs';
coeffs = coeffs(:);

if (plot_results == true)
	%plot the frequency response, just for human reference
	% (we need to redesign the filter in b,a format)
	[b,a] = butter(order,f1/fNyquist, 'bandpass');
	[h, w] = freqz (b,a);
	figure(1)
	plot (w./pi, 20*log10 (abs (h)), ";;")
	xlabel ("Frequency");
	ylabel ("abs(H[w])[dB]");
	axis ([0, 1, -40, 0]);
	hold ("on");
	x=ones (1, length (h));
	hold ("off");

	% plot the filtered result of 3 sample sines
	data=[[1;zeros(fs-1,1)],[ones(fs,1)],sinetone(f1/2,fs,1,1),sinetone((f1+f2)/2,fs,1,1),sinetone(f2*2,fs,1,1)];
	filtered = filter(b,a,data);
	figure(2)
	clf
	subplot ( columns ( filtered ), 1, 1)
	plot(filtered(:,1),";Impulse response;")	
	subplot ( columns ( filtered ), 1, 2)
	plot(filtered(:,2),";DC response;")
	subplot ( columns ( filtered ), 1, 3 )
	plot(filtered(:,3),";f1/2 Hz response;")
	subplot ( columns ( filtered ), 1, 4 )
	plot(filtered(:,4),";center band response;")
	subplot ( columns ( filtered ), 1, 5 )
	plot(filtered(:,5),";f2*2 response;")
endif

% print the coefficients as expected by CMSIS
coeffs
endfunction