autotrunc.m

老外写的小波变换的工具箱

function s = AutoTrunc(y,sig)
% AutoTrunc -- Perform Truncation
%  Usage
%    s = AutoTrunc(y,sig)
%
v = fft(y) ./ sqrt(length(y));
n = length(y);
hv = v(1:(n/2));
sv = steintrunc(hv,sig);
vv = [sv 0 conj(sv((n/2):-1:2))];
s = sqrt(length(y)) .* real(ifft(vv));
    
    
 
 
%
%  Part of Wavelab Version 850
%  Built Tue Jan  3 13:20:41 EST 2006
%  This is Copyrighted Material
%  For Copying permissions see COPYING.m
%  Comments? e-mail [e-mail]