% elturmkl.m Elementere Turm(=Permutations)-Matrix
%   vertauscht die Zeilen k und l gegeneinander 
function Tbk = elturmkl(ndim,k,l)
Tbk = eye(ndim);
Tbk(k,k) = 0;
Tbk(l,l) = 0;
Tbk(l,k) = 1;
Tbk(k,l) = 1;
