function Tzp=matrizTzp(L,M)
    P=L+M;
    A=eye(P-L);
    B=zeros(L,P-L);
    C=[A;B];
    Tzp=C;
    