Wavelet

Development Platform:

Matlab

wnoise.m：Code Content

							% WNOISE丂 嶨壒傪娷傫偩僂僃乕僽儗僢僩僥僗僩僨乕僞傪嶌惉
% X = WNOISE(FUN,N) 偼丄[0,1] 偺斖埻偺 2^N 僒儞僾儖忋偱丄FUN 偵傛傞僥僗僩娭悢偺
% 抣傪弌椡偟傑偡丅
%
% [X,XN] = WNOISE(FUN,N,SNRAT) 偼丄忋弎偺傛偆偵僥僗僩儀僋僩儖 X 傪弌椡偟丄昗弨曃
% 嵎 std(x) = SNRAT 偲側傞傛偆偵嵞僗働乕儕儞僌偟傑偡丅弌椡偝傟偨儀僋僩儖 XN 偼丄
% 儀僋僩儖偺抣 X 偵丄壛嶼揑側僈僂僗敀怓嶨壒 N(0,1) 偑廳偹傜傟偨傕偺偱偡丅XN 偼丄
% 怣崋偲嶨壒偺斾偑 SNRAT 偱偡丅
%
% [X,XN] = WNOISE(FUN,N,SNRAT,INIT) 偼丄儀僋僩儖 X 偲 XN 傪弌椡偟傑偡偑丄惗惉偺
% 偨傔偺棎悢僔乕僪偲偟偰 INIT 偑梡偄傜傟傑偡丅
%
% 偮偓偺6屄偺娭悢偑丄Donoho 偲 Johnstone 偵傛傝"Adapting to unknown smoothness 
% via wavelet shrinkage"  Preprint Stanford丄january 93丄p 27-28.偵偍偄偰徯夘偝
% 傟偰偄傑偡丅
%   FUN = 1 傑偨偼 FUN = 'blocks'     
%   FUN = 2 傑偨偼 FUN = 'bumps'      
%   FUN = 3 傑偨偼 FUN = 'heavy sine'   
%   FUN = 4 傑偨偼 FUN = 'doppler'   
%   FUN = 5 傑偨偼 FUN = 'quadchirp'   
%   FUN = 6 傑偨偼 FUN = 'mishmash'     
% 
%   Copyright 1995-2002 The MathWorks, Inc.

						