function WMHYBRID, wc,L
;+
;NAME:
;	WMHYBRID
;
;PURPOSE:
;	To perform Shrinkage to Wavelet Coefficients via 
;	Adaptive Threshold Selection Using Principle of Stein's 
;	Unbiased Risk Estimate Variant without Rigorous Proof 
;
;CATEGORY:
;	Wavelets.
;
;CALLING SEQUENCE:
;	x = WMHYBRID(wc,L)
;
;INPUTS:
;   wc  =  Wavelet Transform of noisy sequence with N(0,1) noise 
;   L =    low-frequency cutoff for Wavelet Transform 
;
;OUTPUTS:
;   ws =   result of applying HybridThresh to each 
;         dyadic Block 
;
;EXAMPLE:
;
;SEE ALSO: 
;      whybrthr, wdoshrnk
;
;
;MODIFICATION HISTORY:
; 	Written by:	Amara Graps		December, 1994
;Translated from MatLab Wavelab routine: multihybrid.m
;-

n = WDYADLNG(wc,J) 
FOR  jj=(J-1), L, -1 DO BEGIN 
	wc(WDYAD(jj)-1) = WHYBRTHR(wc(WDYAD(jj)-1))  
END 
ws = wc 
 
;    
; Algorithm Source:  WaveLab Version 0.600
; WaveLab WWW site: http://playfair.stanford.edu/ 
; WaveLab Questions? e-mail wavelab@playfair.stanford.edu
;    
     
 
RETURN, ws  
END  
;***************************************************