function Hcp=matrizcanalcp(h,L,M);   
                                      %h es un vector  con los coeficientes del canal
                                      %la matriz Hcp tendra dimensiones PxP
    P=L+M;
    Q=length(h);
    dim=P-Q;
    a=zeros(dim,1);
    aux=h;
    v=[aux;a];
    c=gallery('circul',v); %te hace la matriz circulante
    Hcp=c';
   