function [Y,W]=separa_JADE(X,n)
% X contiene los espectrogramas de las n mezclas de voz. Y contendra los
% espectrogramas obtenidos mediante la separacion usando el algoritmo JADE,
% y W(:,:,f) seran las matrices de separacion para cada frecuencia

for f=1:length(X(:,1,1))
    for k=1:n
        Vin(k,:)=X(f,:,k);
    end
    [W(:,:,f),Vout]=jade(Vin,n);
    W(:,:,f)=pinv(W(:,:,f));
    for k=1:n
        Y(f,:,k)=Vout(k,:);
    end
end