samer@0: function F=src_subseq(X,T)
samer@0: % src_subseq - Data source for subsequences of a big array
samer@0: %
samer@0: % src_subseq ::
samer@0: %    [[N,T]]        ~'big array',
samer@0: %    [[2,P]]        ~'subranges for each of P subsequences'
samer@0: % -> source(N)      ~'returns a source of N-dim data sequences'.
samer@0: 
samer@0: if nargin<2 || isempty(T), T=[1;size(X,2)]; end;
samer@0: F=@(z)next_subseq(X,T,1);
samer@0: 
samer@0: function [x,F]=next_subseq(X,T,n), 
samer@0: 	x=X(:,T(1,n):T(2,n));
samer@0: 	if n==size(T,2), F=[]; 
samer@0: 	else F=@(z)next_subseq(X,T,n+1); end
samer@0: