function U=separa_freq(X,n)
% X contiene los espectrogramas de las n señales de entrada, que son las
% grabaciones de los microfonos. U contendra los espectrogramas de las
% señales separadas
% Ahora se realiza la separacion por subbandas de frecuencia
[Y,W]=separa_JADE(X,n);
disp('Separacion ICA completada');
% Solucionamos los problemas de permutacion
[U,W]=soluciona_permutacion(Y,W,n);
disp('Permutacion solucionada');
%for f=1:length(Y(:,1,1))
%subplot(411),plot(abs(S(f,:,1))),axis tight,subplot(412),plot(abs(U(f,:,1))),axis tight;
%subplot(413),plot(abs(S(f,:,2))),axis tight,subplot(414),plot(abs(U(f,:,2))),axis tight;
%pause;
%end
% Solucionamos ahora el escalado
[U,W]=soluciona_escalado(U,W,n);
disp('Escalado solucionado');
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
