--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/kr.m Thu Sep 17 10:12:50 2015 +0200 @@ -0,0 +1,9 @@ +function A = kr(varargin) + n = nargin; + + A = 1; + + for i = 1:n + A = kron(A,varargin{i}); + end +end \ No newline at end of file