dguiwvdi.m
上传用户:haiyisale
上传日期:2013-01-09
资源大小:3246k
文件大小:2k
源码类别:

波变换

开发平台:

Matlab

  1. function varargout = dguiwvdi(varargin)
  2. %DGUIWVDI Demonstrates wavelet display GUI tools in the Wavelet Toolbox. 
  3. %
  4. % This is a slideshow file for use with wshowdrv.m
  5. % To see it run, type 'wshowdrv dguiwvdi', 
  6. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 12-Mar-96.
  7. %   Last Revision: 03-Feb-2003.
  8. %   Copyright 1995-2004 The MathWorks, Inc.
  9. % $Revision: 1.12.4.2 $
  10. % Initialization and Local functions if necessary.
  11. if nargin>0
  12. action = varargin{1};
  13. switch action
  14.   case 'auto'    , wshowdrv('#autoMode',mfilename,'close');
  15.   case 'gr_auto' , wshowdrv('#gr_autoMode',mfilename,'close');
  16.   case 'getFigParam'
  17.   figName  = 'Wavelet GUI Demo: Wavelet Display';
  18.   showType = 'command';
  19.   varargout = {figName,showType};
  20.   case 'slidePROC_Init'
  21.   figHandle = varargin{2};
  22.   localPARAM = wtbxappdata('get',figHandle,'localPARAM');
  23.   if ~isempty(localPARAM)
  24.   active_fig = localPARAM{1};
  25.   delete(active_fig);
  26.   wtbxappdata('del',figHandle,'localPARAM');
  27.   end
  28.   case 'slidePROC'
  29.   [figHandle,idxSlide]  = deal(varargin{2:end});
  30.   localPARAM = wtbxappdata('get',figHandle,'localPARAM');
  31.   if isempty(localPARAM)
  32.   active_fig = wvdtool;
  33.   wenamngr('Inactive',active_fig);
  34.   localPARAM = {active_fig};
  35.   wtbxappdata('set',figHandle,'localPARAM',localPARAM);
  36.   wshowdrv('#modify_cbClose',figHandle,active_fig,'wvdtool');
  37.   else
  38.   active_fig = deal(localPARAM{:});
  39.   end
  40.   numDEM = idxSlide-1;
  41.   active_fig = deal(localPARAM{:});
  42.   switch numDEM
  43.   case 1 , paramDEM = 'db4';
  44.   case 2 , paramDEM = 'bior4.4';
  45.   case 3 , paramDEM = 'meyr';
  46.   case 4 , paramDEM = 'mexh';
  47.   case 5 , paramDEM = 'cmor1-1';
  48.   end
  49.   wvdtool('demo',active_fig,paramDEM);
  50.   wenamngr('Inactive',active_fig);
  51. end
  52. return
  53. end
  54. if nargout<1,
  55.   wshowdrv(mfilename)
  56. else
  57.   idx = 0; slide(1).code = {}; slide(1).text = {};
  58.   
  59.   %========== Slide 1 ==========
  60.   idx = idx+1;
  61.   slide(idx).code = {
  62.   'figHandle = gcf;',
  63.   [mfilename ,'(''slidePROC_Init'',figHandle);'],
  64.   '' };
  65.   
  66.   %========== Slide 2:6 ==========
  67.   for idx = 2:6
  68.   slide(idx).code = {
  69.   [mfilename ,'(''slidePROC'',figHandle,', int2str(idx), ');']
  70.   };
  71.   end
  72.   
  73.   varargout{1} = slide;
  74.   
  75. end