plugin added

private/crp_plugin.m

+function [X, matext] = crp_plugin(x, y, m, t, e, mflag, hCRP, plugin_path, silent)
+% CRP_PLUGIN   Loads and executes the extern plugin
+%    Used by CRP Toolbox
+
+% Copyright (c) 2005 by AMRON
+% Norbert Marwan, Potsdam University, Germany
+% http://www.agnld.uni-potsdam.de
+%
+% $Date$
+% $Revision$
+%
+% $Log$
+%
+%
+% 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.
+
+global errcode
+
+X = []; matext = '';
+
+try
+
+      tmp_xdatafile  = tempname;
+      tmp_ydatafile  = tempname;
+      tmp_rpdatafile = tempname;
+      if ~silent, set(findobj('Tag','Status','Parent',findobj('Parent',hCRP,'Tag','CRPPlot')),'String','Export Data'),drawnow, end
+      save(tmp_xdatafile,'x','-ascii','-tabs');
+      save(tmp_ydatafile,'y','-ascii','-tabs');
+      
+      % call extern rp programme
+      if ~silent, set(findobj('Tag','Status','Parent',findobj('Parent',hCRP,'Tag','CRPPlot')),'String','Compute Recurrence Points'),drawnow, end
+      m_str = {'MAX', 'EUC', 'MIN', '', '', '', '', '', 'EUC'};
+      dis_sign = 1; if mflag == 9, dis_sign = -1; end
+
+      system([plugin_path,filesep,'rp -m ',num2str(1), ...
+                                    ' -t ',num2str(1), ...
+                                    ' -e ',num2str(dis_sign * e), ...
+                                    ' -n ',m_str{mflag}, ...
+                                    ' -w ',num2str(0), ...
+                                    ' -i ',tmp_xdatafile, ...
+                                    ' -j ',tmp_ydatafile, ...
+                                    ' -r ',tmp_rpdatafile, ...
+                                    ' -f TIF', ...
+                                    ' -s']);
+      % import rp
+      if ~silent, set(findobj('Tag','Status','Parent',findobj('Parent',hCRP,'Tag','CRPPlot')),'String','Import Recurrence Points'),drawnow, end
+      X = imread(tmp_rpdatafile);
+      X = (double(X)/65535);
+      
+
+      delete(tmp_rpdatafile);
+      delete(tmp_xdatafile);
+      delete(tmp_ydatafile);
+      
+      if ~silent, set(findobj('Tag','Status','Parent',findobj('Parent',hCRP,'Tag','CRPPlot')),'String','Plot Recurrence Points'),drawnow, end
+
+      switch mflag
+        case 1
+      %%%%%%%%%%%%%%%%% maximum norm
+          matext=[num2str(round(100*e)/100) '\sigma (fixed distance maximum norm)'];
+        case 2
+      %%%%%%%%%%%%%%%%% euclidean norm
+          errcode=112;
+          matext=[num2str(round(100*e)/100) '\sigma (fixed distance euclidean norm)'];
+        case 3
+      %%%%%%%%%%%%%%%%% minimum norm
+          errcode=113;
+          matext=[num2str(round(100*e)/100) '\sigma (fixed distance minimum norm)'];
+      %%%%%%%%%%%%%%%%% global RP
+        case 9
+          X = X * ( max([max(x), max(y)]) - min([min(x), min(y)]) );
+          matext='';
+      end
+
+catch   
+  warning off
+  delete(tmp_rpdatafile);
+  delete(tmp_xdatafile);
+  delete(tmp_ydatafile);
+  warning on
+end

private/is_crp_plugin.m

+function [plugin_exist, plugin_path] = is_crp_plugin
+% IS_CRP_PLUGIN   Checks if extern plugin exist and is executable
+%    Used by CRP Toolbox
+
+% Copyright (c) 2005 by AMRON
+% Norbert Marwan, Potsdam University, Germany
+% http://www.agnld.uni-potsdam.de
+%
+% $Date$
+% $Revision$
+%
+% $Log$
+%
+%
+% 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.
+
+global errcode
+
+plugin_exist = 0;
+plugin_path = '';
+
+if exist('rp','file')
+      plugin_exist = 0;
+      plugin_path = fileparts(which('rp'));
+      try
+          [status dummy] = system([plugin_path,filesep,'rp -V > /tmp/1']);
+      catch
+          status = 1;
+      end
+      if ~status, plugin_exist = 1; end
+end