Skip to content
Snippets Groups Projects
Commit d1d29579 authored by marwan's avatar marwan
Browse files

added fixed RR support

parent 00175095
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
private/create_Ctrlfig.m
+ 16
− 13
View file @ d1d29579
......@@ -2,7 +2,7 @@ function h_axes=create_Ctrlfig(programme,h,ds,m,t,e,method)
% create_Ctrlfig Creates the Control figure for the CRP Toolbox
% Used by CRP Toolbox
% Copyright (c) 1998-2006 by AMRON
% Copyright (c) 1998-2007 by AMRON
% Norbert Marwan, Potsdam University, Germany
% http://www.agnld.uni-potsdam.de
%
......@@ -10,6 +10,9 @@ function h_axes=create_Ctrlfig(programme,h,ds,m,t,e,method)
% $Revision$
%
% $Log$
% Revision 4.12 2006/10/24 14:16:26 marwan
% minor change: sigma in title line of RP shown only for normalised data
%
% Revision 4.11 2006/03/29 13:07:40 marwan
% problems regarding OPRPs and embedding resolved
%
......@@ -64,7 +67,7 @@ global props nonorm
'String','Dimension:',...
'Position',[.16 .895 .35 .02]);
h1=get(h0,'Extent'); h2=get(h0,'Position'); set(h0,'Position',[h2(1) h2(2) h2(3) h1(4)])
if method==7, set(h0,'Enable','Off'); end
if method==8, set(h0,'Enable','Off'); end
h0=uicontrol(props.popup,... % Input Dimension
'Units','Normalized',...
......@@ -76,7 +79,7 @@ global props nonorm
'Callback',[programme,' fitdim'],...
'ToolTip','Select the embedding dimension.');
h1=get(h0,'Extent'); h2=get(h0,'Position'); set(h0,'Position',[h2(1) h2(2) h2(3) h1(4)])
if method==7, set(h0,'Enable','Off'); end
if method==8, set(h0,'Enable','Off'); end
h0=uicontrol(props.text,... % Text Delay
'Units','Normalized',...
......@@ -84,7 +87,7 @@ global props nonorm
'String','Delay:',...
'Position',[.16 .847 .35 .02]);
h1=get(h0,'Extent'); h2=get(h0,'Position'); set(h0,'Position',[h2(1) h2(2) h2(3) h1(4)])
if method==7, set(h0,'Enable','Off'); end
if method==8, set(h0,'Enable','Off'); end
h0=uicontrol(props.edit,... % Input Delay
'Units','Normalized',...
......@@ -93,7 +96,7 @@ global props nonorm
'Position',[.58 .85 .249 .026],...
'ToolTip','Insert the embedding delay time.');
h1=get(h0,'Extent'); h2=get(h0,'Position'); set(h0,'Position',[h2(1) h2(2) h2(3) h1(4)])
if method==7, set(h0,'Enable','Off'); end
if method==8, set(h0,'Enable','Off'); end
h0=uicontrol(props.text,... % Text Vector Switching
'Units','Normalized',...
......@@ -121,7 +124,7 @@ global props nonorm
'Units','Normalized',...
'HorizontalAlignment','center',...
'Position',[.15 .534 .7 .06]);
h2=textwrap(h0,{[char(169),' AGNLD'],'University of Potsdam','1998-2006'});
h2=textwrap(h0,{[char(169),' AGNLD'],'University of Potsdam','1998-2007'});
set(h0,'String',h2)
h1=get(h0,'Extent'); h2=get(h0,'Position'); set(h0,'Position',[h2(1) h2(2) h2(3) h1(4)])
......@@ -144,8 +147,8 @@ global props nonorm
'Tag','Unthresh',...
'ToolTip','Switch between thresholded and unthresholded CRP.' );
if method==9, set(h0,'Value',1); end
if method==7 | method==8, set(h0,'Enable','Off'); end
if method==10, set(h0,'Value',1); end
if method==8 | method==9, set(h0,'Enable','Off'); end
h1=uicontrol(props.popup, ... % Button Unthresholded Scale
'Units','Normalized',...
......@@ -157,18 +160,18 @@ global props nonorm
'Tag','Log',...
'ToolTip','Switch between various scaled CRP.' );
if method==9, set(h1,'Enable','On'); end
if method==10, set(h1,'Enable','On'); end
h2=uicontrol(props.popup,... % Input Neighbourhood Method
'Units','Normalized',...
'String','Maximum Norm|Euclidean Norm|Minimum Norm|Normalized Norm|Fixed Amount|Interdependent|Order Matrix|Order Pattern',...
'String','Maximum Norm|Euclidean Norm|Minimum Norm|Normalized Norm|Fixed RR|Fixed Amount|Interdependent|Order Matrix|Order Pattern',...
'Position',[.16 .363 .67 .032],...
'Tag','Method',...
'CallBack',[programme,' unthresh'],...
'ToolTip','Select the method of finding neighbours.');
if method==9, set(h2,'Enable','Off'); else, set(h2,'Value',method); end
if method==10, set(h2,'Enable','Off'); else, set(h2,'Value',method); end
h0=uicontrol(props.text,... % Text Threshold
'Units','Normalized',...
......@@ -177,7 +180,7 @@ global props nonorm
'Position',[.16 .311 .35 .02]);
h1=get(h0,'Extent'); h2=get(h0,'Position'); set(h0,'Position',[h2(1) h2(2) h2(3) h1(4)])
if method==9 | method==8, set(h0,'Enable','Off'); end
if method==10 | method==9, set(h0,'Enable','Off'); end
h0=uicontrol(props.edit,... % Input Threshold
......@@ -188,7 +191,7 @@ global props nonorm
'ToolTip','Insert the size of neighbourhood.' );
h1=get(h0,'Extent'); h2=get(h0,'Position'); set(h0,'Position',[h2(1) h2(2) h2(3) h1(4)])
if method==9 | method==8, set(h0,'Enable','Off'); end
if method==10 | method==9, set(h0,'Enable','Off'); end
if ~isunix
h0=uicontrol(props.frame, ... % Frame Embedding
......
private/crp_plugin.m
+ 16
− 3
View file @ d1d29579
......@@ -10,6 +10,9 @@ function [X, matext] = crp_plugin(x, y, m, t, e, mflag, hCRP, plugin_path, silen
% $Revision$
%
% $Log$
% Revision 4.6 2006/10/24 14:16:26 marwan
% minor change: sigma in title line of RP shown only for normalised data
%
% Revision 4.5 2006/03/29 13:07:40 marwan
% problems regarding OPRPs and embedding resolved
%
......@@ -38,9 +41,19 @@ X = []; matext = '';
try
tmp_xdatafile = tempname;
tmp_ydatafile = tempname;
tmp_rpdatafile = tempname;
while 1
tmp_xdatafile = tempname;
if ~exist(tmp_xdatafile), break, end
end
while 1
tmp_ydatafile = tempname;
if ~exist(tmp_ydatafile), break, end
end
while 1
tmp_rpdatafile = tempname;
if ~exist(tmp_rpdatafile), break, end
end
if ~silent, set(findobj('Tag','Status','Parent',findobj('Parent',hCRP,'Tag','CRPPlot')),'String','Export Data'),drawnow, end
save(tmp_xdatafile,'x','-ascii','-tabs');
if ~isequal(x,y), save(tmp_ydatafile,'y','-ascii','-tabs'); end
......
private/show_crp.m
+ 7
− 4
View file @ d1d29579
......@@ -10,6 +10,9 @@ function show_crp(X,Shuttle)
% $Revision$
%
% $Log$
% Revision 4.11 2006/03/29 13:07:40 marwan
% problems regarding OPRPs and embedding resolved
%
% Revision 4.10 2005/04/15 09:03:03 marwan
% minor bugfix in plugin section
%
......@@ -45,7 +48,7 @@ NY=size(X,1);
switch(Shuttle.mflag)
case {1,2,3,4,5,6,7,8}
case {1,2,3,4,5,6,7,8,9}
errcode=12;
set(findobj('Tag','CRPData',...
......@@ -59,14 +62,14 @@ NY=size(X,1);
['Dimension: ', num2str(Shuttle.m), ', Delay: ', num2str(Shuttle.t), ...
', Threshold: ', Shuttle.matext ]);
if Shuttle.mflag == 7
if Shuttle.mflag == 8
titletext=sprintf('%s\n',['Order Matrix']);
elseif Shuttle.mflag == 8
elseif Shuttle.mflag == 9
titletext=sprintf('%s\n',['Order Patterns ', Shuttle.txt_cross,'Recurrence Plot',10,...
'Dimension: ', num2str(Shuttle.m), ' (',num2str(factorial(Shuttle.m)),' order patterns), Delay: ', num2str(Shuttle.t)]);
end
case {9}
case {10}
errcode=13;warning on
X=double(X);
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment