support long data series by using crp_big

crqa.m

@@ -135,6 +135,11 @@ function xout=crqa(varargin)
 % $Revision$
 %
 % $Log$
+% Revision 5.10  2005/03/16 11:23:52  marwan
+% automatic detection:
+% * of provided time-scale
+% * if multi-column input can be used as phase-space vector
+%
 % Revision 5.9  2004/12/23 07:49:03  marwan
 % bug in order patterns RP fixed (empty order patterns)
 %
@@ -185,7 +190,7 @@ splash_gpl('crp');
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% check and read the input
 
-%try 
+try 
 errcode=1;
 
    set(0,'ShowHidden','on')
@@ -360,7 +365,7 @@ errcode=1;
    end
    
    if max(size(x))~=max(size(y)),
-        if ~nogui, errordlg('Data must have the same length.','Check Data'), waitforbuttonpress, else error('Data must have the same length.'), end
+        if ~nogui, errordlg('Data must have the same length.','Check Data'), waitforbuttonpress, return, else error('Data must have the same length.'), end
    end
    if e<0, 
         e=1; 
@@ -889,7 +894,11 @@ do_norm = {'non';'nor'};
 try
 %  X=crp_big(x(i:i+w-1,:),y(i:i+w-1,:),m,t,e,'fan','silent');
   if time_scale_flag
-    X=crp_big(x(i:i+w-1,:),y(i:i+w-1,:),m,t,e,method,do_norm{nonorm+1},'silent',varargin{i_char});
+    if length(x(i:i+w-1,:)) > 2000
+       X=crp_big(x(i:i+w-1,:),y(i:i+w-1,:),m,t,e,method,do_norm{nonorm+1},'silent',varargin{i_char});
+    else
+       X=crp(x(i:i+w-1,:),y(i:i+w-1,:),m,t,e,method,do_norm{nonorm+1},'silent',varargin{i_char});
+    end
   else
     X=crp2(x(i:i+w-1,:),y(i:i+w-1,:),m,t,e,method,do_norm{nonorm+1},'silent',varargin{i_char});
   end
@@ -1064,8 +1073,8 @@ end
 
 
 
-if 0
-%catch
+%if 0
+catch
   if nogui~=2, if ishandle(hw), close(hw), end , end
   
   z=whos;x=lasterr;y=lastwarn;in=varargin{1};