function [y]=latcfiltm(K,x);
%y=輸出序列
%K=格型結構濾波器的系數矩陣
%x=輸入序列
Nx=length(x)-1;
M=length(K)-1;K=K(2:M+1);
fg=[x;[0 x(1:Nx)]];
for m=1:M
   fg=[1,K(m);K(m),1]*fg;
   fg(2,:)=[0 fg(2,1:Nx)];
end
y=fg(1,:);