function [b,a] = par2dir(C,B,A);
% 并聯型到直接型的轉換
% ----------------------------------
% [b,a] = par2dir(C,B,A)
%  b = 直接型的分子多項式系數
%  a = 直接型的分母多項式系數
%  C = 并行型的多項式部分
%  B = 包含各bk的K乘2維實系數矩陣
%  A = 包含各ak的K乘3維實系數矩陣
%
[K,L] = size(A); R = []; P = [];

for i=1:1:K
	[r,p,k]=residuez(B(i,:),A(i,:));
	R = [R;r]; P = [P;p];
end
[b,a] = residuez(R,P,C);
b = b(:)'; a = a(:)';