function X=mezcla_con_retardo_2(S,F,a,tau)

% Funcion realizada por Oscar Muñoz Cueva.
% S1 y S2 son los espectrogramas de las señales producidas por las
% fuentes. F es el vector de frecuencias del espectrograma. A es el
%  modulo de la matriz de mezcla y tau es la matriz de retardos en
% segundos. X1 y X2 son los espectrogramas de las señales mezcladas
% convolucionalmente.

n=length(a);

for f=1:length(F)
    A(:,:,f)=a.*exp(-j*2*pi*F(f)*tau);
%    A(:,:,f)=A(:,:,f)/det(A(:,:,f));
    for k=1:n
        Sf(k,:)=S(f,:,k);
    end
    R=A(:,:,f)*Sf;
    for k=1:n
        X(f,:,k)=R(k,:);
    end
end