Mercurial > hg > ishara

comparison general/funutils/@function_handle/ctranspose.m @ 39:c388f1c70669

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Updated documentation and fixed some bugs in function algebra
author samer
date Tue, 29 Jan 2013 17:02:00 +0000
parents 9d24b616bb06
children
comparison
equal deleted inserted replaced
38:9d24b616bb06 39:c388f1c70669
1 % ctranspose - flip first two function arguments
2 %
3 % ctranspose :: (A,B,C{:}=>D{:}) -> (B,A,C{:}=>D{:}).
1 function h=ctranspose(f,nin,nout) 4 function h=ctranspose(f,nin,nout)
2 fns = { @q21, @q2n; @qn1, @qnn }; 5 fns = { @q21, @q2n; @qn1, @qnn };
3 if nargin<3, nout=nargout(f); end 6 if nargin<3, nout=nargout(f); end
4 if nargin<2, nin=nargin(f); end 7 if nargin<2, nin=nargin(f); end
5 h=fns{acount(nin,2)-1,acount(nout,1)}; 8 h=fns{acount(nin,2)-1,acount(nout,1)};