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

波变换

开发平台:

Matlab

  1. function varargout = dguicf2d(varargin)
  2. %DGUICF2D Demonstrates 2-D wavelet coefficients selection 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 dguicf2d', 
  6. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 03-Jul-99.
  7. %   Last Revision: 03-Feb-2003.
  8. %   Copyright 1995-2004 The MathWorks, Inc.
  9. %   $Revision: 1.7.4.2 $  $Date: 2004/03/15 22:37:05 $
  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: Coefficients 2-D selection';
  18.   showType = 'command';
  19.   varargout = {figName,showType};
  20.   
  21.   case 'slidePROC_Init'
  22.   figHandle = varargin{2};
  23.   localPARAM = wtbxappdata('get',figHandle,'localPARAM');
  24.   if ~isempty(localPARAM)
  25.   active_fig = localPARAM{1};
  26.   delete(active_fig);
  27.   wtbxappdata('del',figHandle,'localPARAM');
  28.   end
  29.   case 'slidePROC'
  30.   [figHandle,idxSlide]  = deal(varargin{2:end});
  31.   localPARAM = wtbxappdata('get',figHandle,'localPARAM');
  32.   if isempty(localPARAM)
  33.   active_fig = cf2dtool;
  34.   wenamngr('Inactive',active_fig);
  35.   localPARAM = {active_fig};
  36.   wtbxappdata('set',figHandle,'localPARAM',localPARAM);
  37.   wshowdrv('#modify_cbClose',figHandle,active_fig,'cf2dtool');
  38.   else
  39.   active_fig = deal(localPARAM{:});
  40.   end
  41.   numDEM = idxSlide-1;
  42.   demoSET = {...
  43.   'noiswom' , 'haar'   , 3, {'Global'}  ; ...
  44.   'noiswom' , 'haar'   , 3, {'Stepwise',[144,100,3144]};  ...
  45.   'detfingr', 'sym4'   , 3, {'Global'}  ; ...
  46.   'detfingr', 'sym4'   , 3, {'Stepwise',[1849,200,6149]}; ...
  47.   'facets'  , 'bior6.8', 5, {'Global'}  ; ...
  48.   'facets'  , 'bior6.8', 5, {'Stepwise',[576,200,4076]}  ...
  49.   };
  50.   nbDEM = size(demoSET,1);
  51.   if ismember(numDEM,[1:nbDEM])
  52.   paramDEM = demoSET(numDEM,:);
  53.   cf2dtool('demo',active_fig,paramDEM{:});
  54.   wenamngr('Inactive',active_fig);
  55.   end
  56. end
  57. return
  58. end
  59. if nargout<1,
  60.   wshowdrv(mfilename)
  61. else
  62.   idx = 0; slide(1).code = {}; slide(1).text = {};
  63.   
  64.   %========== Slide 1 ==========
  65.   idx = idx+1;
  66.   slide(idx).code = {
  67.   'figHandle = gcf;',
  68.   [mfilename ,'(''slidePROC_Init'',figHandle);'],
  69.   '' };
  70.   
  71.   %========== Slide 2 to 7 ==========
  72.   for idx = 2:7
  73.   slide(idx).code = {
  74.   [mfilename ,'(''slidePROC'',figHandle,', int2str(idx), ');']
  75.   };
  76.   end
  77.   
  78.   varargout{1} = slide;
  79.   
  80. end