波变换

开发平台：
Matlab

wmemtool.m：源码内容
							function varargout = wmemtool(option,varargin)
%WMEMTOOL Manage memory tool.
%
% GENERAL BUFFER OPTIONS
%-----------------------
%   'handle' , 'create' , 'close', 'empty' ,
%   'put', 'get', 'del', 'find'.
%  
%   HDL = WMEMTOOL('handle')
%   HDL = WMEMTOOL('create')
%   WMEMTOOL('close')
%   WMEMTOOL('empty')
%   WMEMTOOL('put',NAME,VAL) or wmemtool('put',NAME,VAL,STRINFO)
%   creates if buffer is not found.
%
%   VAL = WMEMTOOL('get',NAME,STRINFO)
%   returns [] if variable named "NAME" is not found.
%
%   WMEMTOOL('del',NAME,VAL) or WMEMTOOL('del',NAME,VAL,STRINFO)
%
%   REP = WMEMTOOL('find') returns 1 if buffer exists else
%   0 is returned.
%
%  BUFFER IN A FIGURE OPTIONS
%----------------------------
%   T = WMEMTOOL('ini',FIG,BLOCNAME,NBVAL)
%   T = WMEMTOOL('hmb',FIG,BLOCNAME)
%   T is the handle of the text which contains the MemBloc.
%
%   WMEMTOOL('wmb',FIG,BLOCNAME,IND1,V1,...,IND12,V12),
%   [V1,..V12] = WMEMTOOL('rmb',FIG,BLOCNAME,IND1,...,IND12),
%   with : Vj = jth value and INDj = jth index in the MemBloc.
%
%   WMEMTOOL('dmb',FIG,BLOCNAME) deletes the MemBloc.
%   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 01-May-96.
%   Last Revision: 15-Jun-1998.
%   Copyright 1995-2002 The MathWorks, Inc.
% $Revision: 1.14 $
% Tag for GENERAL BUFFER.
%------------------------
tag_fig_mem = 'Fig_Mem_Buffer';
tag_axe_mem = 'Axe_Mem_Buffer';
% Show Buffers.
%--------------
old_show = get(0,'ShowHiddenHandles');
set(0,'ShowHiddenHandles','on');
option = option(1:3);
%-----------------------------%
%                             %
%  BUFFER IN A FIGURE OPTIONS %
%                             %
%-----------------------------%
switch option
    case 'rmb'
        %******************************************%
        %** OPTION = 'rmb' - reading in MemBloc. **%
        %******************************************%
        % win_handle = in2
        % bloc_name  = in3
        % if nargin>3
        %    in(k+3) index and out(k) value.
        %-----------------------------------
        varargout{1} = [];
        fig = varargin{1};
        [okFig,axe_mem] = bufferInFig(fig,tag_axe_mem);
        if okFig & ~isempty(axe_mem)
            t = findobj(axe_mem,'type','text','tag',varargin{2});
            if ~isempty(t)
                bloc    = get(t,'Userdata');
                indices = cat(1,varargin{3:end});
                varargout = bloc(indices);
            end
        end
    case 'wmb'
        %******************************************%
        %** OPTION = 'wmb' - writing in MemBloc. **%
        %******************************************%
        % win_handle = in2
        % bloc_name  = in3
        %    in(2k+2) index and in(2k+3) value
        %
        % out(1) = text handle.
        %--------------------------------------
        fig = varargin{1};
        [okFig,axe_mem] = bufferInFig(fig,tag_axe_mem);
        if okFig
            if ~isempty(axe_mem)
                t = findobj(axe_mem,'type','text','tag',varargin{2});
                ok_bloc = ~isempty(t);
            else
                ok_bloc = 0;
            end
            if ~ok_bloc
                nbval = fix((length(varargin)-2)/2);
                if nbval<0 , nbval = 0; end
                t = wmemtool('ini',fig,varargin{2},nbval);
            end
            bloc    = get(t,'Userdata');
            indvar  = 3:2:length(varargin)-1;
            indices = cat(1,varargin{indvar});
            bloc(indices) = varargin(indvar+1);
            set(t,'Userdata',bloc);
            varargout{1} = t;
        else
            varargout{1} = [];
        end
    case 'hmb'
        %*****************************************%
        %** OPTION = 'hmb' - handle of MemBloc. **%
        %*****************************************%
        % win_handle = in2
        % bloc_name  = in3
        %------------------
        fig = varargin{1};
        [okFig,axe_mem] = bufferInFig(fig,tag_axe_mem);
        if okFig & ~isempty(axe_mem)
            varargout{1} = findobj(axe_mem,'type','text','tag',varargin{2});
        else
            varargout{1} = [];
        end
    case 'ini'
        %******************************************%
        %** OPTION = 'ini' - creating a MemBloc. **%
        %******************************************%
        % win_handle = in2
        % bloc_name  = in3
        % nbval = in4
        %-------------------
        fig = varargin{1};
        [okFig,axe_mem] = bufferInFig(fig,tag_axe_mem);
        if okFig 
            if isempty(axe_mem)
                axe_mem = axes(...
                               'Parent',fig,                   ...
                               'HandleVisibility','off',       ...
                               'Visible','off',                ...
                               'Position',[-1 -1 0.001 0.001], ...
                               'tag',tag_axe_mem               ...
                               );
            end
            t = findobj(axe_mem,'type','text','tag',varargin{2});
            if isempty(t)
                t = text('Parent',axe_mem,'Visible','off','tag',varargin{2});
            end
            set(t,'Userdata',cell(1,varargin{3}));
            varargout{1} = t;
        else
            varargout{1} = [];
        end
    case 'dmb'
        %***********************%
        %** OPTION = 'dmb' -  **%
        %***********************%
        % fig = in2             %
        % bloc_name = in3 , ... %
        %-----------------------%
        fig = varargin{1};
        [okFig,axe_mem] = bufferInFig(fig,tag_axe_mem);
        if okFig & ~isempty(axe_mem)
            t = [];
            txt_handles = findobj(axe_mem,'type','text');
            if ~isempty(txt_handles)
                for k = 2:length(varargin)
                    t = [t;findobj(txt_handles,'tag',varargin{k})];
                end
            end
            if ~isempty(t) , delete(t); end
        end
