波变换

开发平台：
Matlab

democmdm.m：源码内容
							function out1 = democmdm(option,in2,in3)
%DEMOCMDM Main command-line mode demos menu in the Wavelet Toolbox.
%   DEMOCMDM creates the window for command line mode demos.
%   DEMOCMDM('auto') shows all the command line mode demos
%   in automatic mode.
%
%   DEMOCMDM('gr_auto') shows all the command line mode demos
%   in automatic mode: first in the increasing slide order
%   and then in the decreasing slide order.
%
%   DEMOCMDM('loop') shows all the command line mode demos
%   in loop mode.
%   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 12-Mar-96.
%   Last Revision: 18-Apr-2001.
%   Copyright 1995-2002 The MathWorks, Inc.
%   $Revision: 1.17 $ $Date: 2002/04/14 19:31:07 $
if nargin==0 , option = 'create'; end
tag_dem_tool  = 'Demo_Tool';
tag_cmdm_tool = 'Cmdm_Tool';
tag_btn_close = 'Demo_Close';
tag_sub_close = 'Cmdm_Close';
switch option
    case 'create'
        win = wfindobj('figure','tag',tag_cmdm_tool);
        if ~isempty(win) , return; end
        % Waiting Frame construction & begin waiting.
        %--------------------------------------------
        mousefrm(0,'watch');
        % CMDM main window initialization.
        %---------------------------------
        name = 'Command line mode demos';
        [win_democmdm,pos_win,defBtnWidth,defBtnHeight,win_units] = ...
                wdfigutl('menu',name,[13/4 41/2],tag_cmdm_tool);
        if nargout>0 ,out1 = win_democmdm; end
        str_win_democmdm = int2str(win_democmdm);
        % Position property of objects.
        %------------------------------
        btn_width  = 3*defBtnWidth;
        btn_heigth = 3*defBtnHeight/2;
        btn_left   = ceil(pos_win(3)-btn_width)/2;
        btn_low    = pos_win(4)-2*defBtnHeight;
        dif_heigth = 2*defBtnHeight;
        pos_dw1d   = [btn_left , btn_low , btn_width , btn_heigth];
        btn_low    = btn_low-dif_heigth;
        pos_cw1d   = [btn_left , btn_low , btn_width , btn_heigth];
        btn_low    = btn_low-dif_heigth;
        pos_dw2d   = [btn_left , btn_low , btn_width , btn_heigth];
        btn_low    = btn_low-dif_heigth;
        pos_comp   = [btn_left , btn_low , btn_width , btn_heigth];
        btn_low    = btn_low-dif_heigth;
        pos_deno   = [btn_left , btn_low , btn_width , btn_heigth];
        btn_low    = btn_low-dif_heigth;
        pos_wpck   = [btn_left , btn_low , btn_width , btn_heigth];
        btn_low    = btn_low-dif_heigth;
        pos_mala   = [btn_left , btn_low , btn_width , btn_heigth];
        btn_low    = btn_low-dif_heigth;
        pos_casc   = [btn_left , btn_low , btn_width , btn_heigth];
        btn_low    = btn_low-dif_heigth;
        pos_extm   = [btn_left , btn_low , btn_width , btn_heigth];
        btn_low    = btn_low-dif_heigth;
        pos_close  = [btn_left , btn_low , btn_width , btn_heigth];
        % String property of objects.
        %----------------------------
        str_dw1d   = 'Wavelet 1-D';
        str_cw1d   = 'Continuous Wavelet 1-D';
        str_dw2d   = 'Wavelet 2-D';
        str_comp   = 'Compression';
        str_deno   = 'De-noising';
        str_wpck   = 'Wavelet Packets';
        str_mala   = 'Mallat algorithm';
        str_casc   = 'Cascade algorithm';
        str_extm   = 'Border distortion';
        str_close  = 'Close';
        % Callback property of objects.
        %------------------------------
        cba_dw1d  = [mfilename '(''dw1d'',' str_win_democmdm ');'];
        cba_cw1d  = [mfilename '(''cw1d'',' str_win_democmdm ');'];
        cba_dw2d  = [mfilename '(''dw2d'',' str_win_democmdm ');'];
        cba_comp  = [mfilename '(''comp'',' str_win_democmdm ');'];
        cba_deno  = [mfilename '(''deno'',' str_win_democmdm ');'];
        cba_wpck  = [mfilename '(''wpck'',' str_win_democmdm ');'];
        cba_mala  = [mfilename '(''mala'',' str_win_democmdm ');'];
        cba_casc  = [mfilename '(''casc'',' str_win_democmdm ');'];
        cba_extm  = [mfilename '(''extm'',' str_win_democmdm ');'];
        cba_close = [mfilename '(''close'',' str_win_democmdm ');'];
        % Construction of objects.
        %-------------------------
        pus_dw1d   = uicontrol(...
                                   'Style','Pushbutton',...
                                   'Unit',win_units,...
                                   'Position',pos_dw1d,...
                                   'String',str_dw1d,...
                                   'Callback',cba_dw1d...
                                   );
        pus_cw1d   = uicontrol(...
                                   'Style','Pushbutton',...
                                   'Unit',win_units,...
                                   'Position',pos_cw1d,...
                                   'String',str_cw1d,...
                                   'Callback',cba_cw1d...
                                   );
        pus_dw2d   = uicontrol(...
                                   'Style','Pushbutton',...
                                   'Unit',win_units,...
                                   'Position',pos_dw2d,...
                                   'String',str_dw2d,...
                                   'Callback',cba_dw2d...
                                   );
        pus_comp   = uicontrol(...
                                   'Style','Pushbutton',...
                                   'Unit',win_units,...
                                   'Position',pos_comp,...
                                   'String',str_comp,...
                                   'Callback',cba_comp...
                                   );
        pus_deno   = uicontrol(...
                                   'Style','Pushbutton',...
                                   'Unit',win_units,...
                                   'Position',pos_deno,...
                                   'String',str_deno,...
                                   'Callback',cba_deno...
                                   );
        pus_wpck   = uicontrol(...
                                   'Style','Pushbutton',...
                                   'Unit',win_units,...
                                   'Position',pos_wpck,...
                                   'String',str_wpck,...
                                   'Callback',cba_wpck...
                                   );
        pus_mala   = uicontrol(...
                                   'Style','Pushbutton',...
                                   'Unit',win_units,...
                                   'Position',pos_mala,...
                                   'String',str_mala,...
                                   'Callback',cba_mala...
                                   );
        pus_casc   = uicontrol(...
                                   'Style','Pushbutton',...
                                   'Unit',win_units,...
                                   'Position',pos_casc,...
                                   'String',str_casc,...
                                   'Callback',cba_casc...
                                   );
        pus_extm   = uicontrol(...
                                   'Style','Pushbutton',...
                                   'Unit',win_units,...
                                   'Position',pos_extm,...
                                   'String',str_extm,...
                                   'Callback',cba_extm...
                                   );
        pus_close  = uicontrol(...
                                   'Style','Pushbutton',...
                                   'Unit',win_units,...
                                   'Position',pos_close,...
                                   'String',str_close,...
                                   'Callback',cba_close,...
                                   'Tag',tag_btn_close...
                                   );
        % Prevent OS closing.
        %--------------------
        set(win_democmdm,'CloseRequestFcn',cba_close)
        % Setting units to normalized.
        %-----------------------------
        set(findobj(win_democmdm,'Units','pixels'),'Units','Normalized');
        % Hide figure handle.
        %-------------------
        hidegui(win_democmdm,'off');
        % End waiting.
        %---------------
        mousefrm(0,'arrow');
        drawnow
    case 'enable'
        %*************************************************************%
        %** OPTION = 'enable' - Deseable or Enable democmdm window  **%
        %*************************************************************%
        % in2 = win handle
        % in3 = 'on' or 'off'   
        %--------------------
        if in3(1:2)=='of'
            mousefrm(0,'watch');
        else
            mousefrm(0,'arrow');
        end
        set(findobj(in2,'style','pushbutton'),'Enable',in3);
        drawnow;
    case {'dw1d','cw1d','dw2d','comp','deno','wpck','mala','casc','extm'}
        %*****************************************************%
        %** OPTION = 'dw1d' -  demo DW1D                    **%
        %** OPTION = 'cw1d' -  demo CW1D                    **%
        %** OPTION = 'dw2d' -  demo DW2D                    **%
        %** OPTION = 'comp' -  demo Compression             **%
        %** OPTION = 'deno' -  demo De-noising              **%
        %** OPTION = 'wpck' -  demo for Wavelet packets     **%
        %** OPTION = 'mala' -  demo for Mallat algorithm    **%
        %** OPTION = 'casc' -  demo for Cascade algorithm   **%
        %** OPTION = 'extm' -  demo for Boundary distortion **%
        %*****************************************************%
        expo_flag = 0;
        if nargin==1
            win = wfindobj('figure','tag',tag_cmdm_tool);
        else
            win = in2;
			if isempty(win) , expo_flag = 1; end
        end
        if ishandle(win) , democmdm('enable',win,'off'); end
        demoname = ['dcmd' option];
		addclose = [mfilename '(''endshow'');'];
		if expo_flag
			addclose = [addclose 'mextglob(''clear''); wtbxmngr(''clear'');'];
		end
		fig = wshowdrv(demoname,addclose,tag_sub_close);
		if nargout>0 , out1 = fig; end
		mousefrm(0,'arrow');
    case {'auto','gr_auto'}
        %************************************%
        %** OPTION = 'auto' and 'gr_auto'  **%
		%** All demos inautomatic modes.   **%
        %************************************%
		lstDEMOS = {'dw1d','cw1d','dw2d','comp','deno','wpck','mala','casc','extm'};
        win = democmdm('create');
		democmdm('enable',win,'off');
		stop = 0;
        while stop==0
			for k=1:length(lstDEMOS)
				feval(['dcmd',lstDEMOS{k}],option);
				if ~ishandle(win) , stop = 1; break; end
			end
            if ~isequal(stop,1) & nargin==2 & isequal(in2,'loop')
				stop = 0 ;
			else
				stop = 1;
			end
        end
        democmdm('close',win);
	
    case 'loop'
        %************************************************************%
        %** OPTION = 'loop' - loop with all demos (automatic mode) **%
        %************************************************************%
        democmdm('auto','loop');
	case 'endshow'
        %**************************************************%
        %** OPTION = 'endshow' - used to finish wshowdrv **%
        %**************************************************%
        win = wfindobj('figure','tag',tag_cmdm_tool);
        set(findobj(win,'style','pushbutton'),'Enable','on');
        drawnow;
    case 'close'
        %***********************************************%
        %** OPTION = 'close' - close democmdm window  **%
        %***********************************************%
        mousefrm(0,'watch')
        if nargin==2
            win_democmdm = in2;
        else
            win_democmdm = wfindobj('figure','tag',tag_cmdm_tool);
        end
        % Closing all opened main analysis windows.
        %------------------------------------------
        pus_handles = wfindobj(0,'Style','pushbutton');
        hdls        = findobj(pus_handles,'flat','Tag',tag_sub_close);
        for i=1:length(hdls)
            hdl = hdls(i);
            try
              par = get(hdl,'Parent');
              try
                eval(get(hdl,'Callback'));
              end
              delete(par);
            end
        end
        % Closing the democmdm window.
        %-----------------------------
        try , delete(win_democmdm); end
        win_ini = wfindobj('figure','tag',tag_dem_tool);
        if ~isempty(win_ini)
            pus_handles = findobj(win_ini,'Style','pushbutton');
            set(pus_handles,'Enable','on');
        else
            mextglob('clear')
            wtbxmngr('clear')
        end
        mousefrm(0,'arrow');
    otherwise
        errargt(mfilename,'Unknown Option','msg');
        error('*');
end

						