plugin support for order patterns

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.2  2005/04/15 09:03:03  marwan
+% minor bugfix in plugin section
+%
 % Revision 4.1  2005/04/08 09:03:53  marwan
 % plugin added
 %
@@ -35,7 +38,7 @@ try
       
       % 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'};
+      m_str = {'MAX', 'EUC', 'MIN', 'NR', 'FAN', 'IN', 'OM', 'OP', 'EUC'};
       dis_sign = 1; if mflag == 9, dis_sign = -1; end
 
       system([plugin_path,filesep,rp_plugin,' -m ',num2str(1), ...
@@ -60,19 +63,25 @@ try
       if ~silent, set(findobj('Tag','Status','Parent',findobj('Parent',hCRP,'Tag','CRPPlot')),'String','Plot Recurrence Points'),drawnow, end
 
       switch mflag
-        case 1
       %%%%%%%%%%%%%%%%% maximum norm
+        case 1
+          errcode=111;
           matext=[num2str(round(100*e)/100) '\sigma (fixed distance maximum norm)'];
-        case 2
       %%%%%%%%%%%%%%%%% euclidean norm
+        case 2
           errcode=112;
           matext=[num2str(round(100*e)/100) '\sigma (fixed distance euclidean norm)'];
-        case 3
       %%%%%%%%%%%%%%%%% minimum norm
+        case 3
           errcode=113;
           matext=[num2str(round(100*e)/100) '\sigma (fixed distance minimum norm)'];
+      %%%%%%%%%%%%%%%%% order patterns
+        case 8
+          errcode=118;
+          matext='';
       %%%%%%%%%%%%%%%%% global RP
         case 9
+          errcode=119;
           X = X * ( max([max(x), max(y)]) - min([min(x), min(y)]) );
           matext='';
       end