function F= matrizifft(L,M) P=L+M; i=sqrt(-1); Nc=M; %nro. de columnas Nf=P-L; %nro. de filas matriz=zeros(Nf,Nc); %reserva de memoria para matriz for k=0:Nc-1 for j=0:Nf-1 matriz(j+1,k+1)= (1/sqrt(M))*exp( i*2*pi*(j)*(k)/M); end end F=matriz; %En el receptor usaremos las Fr=transpose(conj(matriz))