dguicw1d.m
上传用户:haiyisale
上传日期:2013-01-09
资源大小:3246k
文件大小:4k
- function varargout = dguicw1d(varargin)
- %DGUICW1D Demonstrates continuous 1-D wavelet GUI tools in the Wavelet Toolbox.
- %
- % This is a slideshow file for use with wshowdrv.m
- % To see it run, type 'wshowdrv dguicw1d',
- %
- % See also CWT.
- % M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 12-Mar-96.
- % Last Revision: 03-Feb-2003.
- % Copyright 1995-2004 The MathWorks, Inc.
- % $Revision: 1.14.4.2 $
- % Initialization and Local functions if necessary.
- if nargin>0
- action = varargin{1};
- switch action
- case 'auto' , wshowdrv('#autoMode',mfilename,'close');
- case 'gr_auto' , wshowdrv('#gr_autoMode',mfilename,'close');
- case 'getFigParam'
- figName = 'Wavelet GUI Demo: Continuous Wavelet Analysis';
- showType = 'command';
- varargout = {figName,showType};
-
- case 'slidePROC_Init'
- figHandle = varargin{2};
- localPARAM = wtbxappdata('get',figHandle,'localPARAM');
- if ~isempty(localPARAM)
- active_fig = localPARAM{1};
- delete(active_fig);
- wtbxappdata('del',figHandle,'localPARAM');
- end
-
- case 'slidePROC'
- [figHandle,idxSlide] = deal(varargin{2:end});
- idxPREV = wshowdrv('#get_idxSlide',figHandle);
- localPARAM = wtbxappdata('get',figHandle,'localPARAM');
- if isempty(localPARAM)
- active_fig = cw1dtool;
- cw1dmngr('demo',active_fig,'freqbrk','db1',1,1,32,1);
- wenamngr('Inactive',active_fig);
- handles = wfigmngr('getValue',active_fig,['CW1D_handles']);
- UIC = handles.hdl_UIC;
- pop_ccm = UIC.pop_ccm;
- pop_pal = cbcolmap('get',active_fig,'pop_pal');
- cba_ccm = get(pop_ccm,'Callback');
- cba_pal = get(pop_pal,'Callback');
- localPARAM = {active_fig,pop_ccm,pop_pal,cba_ccm,cba_pal};
- wtbxappdata('set',figHandle,'localPARAM',localPARAM);
- wshowdrv('#modify_cbClose',figHandle,active_fig,'cw1dtool');
- return
- else
- [active_fig,pop_ccm,pop_pal,cba_ccm,cba_pal] = deal(localPARAM{:});
- end
- switch idxSlide
- case 3
- if idxPREV<idxSlide
- wenamngr('Inactive',active_fig);
- map_val = get(pop_pal,'Value');
- if map_val~=1 , map_val = 1; else , map_val = 2; end
- str_col = get(pop_pal,'String');
- str_col = deblank(str_col(map_val,:));
- msg = strvcat(...
- ['To change the Colormap use the popupmenu at the ' ...
- 'bottom right of the window.'], ...
- [sprintf('We select the %s colormap', str_col)]...
- );
- wshowdrv('#gui_wait',figHandle,active_fig,msg);
- set(pop_pal,'value',map_val);
- eval(cba_pal);
- end
-
- case 4
- ccm_old = get(pop_ccm,'Value');
- if ccm_old~=1 , ccm_new = 1; else , ccm_new = 2; end
- str_ccm = get(pop_ccm,'String');
- str_ccm_old = deblank(str_ccm(ccm_old,:));
- str_ccm_new = deblank(str_ccm(ccm_new,:));
- msg = strvcat(...
- ['To change the Coloration Mode use the popupmenu in the ' ...
- 'middle of the window.'], ...
- [sprintf('The present mode is the (%s) mode. ', str_ccm_old )], ...
- [sprintf('We select the (%s) mode.', str_ccm_new)] ...
- );
- wshowdrv('#gui_wait',figHandle,active_fig,msg);
- set(pop_ccm,'value',ccm_new);
- eval(cba_ccm);
- case 5
- if idxPREV<idxSlide
- cw1dmngr('demo',active_fig,'quachirp','db1',1,1,64,1);
- wenamngr('Inactive',active_fig);
- map_val = get(pop_pal,'value');
- wtbxappdata('set',figHandle,'map_val',map_val);
- else
- set([pop_ccm;pop_pal],'Enable','Off');
- map_val = wtbxappdata('get',figHandle,'map_val');
- set(pop_pal,'value',map_val);
- eval(cba_pal);
- end
- case 6
- msg = 'We select the hot colormap';
- wshowdrv('#gui_wait',figHandle,active_fig,msg);
- set(pop_pal,'value',4);
- eval(cba_pal);
- set([pop_ccm;pop_pal],'Enable','On');
- end
- end
- return
- end
- if nargout<1,
- wshowdrv(mfilename)
- else
- idx = 0; slide(1).code = {}; slide(1).text = {};
-
- %========== Slide 1 ==========
- idx = idx+1;
- slide(idx).code = {
- 'figHandle = gcf;',
- [mfilename ,'(''slidePROC_Init'',figHandle);'],
- '' };
-
- %========== Slide 2 to Slide 6 ==========
- for idx = 2:6
- slide(idx).code = {[mfilename ,'(''slidePROC'',figHandle,',int2str(idx),');']};
- end
-
- varargout{1} = slide;
-
- end