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

function [x,F]=next_cell(D), 
	x=D{1}; 
	if   length(D)==1, F=[]; 
	else F=@(z)next_cell(D(2:end)); end

