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))
    