ovrlpsav.asv

来自「数字信号处理的比较全面的程序代码」· ASV 代码 · 共 19 行

function [y]=hsolpsav(x,h,N)
%[y]=hsolpsav(x,h,N)
%-------------------
%
N=2^(ceil(log10(N)/log10(2));
Lenx=length(x);
M=length(h);
M1=M-1;L=N-M1;
h=fft(h,N);
x=[zeros(1,M1),x,zeros(1,N-1)];
K=floor((Lenx+M1-1)/L);
Y=zeros(K+1,N);
for k=0:K
   xk=fft(x(k*L+1:k*L+N));
   Y(k+1,:)=real(ifft(xk.*h));
end
Y=Y(:,M:N)';
y=(Y(:))';