function Tcp= matrizTcp(L,M)
    P=L+M;
    A=zeros(L,P-2*L);
    B=eye(L);
    C=eye(P-L);
    D=[A B];
    E=[D;C];
    Tcp=E;