function Rcp=generaRcp(L,M)
    P=L+M;
    A=zeros(P-L,L);
    B=eye(P-L);
    Rcp=[A B];