波变换

开发平台：
Matlab

errargt.m：源码内容
							function [err,fig] = errargt(ndfct,var,type,flagWin)
%ERRARGT Check function arguments type.
%   ERR = ERRARGT(NDFCT,VAR,TYPE)
%   is equal to 1 if any element of input vector or 
%   matrix VAR (depending on TYPE choice listed below) 
%   is not of type prescribed by input string TYPE.
%   Otherwise ERR = 0.
%
%   If ERR = 1, an error message is displayed in the command
%   window. In the header message, the string NDFCT is
%   displayed. This string contains the name of a function.
%
%   Available options for TYPE are :
%   'int' : strictly positive integers
%   'in0' : positive integers
%   'rel' : integers
%
%   'rep' : strictly positive reals
%   're0' : positive reals
%
%   'str' : string
%
%   'vec' : vector
%   'row' : row vector
%   'col' : column vector
%
%   'dat' : dates   AAAAMMJJHHMNSS
%           with    0 <= AAAA <=9999
%                   1 <= MM <= 12
%                   1 <= JJ <= 31
%                   0 <= HH <= 23
%                   0 <= MN <= 59
%                   0 <= SS <= 59
%
%   'mon' : months  MM
%           with    1 <= MM <= 12
%
%   A special use of ERRARGT is ERR = ERRARGT(NDFCT,VAR,'msg')
%   for which ERR = 1 and the string VAR is the error message.
%
%   See also ERRARGN.
%   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 01-May-96.
%   Last Revision: 24-Apr-2003.
%   Copyright 1995-2004 The MathWorks, Inc.
%   $Revision: 1.15.4.2 $ $Date: 2004/03/15 22:40:29 $
[r,c] = size(var);
err = 0;
switch type
    case 'int'
        if (ischar(var) | any(var < 1) | any(var ~= fix(var)))
            err = 1; txt = 'integer(s) > 0 , expected';
        end
    case 'in0'
        if (ischar(var) | any(var < 0) | any(var ~= fix(var)))
            err = 1; txt = 'integer(s) => 0 , expected';
        end
    case 'rel'
        if (ischar(var) | any(var ~= fix(var)))
            err = 1; txt = 'integer(s) expected';
        end
    case 'rep'
        if (ischar(var) | any(var <= 0)) 
            err = 1; txt = 'real(s) > 0 , expected';
        end
    case 're0'
        if (ischar(var) | any(var < 0))
            err = 1; txt = 'real(s) => 0 , expected';
        end
    case 'str'
        if any(~ischar(var))
            err = 1; txt = 'string expected';
        end
    case 'vec'
        if r ~= 1 & c ~= 1
            err = 1; txt = 'vector expected';
        end
    case 'row'
        if r ~= 1
            err = 1; txt = 'row vector expected';
        end
    case 'col'
        if c ~= 1
            err = 1; txt = 'column vector expected';
        end
    case 'dat'
        if isempty(var)
            err = 1; txt = 'date expected';
        else
            ss = rem(var,100);
            mn = rem(fix(var/100),100);
            hh = rem(fix(var/10000),100);
            jj = rem(fix(var/1000000),100);
            mm = rem(fix(var/100000000),100);
            aa = fix(var/10000000000);
            if any(...
                    ss < 0 | ss > 59 |...
                    mn < 0 | mn > 59 |...
                    hh < 0 | hh > 24 | (hh == 24 & (ss ~= 0 | mn ~= 0)) |...
                    jj < 1 | jj > 31 | ...
                    mm < 1 | mm > 12 | ...
                    aa < 0 | aa > 9999 ...
                    ) 
               err = 1; txt = 'date expected';
            end
        end
    case 'mon'
        if (any(var < 1 | var > 12 | var ~= fix(var)))
            err = 1; txt = 'month expected';
        end
    case 'msg'
        err = 1; txt = var;
    otherwise
        err = 1; txt = 'undefined type of variable';
end
fig = [];
if err == 1
    if size(txt,1) == 1
        msg   = [' ' ndfct ' ---> ' xlate(txt)];
    else
        msg = strvcat([' ' ndfct ' ---> '],txt);
    end
    if type=='msg'
        txttitle = 'ERROR ... ';
    else
        txttitle = 'ARGUMENTS ERROR';
    end
    % if GUI is used messages are displayed in a window
    % else the Matlab command window is used.
    %--------------------------------------------------
	if nargin<4 , flagWin = 1; end
    if ~mextglob('is_on') | ~flagWin
        lenmsg = length(msg); len = lenmsg+2;
        star   = '*'; star  = star(:,ones(1,len));
        minus  = '-'; minus = minus(:,ones(1,len));
        disp(' ')
        disp(star);
        disp(txttitle);
        disp(minus);
        disp(msg);
        disp(star);
        disp(' ')
    else
        fig = errordlg(msg,txttitle,'modal');
    end
end

						