Mercurial > hg > ishara

diff general/arrutils/scanrcols.m @ 12:fbc0540a9208

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Moved some high-order functions from funutils to arrutils, updated docs and cleaned up funutils.
author samer
date Mon, 14 Jan 2013 22:21:11 +0000
parents general/funutils/scanrcols.m@e44f49929e56
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/general/arrutils/scanrcols.m	Mon Jan 14 22:21:11 2013 +0000
@@ -0,0 +1,13 @@
+% scanrcols - scan array columns from the right
+%
+% scanrcols :; 
+%    ([[M]], [[N]] -> [[M]])   ~'scannning function',
+%    [[M]]                     ~'initial value',
+%    [[N,L]]                   ~'data to scan, sequence of length L'
+% -> [[M,L]].
+
+function Y=scanrcols(f,y,X,varargin)
+	Y=zeros(size(y,1),size(X,2));
+	for i=size(X,2):-1:1, y=f(y,X(:,i)); Y(:,i)=y; end
+		
+