expint.m

可用于对信号的频谱进行分析,希望站长能整理好,以便大家互相学习

% EXPINT   巜悢愊暘娭悢
% 
%  Y = EXPINT(X) 偼丄X 偺奺梫慺偵懳偡傞巜悢愊暘娭悢偱偡丅
%  巜悢愊暘偼丄偮偓偺傛偆偵掕媊偝傟傑偡丅
%
%  EXPINT(x) =  x > 0 偵偮偄偰丄(exp(-t)/t) dt偺X偐傜Inf傑偱偺愊暘
%  
%  夝愅揑楢懕惈偺偨傔丄EXPINT 偼丄晧偺幚悢幉偲岎嵎偡傞暋慺暯柺忋偺堦壙
%  娭悢偱偡丅
%
%  巜悢愊暘娭悢偺傕偆1偮偺堦斒揑側掕媊偼丄惓偺 X 偵懳偟偰丄-Inf偐傜 X 
%  傑偱偺 (exp(t)/t)dt偺Cauchy偺庡抣愊暘偱偡丅
%  偙傟偼丄Ei(x) 偲昞傢偝傟傑偡丅
%  EXPINT(x) 偲 Ei(x) 偺娭學偼丄偮偓偺傛偆偵側傝傑偡丅
%
%  0傛傝戝偒偄幚悢偺 x 偵懳偟偰丄EXPINT(-x+i*0) = -Ei(x) - i*pi
%  0傛傝戝偒偄幚悢偺 x 偵懳偟偰丄Ei(x) = REAL(-EXPINT(-x))


%   D. L. Chen 9-29-92, CBM 6-28-94.
%   Copyright 1984-2004 The MathWorks, Inc.