Mercurial > hg > ishara

diff sequences/src_data.m @ 0:672052bd81f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial partial import.
author samer
date Wed, 19 Dec 2012 22:38:28 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/sequences/src_data.m	Wed Dec 19 22:38:28 2012 +0000
@@ -0,0 +1,12 @@
+function F=src_data(D), S=@(z)next_data(D);
+% src_data - Data source for data objects
+%
+% src_data ::
+%    seq [[N,_]]    ~'data object representing sequence of arrays'
+% -> source(N)      ~'returns a source of N-dim data sequences'.
+F=@(z)next_data(Data);
+
+function [x,F]=next_data(D)
+	x=head(D);
+	F=@(z)next_data(next(D));
+