plugin added

private/show_crp.m

@@ -2,7 +2,7 @@ function show_crp(X,Shuttle)
 % SHOW_CRP   Plots the CRP into the GUI
 %    Used by CRP Toolbox
 
-% Copyright (c) 1998-2004 by AMRON
+% Copyright (c) 1998-2005 by AMRON
 % Norbert Marwan, Potsdam University, Germany
 % http://www.agnld.uni-potsdam.de
 %
@@ -10,6 +10,18 @@ function show_crp(X,Shuttle)
 % $Revision$
 %
 % $Log$
+% Revision 4.8.1.3  2005/04/08 09:03:53  marwan
+% plugin added
+%
+% Revision 4.8.1.2  2005/03/16 12:21:30  marwan
+% add support for joint recurrence plots
+%
+% Revision 4.8.1.1  2004/11/12 08:41:27  marwan
+% bug fix in order patterns recurrence plot
+%
+% Revision 4.8  2004/11/11 12:17:55  marwan
+% order patterns recurrence plot added
+%
 % Revision 4.7  2004/11/10 07:04:29  marwan
 % initial import
 %
@@ -32,7 +44,7 @@ NY=size(X,1);
   errcode=12;
   set(findobj('Tag','CRPData','Parent',findobj('Parent',Shuttle.hCRP,'Tag','CRPPlot')),'visible','on','xdata',Shuttle.xscale(1:NX),...
               'ydata',Shuttle.yscale(1:NY),...
-              'cdata',X,'UserData',X)
+              'cdata',uint8(X),'UserData',X)
   set(Shuttle.hCRP,'colormap',flipud(gray(2)))
   titletext=sprintf('%s \n',[Shuttle.txt_cross,'Recurrence Plot'],...
       ['Dimension: ', num2str(Shuttle.m), ',  Delay: ', num2str(Shuttle.t), ...
@@ -41,7 +53,7 @@ NY=size(X,1);
   if Shuttle.mflag == 7
     titletext=sprintf('%s\n',['Order Matrix']);
   elseif Shuttle.mflag == 8
-    titletext=sprintf('%s\n',['Order Patterns Recurrence Plot',10,...
+    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
 
@@ -68,10 +80,10 @@ NY=size(X,1);
   end
   zl=0:max(X(:))/9:max(X(:));
   zl=fix(zl*100)/100;  
-  X=uint8(255*X/max(X(:)));  
+  X_show=uint8(255*X/max(X(:)));
   set(findobj('Tag','CRPData','Parent',findobj('Parent',Shuttle.hCRP,'Tag','CRPPlot')),'visible','on',...
               'xdata',Shuttle.xscale(1:NX),'ydata',Shuttle.yscale(1:NY),...
-	      'cdata',X,'UserData',X)
+	      'cdata',X_show,'UserData',X)
   set(get(findobj('Tag','ColBar','Parent',Shuttle.hCRP),'children'),'visible','on')
   h1=findobj('Tag','ColBar','Parent',Shuttle.hCRP);
   set(h1,'visible','on')