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