function [b,a] = cas2dir(b0,B,A);
% 級聯型到直接型的型式轉換
% ---------------------------------
% [b,a] = cas2dir(b0,B,A)
%  b = 直接型的分子多項式系數
%  a = 直接型的分母多項式系數
% b0 = 增益系數
%  B = 包含各bk的K乘3維實系數矩陣
%  A = 包含各ak的K乘3維實系數矩陣
%
[K,L] = size(B);
b = [1];
a = [1];
for i=1:1:K
	b=conv(b,B(i,:));
	a=conv(a,A(i,:));
end
b = b*b0;