function [marcado] = DetectarMarca (password, fator,tempo)

%Recebendo a lista de arquivos de audio
dirOut = 'C:\warter\Out_Wav\';

lista = dir (dirOut);

for i=3:length (lista)
    
    %Lendo os dados do arquivo de entrada
    nomeIn = strcat(dirOut,lista(i).name);
    [tam Fs bits] = wavread(nomeIn,'size');
    %disp (nomeIn);
    
    %Dividindo o arquivo em pedaços
    resto = rem(tam(1),tempo); 
    
    segmento = 1;
    %Calculando as medias de cada trecho de audio
    for j=1:tempo:(tam(1)-resto)
        
        %Lendo o trecho do arquivo de audio
        y = wavread(nomeIn,[j (j+tempo-1)]);
        
        %Gerando os indices dos pontos segundo password
        [A,B] = GeraConjuntos(length(y), (password+j), fator);
        
        % Gerando dados para verificar se ha marca 
        S = y(A) - y(B);
        meanS(segmento) = mean(S);
        
        segmento = segmento + 1;
    end
    
    %Posicionado j na primeira posiçao ainda nao lida do audio original
    j = j + tempo;
    
    %Verificando restante do audio, caso exista. 
    if (j < tam(1))
        %Lendo o trecho do arquivo de audio
        y = wavread(nomeIn,[j tam(1)]);
        
        %Gerando os indices dos pontos segundo password
        [A,B] = GeraConjuntos(length(y), password, fator);
        
        % Gerando dados para verificar se ha marca 
        S = y(A) - y(B);
        meanS(segmento) = mean(S);
        
        segmento = segmento + 1;
    end
    %Realizando o teste de hipotese
    % 0 - Nao Marcado
    % 1 - Marcado
    %marcado(i-2) = ttest(meanS,0);
    
    aux = zeros (length(meanS),1);
    
    %Teste Anova
    NomesGrafico = {'Media Alt.' 'Media Nao Alt.' };
    aux = [aux meanS'];
    ValorAnova = anova1(aux, NomesGrafico, 'off');
    if (ValorAnova < 0.05)
        marcado(i-2) = 1;
    else 
        marcado(i-2) = 0;
    end
end
