samer@0: function S=src_cell(D), S=@(z)next_cell(D);
samer@0: % src_cell - Data source for cell array of arrays
samer@0: %
samer@0: % src_cell ::
samer@0: %    {[P]->[[N,_]]} ~'cell array containing P N-by-? arrays'
samer@0: % -> source(N)      ~'returns a source of N-dim data sequences'.
samer@0: 
samer@0: function [x,F]=next_cell(D), 
samer@0: 	x=D{1}; 
samer@0: 	if   length(D)==1, F=[]; 
samer@0: 	else F=@(z)next_cell(D(2:end)); end
samer@0: