function?[CBA]=tf2par（ba）
%直接型向并聯型轉換
M=length（b）;N=length（a）;
[r1p1C]=residuez（ba）;%先求系統的單根p1對應的留數r1及直接項C
p=cplxpair（p10.000000001）;%先配對函數cplxpair由p1找共軛復根p，le-9的誤差
I=cplxcomp（p1p）;%找p1變為p的排序變化
r=r1（I）;
%變為2階子系統
K=floor（N/2）;B=zeros（K2）;A=zeros（K3）;
if?K*2==N
????for?i=1:2:N-2
????????pi=p（i:i+1:）;%取出一對極點
????????ri=r（i:i+1:）;%取出一對對應留數
????????[BiAi]=residue