function [X,A]=demezcla_con_retardo_n(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);
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
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
