function WMTHRESH, y
;+
;NAME:
;	WMTHRESH 
;
;PURPOSE:
;	To Perform Minimax Thresholding. 
;
;CATEGORY:
;	Wavelets.
;
;CALLING SEQUENCE:
;	x = WMTHRESH(y) 
;
;INPUTS:
; y =  signal upon which to perform thresholding
;
;OUTPUTS:
; x =  result 
;
;
;EXAMPLE:
;
;SEE ALSO: 
;      wdoshrnk
;
;NOTES:
; See article ``Ideal Spatial Adaptation via Wavelet Shrinkage'' 
;   By D.L. Donoho and I.M. Johnstone 
;
;
;MODIFICATION HISTORY:
; 	Written by:	Amara Graps		December, 1994
;Translated from MatLab Wavelab routine: minmaxthresh.m
;-

lamlist = [0,0,0,0,0,1.27,1.47,1.67,1.86,2.05,2.23,2.41,2.6,2.77,2.95,3.13] 

n = WDYADLNG(y,j) 

lam = lamlist(j-1)  
x = WHARDTHR(y,lam) 
     
;    
; Algorithm Source:  WaveLab Version 0.600
; WaveLab WWW site: http://playfair.stanford.edu/ 
; WaveLab Questions? e-mail wavelab@playfair.stanford.edu
;    
     
 
RETURN, x  
END  
;***************************************************