cplxcomp.m

matlab在电子信息中的应用和实例中的源代码

%《MATLAB及在电子信息课程中的应用》辅助程序
% 比较两个包含同样标量元素但(可能)有不同下标的复数对
% 电子工业出版社出版  陈怀琛 吴大正 高西全合著 2001年10月初版，2003年7月第二版
%
function I = cplxcomp(p1,p2)
%  I = cplxcomp(p1,p2)
%  比较两个包含同样标量元素但(可能)有不同下标的复数对.
%  本程序必须用在CPLXPAIR 语句:
%      p2 = cplxpair(p1)
%  之后,以便重新确定频率极点向量及其相应的留数向量.
%
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';