function Hzp=matrizcanalzp(h,L,M);   %es la misma funcion q matrizcanalZp xo cambiando el while por un if
                                      %h es un vector  con los coeficientes del canal
                                      %la matriz Hzp tendra dimensiones PxP
    P=L+M;
    Q=length(h);
    matriz=zeros(P);
    for j=1:P
        i=1;
        
        for k=1:P
            if i<=Q
                if j==k
                    matriz(k,j)=h(i);
                    i=i+1;
              
                elseif (k-j)==(i-1);
                    matriz(k,j)=h(i);
                    i=i+1;
                end
              
             end
           
        end
    end
    Hzp=matriz;