%《MATLAB在電子信息課程中的應用》輔助程序
% 比較兩個包含同樣標量元素但(可能)有不同下標的復數(shù)對
% 電子工業(yè)出版社出版  陳懷琛 吳大正 高西全合著  2001年10月

function I = cplxcomp(p1,p2)
%  I = cplxcomp(p1,p2)
%  比較兩個包含同樣標量元素但(可能)有不同下標的復數(shù)對.
%  本程序必須用在CPLXPAIR 語句:
%      p2 = cplxpair(p1)
%  之后,以便重新確定頻率極點向量及其相應的留數(shù)向量.
%
I=[];
for j=1:1:length(p2)
    for i=1:1:length(p1)
	if (abs(p1(i)-p2(j)) < 0.0001)
	   I=[I,i];
        end
    end
end
I=I';