missing default t

fnn.m

@@ -55,6 +55,9 @@ function out=fnn(varargin)
 % $Revision$
 %
 % $Log$
+% Revision 5.4  2009/03/24 08:35:39  marwan
+% copyright address updated
+%
 % Revision 5.3  2007/12/13 12:02:01  marwan
 % added embedding delay
 %
@@ -99,7 +102,7 @@ set(0,'ShowHidden','on')
 delete(findobj('Tag','msgbox'))
 nogui=0;
 maxM_init = 10;
-t = 1;
+t_init = 1;
 maxM=maxM_init; % maximal dimension
 r_init = 10;
 r=r_init; % r-criterion for neighbours distance
@@ -116,6 +119,7 @@ if nargin & isnumeric(varargin{1})
     i_x = i_double(i_length > 1);
     x = varargin{i_x(1)}(:);
     N = length(x);
+    t = t_init;
     if isempty(x), error('Not a valid input vector.'), end
     i_x = i_double(i_length < 2);
     switch length(i_x)
@@ -209,6 +213,7 @@ end
 % correct invalid inputs
 N = length(x);
 if isempty(maxM) | maxM > N/2, maxM = maxM_init; end
+if isempty(t) | t > N/2 | t < 1, t = t_init; end
 if maxM < 2, maxM = 2; end
 if isempty(r), r = r_init; end
 if isempty(s), s = s_init; end