%%%%%%%%全相位頻譜分析子程序
function?y=apFFT（xN）
%?if?length（x）~=（2*N-1）
%?????error（‘length?error!‘）
%?end
win1=hann（N）‘;win2=hann（N）‘;
%?win2=win1;
win=conv（win1win2）;?win=win/sum（win）;
s=x（1:2*N-1）.*win;
x1=zeros（1N）;?x2=zeros（1N-1）;
??for?k=1:N-1
??????x2（k）=s（k）+s（k+N）;
??end
x1=[s（N）?x2];
y=fft（x1）;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%全相位頻譜分析子程序結(jié)束

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????文件?????????400??2012-11-23?11:10??全相位fft\apFFT.m
?????文件??????313614??2011-03-25?14:42??全相位fft\全相位數(shù)字濾波.pdf
?????目錄???????????0??2012-11-26?12:53??全相位fft\