diff general/funutils/nthret.m @ 4:e44f49929e56

Adding reorganised general toolbox, now in several subdirectories.

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/general/funutils/nthret.m	Sat Jan 12 19:21:22 2013 +0000
@@ -0,0 +1,13 @@
+function X=nthret(I,F,varargin)
+% nthret - Evaluate function and return Nth return value.
+%
+% Usage:
+%
+% if F is a function that returns M >= I values, then
+%    X = nthret(N,F,...)
+% evaluates [Z{1:N}]=F(...)
+% and returns Z{N}.
+
+Z=cell(I,1);
+[Z{:}]=F(varargin{:});
+X=Z{I};