%------------------------%
%                        %
% GENERAL BUFFER OPTIONS %
%                        %
%------------------------%
    case 'han'
        %***************************************************%
        %** OPTION = 'handle' - get handle of fig buffer  **%
        %***************************************************%
        fig = findobj(0,'type','figure','tag',tag_fig_mem);
    case 'cre'
        %********************************************%
        %** OPTION = 'create' - create fig buffer  **%
        %********************************************%
        fig = findobj(0,'type','figure','tag',tag_fig_mem);
        if isempty(fig)
            fig = colordef('new','none');
            set(fig,'HandleVisibility','Off','Tag',tag_fig_mem);
        end
        varargout{1} = fig;
    case 'put'
        %************************%
        %** OPTION = 'put' -   **%
        %************************%
        %------------------------------------
        % bloc_name = in2
        % bloc_set:  k = 1 , ...
        %   in(2k+1) index and in(2k+2) value
        %------------------------------------
        fig = findobj(0,'type','figure','tag',tag_fig_mem);
        if isempty(fig) , fig = wmemtool('create'); end
        varargout{1} = wmemtool('wmb',fig,varargin{:});
        varargout{2} = fig;
    case 'get'
        %************************%
        %** OPTION = 'get' -   **%
        %************************%
        %------------------------------%
        % name = in2                   %
        % in3 optional string value    %
        %------------------------------%
        fig = findobj(0,'type','figure','tag',tag_fig_mem);
        if ~isempty(fig)
            [varargout{1:length(varargin)-1}] = wmemtool('rmb',fig,varargin{:});
        else
            varargout{1} = [] ;
        end
    case 'del'
        %*************************%
        %** OPTION = 'del' -    **%
        %*************************%
        fig = findobj(0,'type','figure','tag',tag_fig_mem);
        if ~isempty(fig), wmemtool('dmb',fig,varargin{:}); end
        
    case 'emp'
        %**************************%
        %** OPTION = 'empty' -   **%
        %**************************%
        fig = findobj(0,'type','figure','tag',tag_fig_mem);
        if ~isempty(fig) , delete(findobj(fig,'type','text')); end
    case 'fin'
        %************************%
        %** OPTION = 'find' -  **%
        %************************%
        fig = findobj(0,'type','figure','tag',tag_fig_mem);
        varargout{1} = 1-isempty(fig);
    case 'clo'
        %******************************************%
        %** OPTION = 'close' - close fig buffer  **%
        %******************************************%
        fig = findobj(0,'type','figure','tag',tag_fig_mem);
        if ~isempty(fig)
            answer = questdlg(...
                            'Delete Globals Buffer ?',...
                            'Main Memory Buffer', ...
                            'yes','no','cancel','no');
            if strcmp(answer,'yes'), delete(fig); end
        end
    otherwise
        %********************%
        %** UNKNOWN OPTION **%
        %********************%
        errargt(mfilename,'Unknown Option','msg');
        error('*');
end
% Hide Buffers.
%--------------
set(0,'ShowHiddenHandles',old_show);
%=============================================================================%
% INTERNAL FUNCTIONS
%=============================================================================%
%-----------------------------------------------------------------------------%
function  [okFig,axe] = bufferInFig(fig,tagAxe)
% bufferInFig returns the handle of the axes Buffer
okFig = ishandle(fig);
if ~okFig , axe = []; return; end
axe = findobj(get(fig,'Children'),'flat','type','axes','tag',tagAxe);
%-----------------------------------------------------------------------------%
%=============================================================================%

						