idealwavdenoise.m

去噪工具包

function [out,wcoef,wcoefrest]=IdealWavDenoise(Orig,Noisy,L,qmf,sigma)
%  IdealWavDenoise -- Simulation of an Ideal Thresholding Applied to
%   Wavelet Coefficients.
%  Usage 
%    [out,wcoef,wcoefrest] = IdealWavDenoise(Orig,Noisy,L,qmf,sigma)
%  Inputs
%    Orig 	1-d original Signal (length= 2^J).
%    Noisy 	1-d noisy signal. 
%    L      	Low-Frequency cutoff for shrinkage (e.g. L=4)
%               Should have L << J!
%    qmf    Quadrature Mirror Filter for Wavelet Transform
%               Optional, Default = Symmlet 8.
%    sigma  Standard deviation of additive Gaussian White Noise.
%  Outputs 
%    out     	estimate, obtained by applying hard thresholding on
%          	 wavelet coefficients
%    wcoef		Wavelet Transform of input signal	
%    wcoefrest    	Wavelet Transform of estimate
%

  n=length(Orig) ;
  wcoef = FWT_PO(Orig,L,qmf) ;
  wcoefrest=FWT_PO(Noisy,L,qmf) ;
  wcoefrest = wcoefrest .* (abs(wcoef) > sigma);
  out    = IWT_PO(wcoefrest,L,qmf);
  
% Written by Maureen Clerc and Jerome Kalifa, 1997
% [e-mail], [e-mail]
    
    
%   
% Part of WaveLab Version 802
% Built Sunday, October 3, 1999 8:52:27 AM
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%