diff --git a/crp_big.m b/crp_big.m index 3cc7367422f4a9e346415dc90d68d768f1b17649..19f5188e094966d9f7a356a035062fdc87decd25 100644 --- a/crp_big.m +++ b/crp_big.m @@ -68,7 +68,7 @@ function xout=crp_big(varargin) % b(end+1:end+100) = 100:-1:1; % crp_big(b,1,1,.1,'max') % -% See also CRP, CRP2, JRP and CRQA. +% See also CRP, CRP2, JRP, TAUCRP and CRQA. % Copyright (c) 1998-2007 by AMRON % Norbert Marwan, Potsdam University, Germany @@ -78,6 +78,9 @@ function xout=crp_big(varargin) % $Revision$ % % $Log$ +% Revision 5.11 2007/07/18 17:18:44 marwan +% integer values in the arguments supported +% % Revision 5.10 2007/05/15 17:33:13 marwan % new neighbourhood criterion: fixed RR % @@ -162,24 +165,25 @@ check_meth={'ma','eu','mi','nr','rr','fa','in','om','op','di'}; % maxnorm, eucl check_norm={'non','nor'}; % nonormalize, normalize check_gui={'gui','nog','sil'}; % gui, nogui, silent -if isnumeric(varargin{1})==1 % read commandline input - varargin{9}=[]; - % transform any int to double - intclasses = {'uint8';'uint16';'uint32';'uint64';'int8';'int16';'int32';'int64'}; - flagClass = []; - for i = 1:length(intclasses) - i_int=find(cellfun('isclass',varargin,intclasses{i})); - if ~isempty(i_int) - for j = 1:length(i_int) - varargin{i_int(j)} = double(varargin{i_int(j)}); - end - flagClass = [flagClass; i_int(:)]; +% transform any int to double +intclasses = {'uint8';'uint16';'uint32';'uint64';'int8';'int16';'int32';'int64';'logical'}; +flagClass = []; +for i = 1:length(intclasses) + i_int=find(cellfun('isclass',varargin,intclasses{i})); + if ~isempty(i_int) + for j = 1:length(i_int) + varargin{i_int(j)} = double(varargin{i_int(j)}); end + flagClass = [flagClass; i_int(:)]; end - if ~isempty(flagClass) - disp(['Warning: Input arguments at position [',num2str(flagClass'),'] contain integer values']); - disp(['(now converted to double).']) - end +end +if ~isempty(flagClass) + disp(['Warning: Input arguments at position [',num2str(flagClass'),'] contain integer values']); + disp(['(now converted to double).']) +end + +if isnumeric(varargin{1})==1 % read commandline input + varargin{9}=[]; i_double=find(cellfun('isclass',varargin,'double')); i_char=find(cellfun('isclass',varargin,'char'));