added fixed RR support

private/crp_plugin.m

@@ -10,6 +10,9 @@ function [X, matext] = crp_plugin(x, y, m, t, e, mflag, hCRP, plugin_path, silen
 % $Revision$
 %
 % $Log$
+% Revision 4.7  2007/05/22 13:43:45  marwan
+% added fixed RR support
+%
 % Revision 4.6  2006/10/24 14:16:26  marwan
 % minor change: sigma in title line of RP shown only for normalised data
 %
@@ -60,8 +63,8 @@ try
       
       % prepare the arguments for the external plugin
       if ~silent, set(findobj('Tag','Status','Parent',findobj('Parent',hCRP,'Tag','CRPPlot')),'String','Compute Recurrence Points'),drawnow, end
-      m_str = {'MAX', 'EUC', 'MIN', 'NR', 'FAN', 'IN', 'OM', 'OP', 'EUC'};
-      dis_sign = 1; if mflag == 9, dis_sign = -1; end
+      m_str = {'MAX', 'EUC', 'MIN', 'NR', 'RR', 'FAN', 'IN', 'OM', 'OP', 'EUC'};
+      dis_sign = 1; if mflag == 10, dis_sign = -1; end
 
       unix_str = [plugin_path,filesep,rp_plugin,' -m ',num2str(m), ...
                                     ' -t ',num2str(t), ...
@@ -107,11 +110,11 @@ try
           errcode=113;
           matext=[num2str(round(100*e)/100) unit ' (fixed distance minimum norm)'];
       %%%%%%%%%%%%%%%%% order patterns
-        case 8
+        case 9
           errcode=118;
           matext='';
-      %%%%%%%%%%%%%%%%% global RP
-        case 9
+      %%%%%%%%%%%%%%%%% distance matrix
+        case 10
           errcode=119;
           X = X * ( max([max(x), max(y)]) - min([min(x), min(y)]) );
           matext='';