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';
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.