Mercurial > hg > ishara

diff sequences/@seq/min.m @ 3:3f77126f7b5f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First major revision of sequence library, now using classdef form, STILL A BIT BROKEN!
author samer
date Wed, 09 Jan 2013 22:22:21 +0000
parents
children b1280319413e
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/sequences/@seq/min.m	Wed Jan 09 22:22:21 2013 +0000
@@ -0,0 +1,11 @@
+
+% min - min mapped over sequence (ie NOT aggregate)
+function o=min(A,B,DIM), 
+	if nargin==2 && ~isempty(B), o=binfun(A,B,@min@(a,b),sprintf('max(%s,%s)',a,b));
+	else 
+		if nargin<3, o=fnseq(@min,A);
+		else o=fnseq(@(x)min(x,[],DIM),A);
+		end
+	end
+end
+