Mercurial > hg > ishara
annotate general/funutils/@function_handle/gt.m @ 38:9d24b616bb06
Added function algebra.
| author | samer |
|---|---|
| date | Tue, 29 Jan 2013 15:59:01 +0000 |
| parents | |
| children | c388f1c70669 |
| rev | line source |
|---|---|
| samer@38 | 1 function g=gt(f,I,nin) |
| samer@38 | 2 if nargin<3, nin=nargin(f); end |
| samer@38 | 3 nout=length(I); MI=max(I); |
| samer@38 | 4 fns = { @q11, @q1n; @qn1, @qnn }; |
| samer@38 | 5 g=fns{acount(nin,1),acount(nout,1)}; |
| samer@38 | 6 |
| samer@38 | 7 function y=q11(x), [rets{1:MI}]=f(x); y=rets{I}; end |
| samer@38 | 8 function y=qn1(varargin), [rets{1:MI}]=f(varargin{:}); y=rets{I}; end |
| samer@38 | 9 function varargout=q1n(x), [rets{1:MI}]=f(x); varargout=rets(I); end |
| samer@38 | 10 function varargout=qnn(varargin), [rets{1:MI}]=f(varargin{:}); varargout=rets(I); end |
| samer@38 | 11 end |
| samer@38 | 12 |