Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
function xout=crqa(varargin)
%CRQA Computes and plots the CRQA measures.
% Y=CRQA(X [,Y] [,param1,param2,...])
% Recurrence quantification analysis of the cross recurrence
% plot of the vectors X and Y.
%
% The input vectors can be multi-column vectors, where
% each column will be used as a component of the
% phase-space vector. However, if the first column is
% monotonically increasing, it will be used as an
% time scale for plotting.
%
% Y=CRQA(X,M,T,E,W,WS,LMIN,VMIN,TW) computes the
% recurrence quantification analysis of the recurrence
% plot of X by using the dimension M, delay T, the
% size of neighbourhood E, the window size W and
% a window shifting value of WS. LMIN and VMIN
% specify the minimal length of diagonal and vertical
% line structures (default is 2) and TW specifies the
% Theiler window (default is 1).
%
% CRQA(...) without any output arguments opens a
% GUI for interactively control the CRQA. If an
% output is specified with using the option 'gui',
% then the output will contain the figure handle.
%
% Parameters:
% Dimension M, delay T, the size of
% neighbourhood E, the window size W and the shift
% value WS are the first five numbers after the data
% series; if W is empty, the whole plot will be calculated.
% The next two optional numeric parameters LMIN and VMIN
% specify the minimal length of line structures.
%
% As the last numeric parameter, the size of the Theiler
% window TW can be specified (default is 1). This window
% excludes the recurrence points parallel to the main
% diagonal from the analysis. The application of the
% Theiler window is useful only for recurrence plots. In
% cross recurrence plots, the size of the Theiler window will
% be set automatically to zero.
%
% Further parameters can be used to switch between various
% methods of finding the neighbours of the phasespace
% trajectory, to suppress the normalization of the data
% and to suppress the GUI (useful in order to use this
% programme by other programmes). The minimal length of
% diagonal and vertical structures can be setted only in
% the GUI.
%
% Methods of finding the neighbours.
% maxnorm - Maximum norm.
% euclidean - Euclidean norm.
% minnorm - Minimum norm.
% nrmnorm - Euclidean norm between normalized vectors
% (all vectors have the length one).
% fan - Fixed amount of nearest neighbours.
% inter - Interdependent neighbours.
% omatrix - Order matrix.
% opattern - Order patterns recurrence plot.
%
% Normalization of the data series.
% normalize - Normalization of the data.
% nonormalize - No normalization of the data.
%
% Suppressing the GUI.
% gui - Creates the GUI.
% nogui - Suppresses the GUI.
% silent - Suppresses all output.
%
% Parameters not needed to be specified.
%
% Output:
% Y(:, 1) = RR (recurrence rate)
% Y(:, 2) = DET (determinism)
% Y(:, 3) = <L> (mean diagonal line length)
% Y(:, 4) = Lmax (maximal diagonal line length)
% Y(:, 5) = ENTR (entropy of the diagonal line lengths)
% Y(:, 6) = LAM (laminarity)
% Y(:, 7) = TT (trapping time)
% Y(:, 8) = Vmax (maximal vertical line length)
% Y(:, 9) = T1 (recurrence time of 1st type)
% Y(:,10) = T2 (recurrence time of 2nd type)
%
% Warning:
% The RQA measures may differ from those of the RQA programmes by
% Charles Webber Jr. For compatibility use a Theiler window of
% size one and ensure that the data are normalized before by the
% same distance which is used in the RQA programmes; e.g. normalize
% with the maximal phase space diameter, which can be estimated
% with the programme PSS:
%
% dim,lag,e,[],[],l_min,v_min,1,...
% 'euclidean','nonormalize','silent')
%
% N = 500; w = 40; ws = 2;
% a = 3.4:.6/(N-1):4;
% b = .5; for i = 2:N, b(i) = a(i)*b(i-1)*(1-b(i-1)); end
% y = crqa(b,3,2,.1,w,ws);
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
% subplot(2,1,1), plot(a,b,'.','markersize',.1)
% title('logistic map'), axis([3.4 4 0 1])
% subplot(2,1,2), plot(a(1:ws:N-w),y(1:ws:N-w,1))
% ylabel('recurrence rate'), axis([3.4 4 0 1])
%
%
% See also CRQAD, CRP, CRP2, CRP_BIG, DL, TT, PSS.
%
% References:
% Trulla, L. L., Giuliani, A., Zbilut, J. P., Webber Jr., C. L.:
% Recurrence quantification analysis of the logistic equation with
% transients, Phys. Lett. A, 223, 1996.
%
% Marwan, N., Wessel, N., Meyerfeldt, U., Schirdewan, A., Kurths, J.:
% Recurrence Plot Based Measures of Complexity and its Application to
% Heart Rate Variability Data, Phys. Rev. E, 66(2), 2002.
%
% Gao, J. B.:
% Recurrence Time Statistics for Chaotic Systems and Their
% Applications, Phys. Rev. Lett., 83(16), 1999.
%
% Thiel, M., Romano, M. C., Kurths, J., Meucci, R., Allaria, E.,
% Arecchi, F. T.:
% Influence of observational noise on the recurrence quantification
% analysis, Physica D, 171(3), 2002.
% Copyright (c) 1998-2004 by AMRON
% Norbert Marwan, Potsdam University, Germany
% http://www.agnld.uni-potsdam.de
%
% $Date$
% $Revision$
%
% $Log$
% Revision 5.10 2005/03/16 11:23:52 marwan
% automatic detection:
% * of provided time-scale
% * if multi-column input can be used as phase-space vector
%
% Revision 5.9 2004/12/23 07:49:03 marwan
% bug in order patterns RP fixed (empty order patterns)
%
% Revision 5.8 2004/11/15 12:56:01 marwan
% bug fix in method checking
%
% Revision 5.7 2004/11/15 12:53:27 marwan
% covariance plot commented out
%
% Revision 5.6 2004/11/12 08:40:46 marwan
% order patterns recurrence plot added
%
% Revision 5.5 2004/11/10 07:04:50 marwan
% initial import
%
%
% This program is part of the new generation XXII series.
%
% This program is free software; you can redistribute it and/or
% modify it under the terms of the GNU General Public License
% as published by the Free Software Foundation; either version 2
% of the License, or any later version.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% programme properties
global errcode props
init_properties
lmin=2;
vmin=2;
nonorm=1;
theiler_window=1;
hw=-1;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% check the input
error(nargchk(1,13,nargin));
if nargout>1, error('Too many output arguments'), end
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% splash the GPL
splash_gpl('crp');
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% check and read the input
errcode=1;
set(0,'ShowHidden','on')
varargin{14}=[];
i_double=find(cellfun('isclass',varargin,'double'));
i_char=find(cellfun('isclass',varargin,'char'));
t=1;
w=[];wstep=0; method='max'; method_n=1;
check_meth={'ma','eu','mi','nr','fa','in','om','op','di'}; % maxnorm, euclidean, nrmnorm, fan, distance
check_gui={'gui','nog','sil'}; % gui, nogui, silent
check_norm={'non','nor'}; % nonormalize, normalize
if nargin & ischar(varargin{1})
set(0,'ShowHidden','on');h=findobj('Tag','Msgbox_Check Input');delete(h)
action=varargin{1};
h=findobj('Tag','crqa_Fig');
temp=get(h(1),'UserData');
x=temp{1}; y=temp{2};
h=findobj('Tag','crqa_axes_Data','Parent',h(1)); % get handle of plot-axes object
h_crqa_axes_Data = h(1);
h=findobj('Type','line','Parent',h(1)); % get handle of line-object
xscale=get(h(1),'xdata');
h=findobj('Tag','crqa_m');
m=str2num(get(h(1),'String'));
h=findobj('Tag','crqa_maxLag');
t=str2num(get(h(1),'String'));
h=findobj('Tag','crqa_eps');
e=str2num(get(h(1),'String'));
h=findobj('Tag','crqa_method');
method={'Maximum Norm','Euclidean Norm','Minimum Norm','Normalized Norm','FAN','Interdependent','Order Matrix','Order Pattern','Distance Plot'};
method=method{get(h(1),'Value')};
nonorm=get(h(1),'UserData');
h=findobj('Tag','crqa_lmin');
lmin=str2num(get(h(1),'String'));
h=findobj('Tag','crqa_vmin');
vmin=str2num(get(h(1),'String'));
h=findobj('Tag','crqa_theiler');
theiler_window=str2num(get(h(1),'String'));
h=findobj('Tag','crqa_w');
w=str2num(get(h(1),'String'));
h=findobj('Tag','crqa_ws');
wstep=str2num(get(h(1),'String'));
elseif nargin & isnumeric(varargin{1})
% check the text input parameters for method, gui
temp_meth=0;
temp_norm=0;
temp_gui=0;
if ~isempty(i_char)
for i=1:length(i_char),
varargin{i_char(i)}(4)='0';
temp_gui=temp_gui+strcmpi(varargin{i_char(i)}(1:3),check_gui');
temp_norm=temp_norm+strcmpi(varargin{i_char(i)}(1:3),check_norm');
temp_meth=temp_meth+strcmpi(varargin{i_char(i)}(1:2),check_meth');
end
method_n=min(find(temp_meth));
nogui=min(find(temp_gui))-1;
nonorm=min(find(temp_norm))-1;
for i=1:length(i_char); temp2(i,:)=varargin{i_char(i)}(1:3); end
i_char(strmatch(check_gui(find(temp_gui)),temp2))=[];
if isempty(nonorm), nonorm=1; end
if nonorm>1, nonorm=1; end
if isempty(nogui), nogui=0; end
if isempty(method_n), method_n=1; end
if nogui>2, nogui=1; end
if method_n>length(check_meth), method0=length(check_meth); end
method=check_meth{method_n};
else
nogui=0;
if nargout
nogui=1;
action='compute';
end
end
if nogui==0
action='init';
else
action='compute';
end
% get the parameters for creating RP
if max(size(varargin{1}))<=3
disp('Error using ==> crqa')
end
x=double(varargin{1});
if isempty(varargin{2}) | ~isnumeric(varargin{2}), y=x; else
y=double(varargin{2}); end
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
if (isnumeric(varargin{2}) & max(size(varargin{2}))==1) | ~isnumeric(varargin{2})
y=x;
if ~isempty(varargin{i_double(2)}), m=varargin{i_double(2)}(1); else m=1; end
if ~isempty(varargin{i_double(3)}), t=varargin{i_double(3)}(1); else t=1; end
if ~isempty(varargin{i_double(4)}), e=varargin{i_double(4)}(1); else e=.1; end
if ~isempty(varargin{i_double(5)}), w=varargin{i_double(5)}(1); else w=varargin{i_double(5)}; end
if ~isempty(varargin{i_double(6)}), wstep=varargin{i_double(6)}(1); else wstep=1; end
if ~isempty(varargin{i_double(7)}), lmin=varargin{i_double(7)}(1); end
if ~isempty(varargin{i_double(8)}), vmin=varargin{i_double(8)}(1); end
if ~isempty(varargin{i_double(9)}), theiler_window=varargin{i_double(9)}(1); end
else
if ~isempty(varargin{i_double(3)}), m=varargin{i_double(3)}(1); else m=1; end
if ~isempty(varargin{i_double(4)}), t=varargin{i_double(4)}(1); else t=1; end
if ~isempty(varargin{i_double(5)}), e=varargin{i_double(5)}(1); else e=.1; end
if ~isempty(varargin{i_double(6)}), w=varargin{i_double(6)}(1); else w=varargin{i_double(6)}; end
if ~isempty(varargin{i_double(7)}), wstep=varargin{i_double(7)}(1); else wstep=1; end
if ~isempty(varargin{i_double(8)}), lmin=varargin{i_double(8)}(1); end
if ~isempty(varargin{i_double(9)}), vmin=varargin{i_double(9)}(1); end
if ~isempty(varargin{i_double(10)}), theiler_window=varargin{i_double(10)}(1); end
end
else
disp('Error using ==> crqa')
disp('No valid arguments.')
return
end
Nx=length(x); Ny=length(y);
if size(x,1)<size(x,2), x=x'; end
if size(y,1)<size(y,2), y=y'; end
if size(x,2)>=2
xscale=x(:,1);
if ~isempty(find(diff(xscale)<0)) % multi-column data vector, each column used as vector component
time_scale_flag=0;
time_scale_flag_x=0;
xscale=(1:length(x))';
end
time_scale_flag=1;
if ~isempty(find(diff(yscale)<0))
time_scale_flag=0;
yscale=(1:length(y))';
end
if time_scale_flag && ~time_scale_flag_x % if time-scale given in y, but not in x -> error
if ~nogui
errordlg(['A time-scale for the second data is series given, but not for the first!',10,'(The time-scale has to be inlcuded as the first colummn of the first data vector.)'],'Check Data')
waitforbuttonpress
return
else
error(['A time-scale for the second data series is given, but not for the first!',10,'(The time-scale has to be inlcuded as the first colummn of the first data vector.)'])
end
end
if time_scale_flag_x && ~time_scale_flag % if time-scale given in x, but not in y
if length(x) ~= length(y)
if ~nogui
errordlg(['If you are using the time-scale given by the first vector also for',10,'the second vector, both vectors should have the same size!'],'Check Data')
waitforbuttonpress
return
else
error(['If you are using the time-scale given by the first vector also for',10,'the second vector, both vectors should have the same size!'])
end
end
y = [xscale, y];
yscale = xscale;
time_scale_flag=1;
end
if max(size(x))~=max(size(y)),
if ~nogui, errordlg('Data must have the same length.','Check Data'), waitforbuttonpress, return, else error('Data must have the same length.'), end
if ~nogui
warndlg('The threshold size E can not be negative and is now set to 1.','Check Data')
waitforbuttonpress
h=findobj('Tag','crqa_eps');
if ~isempty(h), set(h(1),'String',num2str(e)), end
disp('The threshold size E can not be negative and is now set to 1.'),
if ~nogui
warndlg('The delay T can not be smaller than one and is now set to 1.','Check Data')
waitforbuttonpress
h=findobj('Tag','crqa_maxLag');
if ~isempty(h), set(h(1),'String',num2str(t)), end
else
disp('The delay T can not be smaller than one and is now set to 1.')
end
end
if isempty(w), w=Nx; wstep=1; end
if w < 5+(m-1)*t,
w=5+(m-1)*t;
if ~nogui, warndlg('The window size W exceeds the valid range.','Check Data')
waitforbuttonpress
h=findobj('Tag','crqa_w');
if ~isempty(h), set(h(1),'String',num2str(w)), end
else, disp('The window size W exceeds the valid range.'), end
if ~nogui, warndlg('The window size W exceeds the valid range.','Check Data')
waitforbuttonpress
h=findobj('Tag','crqa_w');
if ~isempty(h), set(h(1),'String',num2str(w)), end
else, disp('The window size W exceeds the valid range.'), end
if ~nogui, warndlg('The window shifting value WS exceeds the valid range.','Check Data')
waitforbuttonpress
h=findobj('Tag','crqa_ws');
if ~isempty(h), set(h(1),'String',num2str(wstep)), end
else, disp('The window shifting value WS exceeds the valid range.'), end
if ~nogui, warndlg('The minimal length for vertical lines is not valid.','Check Data')
waitforbuttonpress
h=findobj('Tag','crqa_vmin');
if ~isempty(h), set(h(1),'String',num2str(vmin)), end
else, disp('The minimal length for vertical lines is not valid.'), end
if ~nogui, warndlg('The minimal length for diagonal lines is not valid.','Check Input')
waitforbuttonpress
h=findobj('Tag','crqa_lmin');
if ~isempty(h), set(h(1),'String',num2str(lmin)), end
else, disp('The minimal length for diagonal lines is not valid.'), end
end
if theiler_window<0 | theiler_window>Nx,
theiler_window=1;
if ~nogui, warndlg('The value for the Theiler window is not valid.','Check Input')
waitforbuttonpress
h=findobj('Tag','crqa_theiler');
if ~isempty(h), set(h(1),'String',num2str(theiler_window)), end
else, disp('The value for the Theiler window is not valid.'), end
end
if x~=y, theiler_window=0; end
t=round(t); m=round(m); w=round(w); wstep=round(wstep); vmin=round(vmin); lmin=round(lmin); theiler_window=round(theiler_window);
switch(action)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% create gui
case 'init'
errcode=3;
oldunit=get(0,'unit');
set(0,'Unit','char')
scr=get(0,'ScreenSize');
set(0,'Unit',oldunit)
'Position',[(scr(3)-150)/2 scr(4)-50 150.0000 44],...
'PaperType','a4',...
'PaperPosition',[0.25 0.25 7.7677 11.193],...
'PaperOrientation','portrait',...
'UserData',{x,y,time_scale_flag},...
'Name','Cross Recurrence Quantification Analysis');
set(0,'showhidden','on')
h=findobj('Label','&Help','Type','uimenu');
if isempty(h)
h=uimenu('Label','&Help');
h2=uimenu('Parent',h(1),'Label','&Help Cross Recurrence Quantification Analysis','Callback','helpwin crqa');
else
h1=flipud(get(h(1),'Children'));
set(h1(1),'Separator','on')
h2=uimenu('Parent',h(1),'Label','&Help Cross Recurrence Quantification Analysis','Callback','helpwin crqa');
copyobj(h1,h(1))
delete(h1)
end
set(0,'showhidden','off')
h=axes(props.axes,...
'Position',[89+30 24.8+14.5 6.8 3.5]);
logo=load('logo');
h2=imagesc([logo.logo fliplr(logo.logo)]);
set(h2,'Tag','uniLogo')
set(h,props.logo,'Tag','axes_logo')
h=uicontrol(props.text,...
'Tag','text_logo',...
h2=textwrap(h,{'© AGNLD','University of Potsdam','1998-2005'});
set(h,'String',h2)
%%%%%%%%%%% plots
axes_height = 5.8;
axes_base = 3;
axes_hoffset = 2.5;
h=axes(props.axes,...
'Tag','crqa_axes_Data',...
'Position',[11.2017 axes_base+4*(axes_height+axes_hoffset) 28.1785+15 axes_height]);
if time_scale_flag
plot(xscale,x(:,2:end),'color',props.line.Color)
if ~all(x(:)==y(:)) hold on; plot(yscale,y(:,2:end),'r'), end
else
plot(xscale,x(:,1),'color',props.line.Color)
if ~all(x(:)==y(:)) hold on; plot(yscale,y(:,1),'r'), end
end
set(h,'Tag','crqa_axes_Data','color',props.axes.Color)
ylabel('Data')
h=axes(props.axes,...
'Tag','crqa_axes_Var',...
'Position',[49.8023+15 axes_base+4*(axes_height+axes_hoffset) 28.1785+15 axes_height]);
if time_scale_flag
x_var = winplot(x(:,2:end),w,wstep,2);
else
x_var = winplot(x(:,1),w,wstep,2);
end
if size(x_var,1) > 2
h2=stairs(xscale(round(x_var(:,1))),x_var(:,2));
set(h2,'color',props.line.Color)
else
cla
text(0.5,0.5,sprintf('%6.4f',x_var(1,2)),'FontWeight','bold','HorizontalAlign','Center')
end
if ~all(x(:)==y(:))
hold on;
if time_scale_flag
y_var = winplot(y(:,2:end),w,wstep,2);
else
y_var = winplot(y(:,1),w,wstep,2);
end
if size(y_var,1) > 2
stairs(yscale(round(y_var(:,1))),y_var(:,2),'r')
h3=axes('Units','Char','Pos',get(h,'Pos'),'XLim',get(h,'XLim'),'YLim',get(h,'YLim'),'YAxisLocation','right','Color','none','Tag','crqa_axes_CoVar','visible','off');
else
cla
text(0.5,0.5,sprintf('%6.5f, %6.5f',x_var(2,2),y_var(1,2)),'FontWeight','bold','HorizontalAlign','Center')
end
end
set(gcf,'CurrentAxes',h);
ylabel('Variance')
set(h,'Tag','crqa_axes_Var','color',props.axes.Color)
h=axes(props.axes,...
'Tag','crqa_axes_RR',...
'Position',[11.2017 axes_base+3*(axes_height+axes_hoffset) 28.1785+15 axes_height]);
ylabel('RR')
h=axes(props.axes,...
'Tag','crqa_axes_DET',...
'Position',[49.8023+15 axes_base+3*(axes_height+axes_hoffset) 28.1785+15 axes_height]);
ylabel('DET')
h=axes(props.axes,...
'Tag','crqa_axes_L',...
'Position',[11.2017 axes_base+2*(axes_height+axes_hoffset) 28.1785+15 axes_height]);
ylabel('L')
h=axes(props.axes,...
'Tag','crqa_axes_ENTR',...
'Position',[49.8023+15 axes_base+2*(axes_height+axes_hoffset) 28.1785+15 axes_height]);
ylabel('ENTR')
h=axes(props.axes,...
'Tag','crqa_axes_LAM',...
'Position',[11.2017 axes_base+1*(axes_height+axes_hoffset) 28.1785+15 axes_height]);
ylabel('LAM')
h=axes(props.axes,...
'Tag','crqa_axes_TT',...
'Position',[49.8023+15 axes_base+1*(axes_height+axes_hoffset) 28.1785+15 axes_height]);
ylabel('TT')
h=axes(props.axes,...
'Tag','crqa_axes_T1',...
'Position',[11.2017 axes_base+0*(axes_height+axes_hoffset) 28.1785+15 axes_height]);
ylabel('T_1')
h=axes(props.axes,...
'Tag','crqa_axes_T2',...
'Position',[49.8023+15 axes_base+0*(axes_height+axes_hoffset) 28.1785+15 axes_height]);
ylabel('T_2')
%%%%%%%%%%% embedding
h=uicontrol(props.frame,...
'Tag','frame',...
'Position',[86+30 29.+2.8 29 5.7]);
h=uicontrol(props.text,...
'Tag','text',...
'Fontangle','italic',...
'Position',[87+30 34.2+1.6 16.8333 1.5000]);
h=uicontrol(props.text,...
'Tag','text',...
'Position',[89+30 32+2.2 16.8333 1.5000]);
h=uicontrol(props.edit,...
'Tag','crqa_m',...
'String',num2str(m),...
'ToolTip','Select the embedding dimension.',...
'Position',[104+30 32+.2+2.2 7 1.5000]);
h=uicontrol(props.text,...
'Tag','text',...
'Position',[89+30 30+2.32 16.8333 1.5000]);
h=uicontrol(props.edit,...
'Tag','crqa_maxLag',...
'String',num2str(t),...
'ToolTip','Insert the embedding delay time.',...
'Position',[104+30 30+.2+2.32 7 1.5000]);
%%%%%%%%%%% neigbourhood
h=uicontrol(props.frame,...
'Tag','frame',...
'Position',[86+30 21.9+2.5 29 6.7]);
h=uicontrol(props.text,...
'Tag','text',...
'Fontangle','italic',...
'Position',[87+30 26.8+2.5 23 1.5000]);
h=uicontrol(props.popup,...
'Tag','text',...
'Tag','crqa_method',...
'UserData',nonorm,...
'Value',method_n,...
'String','Maximum Norm|Euclidean Norm|Minimum Norm|Normalized Norm|Fixed Amount|Interdependent|Order Matrix|Order Patterns|Distance Plot',...
'Position',[89+30 24.6+.2+2.5 22 1.7]);
h=uicontrol(props.text,...
'Tag','text',...
'Position',[89+30 22.6+2.5 16.8333 1.5]);
h=uicontrol(props.edit,...
'Tag','crqa_eps',...
'String',num2str(e),...
'ToolTip','Insert the size of neighbourhood.',...
'Position',[104+30 22.6+.2+2.5 7 1.5000]);
%%%%%%%%%%% crqa parameters
h=uicontrol(props.frame,...
'Tag','frame',...
'Position',[86+30 11+.5 29 12.2]);
h=uicontrol(props.text,...
'Tag','text',...
'Fontangle','italic',...
'Position',[87+30 19.4+2.5 23 1.5000]);
h=uicontrol(props.text,...
'Tag','text',...
'Position',[89+30 17.6+2.5 16.8333 1.5]);
h=uicontrol(props.edit,...
'Tag','crqa_lmin',...
'String',num2str(lmin),...
'ToolTip','Insert the minimal length of a diagonal line.',...
'Position',[104+30 17.6+.2+2.5 7 1.5000]);
h=uicontrol(props.text,...
'Tag','text',...
'Position',[89+30 15.6+2.5 16.8333 1.5]);
h=uicontrol(props.edit,...
'Tag','crqa_vmin',...
'String',num2str(vmin),...
'ToolTip','Insert the minimal length of a vertical line.',...
'Position',[104+30 15.6+.2+2.5 7 1.5000]);
h=uicontrol(props.text,...
'Tag','text',...
'Position',[89+30 15.6+.5 16.8333 1.5]);
h=uicontrol(props.edit,...
'Tag','crqa_theiler',...
'String',num2str(theiler_window),...
'ToolTip','Insert the size for the Theiler window.',...
'Position',[104+30 15.6+.2+.5 7 1.5000]);
if x~=y; set(h,'enable','off'); end
h=uicontrol(props.text,...
'Tag','text',...
'Position',[89+30 13.6+.5 16.8333 1.5]);
h=uicontrol(props.edit,...
'Tag','crqa_w',...
'String',num2str(w),...
'ToolTip','Insert the size of the sliding window.',...
'Position',[104+30 13.6+.2+.5 7 1.5000]);
h=uicontrol(props.text,...
'Tag','text',...
'Position',[89+30 11.6+.5 16.8333 1.5]);
h=uicontrol(props.edit,...
'Tag','crqa_ws',...
'String',num2str(wstep),...
'ToolTip','Insert the step width for sliding the window.',...
'Position',[104+30 11.6+.2+.5 7 1.5000]);
%%%%%%%%%%% buttons
h=uicontrol(props.frame,...
'Tag','frame',...
'Position',[86+30 1.3+.5 29 9]);
h=uicontrol(props.button,...
'String','Store',...
'Tag','crqa_button_store',...
'Enable','Off',...
'ToolTip','Stores the CRQA analysis into a variable in the workspace.',...
'Callback','crqa store',...
'Position',[100.5+30 7.4+.5 10.5 2.2143]);
h=uicontrol(props.button,...
'Tag','crqa_button_print',...
'CallBack','crqa print',...
'ToolTip','Prints the CRQA window.',...
'String','Print',...
'Position',[89+30 7.4+.5 10.5 2.2143]);
h=uicontrol(props.button,...
'Tag','crqa_button_close',...
'CallBack','crqa close',...
'ToolTip','Closes the CRQA window.',...
'String','Close',...
'Position',[89+30 2.1+.5 22 2.2143]);
h=uicontrol(props.button,...
'String','Apply',...
'Tag','crqa_button_apply',...
'ToolTip','Starts the computation.',...
'Callback','crqa compute',...
'Position',[89+30 4.75+.5 22 2.2143]);
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
set(0,'ShowHidden','on')
set(h8, 'HandleVis','CallBack')
tags={'crqa_Fig';'axes_logo';'text_logo';'crqa_theiler';'frame';'text';'crqa_axes_Data';'crqa_axes_Var';'crqa_axes_CoVar';'crqa_axes_RR';'crqa_axes_DET';'crqa_axes_L';'crqa_axes_ENTR';'crqa_axes_LAM';'crqa_axes_TT';'crqa_axes_T1';'crqa_axes_T2';'crqa_m';'crqa_maxLag';'crqa_method';'crqa_eps';'crqa_lmin';'crqa_vmin';'crqa_w';'crqa_ws';'crqa_button_store';'crqa_button_print';'crqa_button_close';'crqa_button_apply'};
h=[];
for i=1:length(tags); h=[h; findobj('Tag',tags{i})]; end
set(h,'Units','Norm')
if nargout; xout=h8; end
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% close windows
case 'close'
errcode=101;
set(0,props.root)
h=findobj('Tag','crqa_Fig');
if ~isempty(h), close(h(1)), end
clear all
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% store
case 'store'
errcode=0;
if ~isempty(findobj('Tag','crqa_button_store'))
h=findobj('Tag','crqa_button_store');
h1=findobj('Tag','crqa_button_close');
if ~isempty(h1), vname_old=get(h1(1),'UserData'); else vname_old=''; end
if isempty(vname_old), vname_old=''; end
vname=char(inputdlg('Choose a variable name.','Store output',1,{vname_old}));
if isempty(vname)
return
else
crqa_values=get(h(1),'UserData');
assignin('base',vname, [crqa_values])
warndlg(['CRQA measures have been assigned to the workspace variable ''',vname,'''.'],'Store output');
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
set(h1(1),'UserData',vname)
end
end
set(0,props.root)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% print
case 'print'
errcode=91;
h=findobj('Tag','crqa_axes_Data','Parent',gcf); h_axes.h(1)=h(1);
h=findobj('Tag','crqa_axes_Var','Parent',gcf); h_axes.h(2)=h(1);
h=findobj('Tag','crqa_axes_CoVar','Parent',gcf); h_axes.h(11)=h(1);
h=findobj('Tag','crqa_axes_RR','Parent',gcf); h_axes.h(3)=h(1);
h=findobj('Tag','crqa_axes_DET','Parent',gcf); h_axes.h(4)=h(1);
h=findobj('Tag','crqa_axes_L','Parent',gcf); h_axes.h(5)=h(1);
h=findobj('Tag','crqa_axes_ENTR','Parent',gcf); h_axes.h(6)=h(1);
h=findobj('Tag','crqa_axes_LAM','Parent',gcf); h_axes.h(7)=h(1);
h=findobj('Tag','crqa_axes_TT','Parent',gcf); h_axes.h(8)=h(1);
h=findobj('Tag','crqa_axes_T1','Parent',gcf); h_axes.h(9)=h(1);
h=findobj('Tag','crqa_axes_T2','Parent',gcf); h_axes.h(10)=h(1);
h=findobj('Tag','uniLogo');
tags={'text_logo';'frame';'text';'crqa_m';'crqa_maxLag';'crqa_method';'crqa_eps';'crqa_lmin';'crqa_vmin';'crqa_theiler';'crqa_w';'crqa_ws';'crqa_button_store';'crqa_button_print';'crqa_button_close';'crqa_button_apply';};
for i=1:length(tags); h=[h; findobj('Tag',tags{i},'Parent',gcf)]; end
set(h,'Visible','Off')
set(h_axes.h,'Units','Character');
h_axes.old_pos=get(h_axes.h,'Position');
axes_height = .13;
axes_base = 0.065;
axes_hoffset = .06;
for i=2:2:10
set(h_axes.h(i-1), 'Units','normalize','Position',[0.1300 axes_base+(5-i/2)*(axes_height+axes_hoffset) 0.3270 axes_height])
set(h_axes.h(i),'Units','normalize','Position',[0.5780 axes_base+(5-i/2)*(axes_height+axes_hoffset) 0.3270 axes_height])
end
set(h_axes.h(11), 'Units','normalize','Position',[0.5780 axes_base+(5-2/2)*(axes_height+axes_hoffset) 0.3270 axes_height])
h_dlg=printdlg;
waitfor(h_dlg)
for i=1:10, set(h_axes.h(i),'Units','Character','Position',h_axes.old_pos{i}), set(h_axes.h(i),'Units','Norm'),end
set(h_axes.h(11),'Units','Character','Position',h_axes.old_pos{11}), set(h_axes.h(11),'Units','Norm')
set(h,'Visible','On')
set(0,props.root)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% compute
case 'compute'
errcode=11;
disp('Warning: RQA from distance plot not possible!')
return
end
if ~nogui
h_fig=findobj('tag','crqa_Fig');
setptr(gcf,'watch'),
obj=({'text';'crqa_m';'crqa_maxLag';'crqa_method';'crqa_eps';'crqa_lmin';'crqa_vmin';'crqa_theiler';'crqa_w';'crqa_ws';'crqa_button_store';'crqa_button_print';'crqa_button_close'});
for j=1:length(obj);
h=findobj('Tag',obj{j},'Parent',h_fig(1));
if ~isempty(h)
set(h,'Enable','Off')
end
end
h=findobj('tag','crqa_button_apply');
set(h(1),'ToolTip','Stops the computation.','String','Stop','Callback','set(0,''ShowHidden'',''on'');h=findobj(''tag'',''crqa_button_apply'');set(h(1),''String'',''Stopped'');set(0,''ShowHidden'',''off'')')
end
if Nx==w & wstep<2, wstep=1; Nx=w+1; end
if Nx==w, Nx=w+1; end
if nogui~=2, hw=waitbar(0,['0/',num2str(Nx-w)]);set(hw,'Name','Please Wait!');h1=get(hw,'chil');h1=get(h1,'title'); drawnow; end
if strcmpi(method,'Order Pattern') method = 'op'; end
if strcmpi(method,'Order Matrx') method = 'om'; end
for i=1:wstep:Nx-w;
if ~nogui
set(0,'ShowHidden','on')
h=findobj('tag','crqa_button_apply','Parent',h_fig(1));
if strcmpi(get(h(1),'string'),'stopped')
Y(i:Nx-w,1:6)=NaN;
break
end
end
try
% X=crp_big(x(i:i+w-1,:),y(i:i+w-1,:),m,t,e,'fan','silent');
if length(x(i:i+w-1,:)) > 2000
X=crp_big(x(i:i+w-1,:),y(i:i+w-1,:),m,t,e,method,do_norm{nonorm+1},'silent',varargin{i_char});
else
X=crp(x(i:i+w-1,:),y(i:i+w-1,:),m,t,e,method,do_norm{nonorm+1},'silent',varargin{i_char});
end
X=crp2(x(i:i+w-1,:),y(i:i+w-1,:),m,t,e,method,do_norm{nonorm+1},'silent',varargin{i_char});
end
% X=crp(x(i:i+w-1,:),y(i:i+w-1,:),m,t,e,varargin{i_char},'silent');
if time_scale_flag
x_var=var(x(i:i+w-1,2:end)); y_var=var(y(i:i+w-1,2:end));
temp=cov(x(i:i+w-1,2:end),y(i:i+w-1,2:end));
else
x_var=var(x(i:i+w-1,1)); y_var=var(y(i:i+w-1,1));
temp=cov(x(i:i+w-1,1),y(i:i+w-1,1));
end
xy_var=temp(1,2);
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
warning off
if nogui~=2 & ishandle(h1), set(h1,'str',[num2str(i),'/',num2str(Nx-w)]); waitbar(i/(Nx-w)); drawnow, end
%if 0
catch
error(lasterr)
if nogui~=2 & ishandle(hw), close(hw), end
end
errcode=20;
t1=[0];t2=[];
for i2=1:size(X,2)
rps2=find(diff(double(X(:,i2)))==1);
rps=find(X(:,i2));
t1=[t1;diff(rps)];
t2=[t2;diff(rps2)];
end
t1=mean(t1);
t2=mean(t2);
N=size(X);
X_theiler=double(triu(X,theiler_window))+double(tril(X,-theiler_window));
[a b]=dl(X_theiler);
warning off
errcode=201;
b(find(b<=lmin))=[];
[c d]=tt(X);
warning off
errcode=202;
d(find(d<=vmin))=[];
errcode=203;
RR=sum(X_theiler(:))/(N(1)*N(2));
%b(find(b>=max(N)-lmin))=[]; if isempty(b), b=0; end
b(find(b>=max(N)))=[]; if isempty(b), b=0; end
errcode=204;
if sum(sum(X_theiler)) > 0
DET=sum(b)/sum(sum(X_theiler));
else
DET=NaN;
end
errcode=205;
L=mean(b);
histL=hist(b(:));
ENTR=entropy(histL(:));
errcode=206;
if sum(d)>0
LAM=sum(d)/sum(sum(X));
else
LAM=NaN;
end
errcode=207;
TT=mean(d);
b=[b;0]; Lmax=max(b);
d=[d;0]; Vmax=max(d);
warning on
errcode=208;
Y(i,1)=RR;
Y(i,2)=DET;
Y(i,3)=L;
Y(i,4)=Lmax;
Y(i,5)=ENTR;
Y(i,6)=LAM;
Y(i,7)=TT;
Y(i,8)=Vmax;
Y(i,9)=t1;
Y(i,10)=t2;
Y(i,11)=x_var;
Y(i,12)=y_var;
Y(i,13)=xy_var;
end
if nogui~=2 & ishandle(hw), waitbar(1); drawnow; close(hw), end
if ~nogui
h=findobj('tag','crqa_button_apply');
set(h(1),'ToolTip','Starts the computation.','String','Apply','Callback','crqa compute')
for j=1:length(obj);
h=findobj('Tag',obj{j},'Parent',h_fig(1));
if ~isempty(h)
set(h,'Enable','On')
end
end
end