www.gusucode.com > wavelet工具箱matlab源码程序 > wavelet/wavelet/cwtftinfo2.m
function varargout = cwtftinfo2(ARG) %CWTFTINFO2 Information on wavelets for CWTFT2 % CWTFTINFO2 provides information on the available wavelets % for 2-D Continuous Wavelet Transform using FFT. % The wavelets are defined by their Fourier transform. % % The formulae giving the Fourier transform of % the wavelet which short name (see below) is SNAME % will be displayed using CWTFTINFO2(SNAME). % % The table below gives the short name of each wavelet % and the associated parameters: first, the name of parameter % and then the default value. % % WAV_Param_Table = {... % 'morl' , % defaults: omega0 = 6; sigma = 1; epsilon = 1; % 'mexh' , % defaults: p = 2; sigmax = 1; sigmay = 1; % 'paul' , % defaults: p = 4; % 'dog' , % defaults: alpha = 2; % 'cauchy' , % defaults: alpha = pi/6; sigma = 1; L = 4; M = 4; % 'escauchy' , % defaults: alpha = pi/6; sigma = 1; L = 4; M = 4; % 'gaus' , % defaults: p = 1; sigmax = 1; sigmay = 1; % 'wheel' , % defaults: sigma = 2; % 'fan' , % defaults: omega0 = 5.336; sigma = 1; epsilon = 1; J = 6.5; % 'pethat' , % defaults: No parameters. % 'dogpow' , % defaults: alpha = 1.25; p = 2; % 'esmorl' , % defaults: omega0 = 6; sigma = 1; epsilon = 1; % 'esmexh' % defaults: sigma = 1; epsilon = 0.5; % 'gaus2' , % defaults: p = 1; sigmax = 1; sigmay = 1; % 'gaus3' , % defaults: A = 1; B = 1; p = 1; sigmax = 1; sigmay = 1; % 'isodog' , % defaults: alpha = 1.25; % 'dog2' , % defaults = alpha = 1.25; % 'isomorl' , % defaults: omega0 = 6; sigma = 1; % 'rmorl' , % defaults: omega0 = 6; sigma = 1; epsilon = 1; % 'endstop1' , % defaults: omega0 = 6; % 'endstop2' , % defaults: omega0 = 6; sigma = 1; % 'gabmexh' , % defaults: omega0 = 5.336; epsilon = 1; % 'sinc' , % defaults: Ax = 1; Ay = 1; p = 1; omega0X= 0; Omega0Y = 0; % }; % % The various wavelets may be grouped in families as follow: % MORLET: 'morl' , 'esmorl' , 'rmorl' , 'isomorl' % DOG: 'dog' , 'isodog' , 'dog2' , 'dogpow' % GAUSS: 'mexh' , 'gaus' , 'gaus2' , 'gaus3' , 'esmexh' % PAUL: 'paul' % CAUCHY: 'cauchy' , 'escauchy' % WHEEL: 'wheel', 'pethat' % MISCELLANEOUS : 'endstop1' , 'endstop2' , 'gabmexh' , 'sinc' , 'fan' % % REFERENCES % Two-Dimensional Wavelets and their Relatives % J.-P. Antoine, R. Murenzi, P. Vandergheynst andS. Twareque Ali % Cambridge University Press - 2004 % % Two-dimensional wavelet transform profilometry % Fringe Pattern Analysis Using Wavelet % Liverpool John Moores University % http://www.ljmu.ac.uk % % See also CWTFT2 % M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 04-Jan-2013. % Last Revision: 10-Jun-2013. % Copyright 1995-2013 The MathWorks, Inc. % $Revision: 1.1.6.4 $ $Date: 2013/07/05 04:29:42 $ if nargin<1 help cwtftinfo2 else try fig_EQ = show_EQUA(ARG); if nargout>0 , varargout{1} = fig_EQ; end catch ME %#ok<NASGU> error(getWavMSG('Wavelet:FunctionArgVal:Invalid_ArgNamVar',ARG)); end end %-------------------------------------------------------------------------- function fig_EQ = show_EQUA(ARG) Lst_WAV = {... 'morl','mexh','paul','dog' ,'cauchy','gaus', ... 'wheel','fan','pethat','dogpow','esmorl','esmexh', ... 'escauchy','gaus2','gaus3','isodog','dog2','isomorl', ... 'rmorl','endstop1','endstop2','gabmexh','sinc' ... }; if isequal(ARG,'popCB') idx_WAV = get(gcbo,'Value'); else idx_WAV = find(strcmpi(ARG,Lst_WAV)); end if ~ismember(idx_WAV,1:23) ; return; end imgName = [Lst_WAV{idx_WAV} '.png']; X = imread(imgName); fig_EQ = wfindobj(0,'type','figure','Tag','Info_EQUA'); if isempty(fig_EQ) posEQ = [0.11 0.26 0.60 0.57]; fig_EQ = figure('Visible','Off','Units','normalized',... 'Position',posEQ,'Menubar','None','NumberTitle','Off', ... 'Color','w','Tag','Info_EQUA','Colormap',copper(255)); axes('Units','Normalized','Position',[0.075 0.075 0.85 0.85], ... 'NextPlot','Replace','Tag','axes_EQ','Visible','Off'); uicontrol('Style','PopupMenu','String',Lst_WAV, ... 'Position',[20 10 100 20],'Value',idx_WAV, ... 'Tag','Pop_EQ_Names','Callback',[mfilename '(''popCB'')'], ... 'Parent',fig_EQ); end axe_EQ = wfindobj(fig_EQ,'type','axes'); Pop_EQ = wfindobj(fig_EQ,'style','PopupMenu'); set(Pop_EQ,'Value',idx_WAV); image(X,'Visible','On','Parent',axe_EQ); axis(axe_EQ,'image'); set(axe_EQ,'Xtick',[],'Ytick',[]) [~, imgName] = fileparts(imgName); title(imgName,'Parent',axe_EQ,'FontSize',36, ... 'FontWeight','Bold','Color',[0 90 255]/255) set(fig_EQ,'Visible','On') %--------------------------------------------------------------------------