function FilterResultsAnalysis(T, ybefore, yafter, FS, IsAmplitude, IsFrequency, IsSpectogram)
if (IsAmplitude)
    figure('Name', 'Amplitude graph before and after filtering');
    xlabel('Time (s)')
    ylabel('Amplitude')
    plot(T,ybefore, '--');
    hold on;
    plot(T,yafter, ':');
    legend('Input Data', 'Filtered Data' )
    grid on;
end;

if (IsFrequency)
    figure('Name', 'Frequency graph before and after filtering');
    %figure('Name', 'Frequency graph before filtering');
    Nfft=length(yafter);   % length of fft (Fast Fourier transform)
    xlabel('Frequency')
    ylabel('Amplitude')
    G=abs(fft(ybefore, Nfft));
    f = linspace(0, FS, Nfft);
    plot(f(1:round(Nfft/2)),G(1:round(Nfft/2)), '--') % graph frequency
    hold on;
    % figure('Name', 'Frequency graph after filtering');
    G=abs(fft(yafter, Nfft));
    plot(f(1:round(Nfft/2)),G(1:round(Nfft/2)), ':') % graph frequency
    legend('Input Data','Filtered Data' )
end
if(IsSpectogram)
    figure('Name', 'Spectrogram before filtering');
    spectrogram(ybefore,256,250,256,FS,'yaxis');
    figure('Name', 'Spectrogram after filtering');
    spectrogram(yafter,256,250,256,FS,'yaxis');
end
end
