function [b,a] = par2dir(C,B,A);
% 并聯(lián)型到直接型的轉(zhuǎn)換
% ----------------------------------
% [b,a] = par2dir(C,B,A)
%  b = 直接型的分子多項(xiàng)式系數(shù)
%  a = 直接型的分母多項(xiàng)式系數(shù)
%  C = 并行型的多項(xiàng)式部分
%  B = 包含各bk的K乘2維實(shí)系數(shù)矩陣
%  A = 包含各ak的K乘3維實(shí)系數(shù)矩陣
%
[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(:)';