function fdet_eval(f_true, phi_true, knoise_dB, p)
%
% Example: fdet_eval(1200, pi/4, -10, [1100 1350 1])

fs = 48000;
N = 1024;
K = 40;

omega_min = p(1)/fs;
omega_max = p(2)/fs;
omega_step = p(3)/fs;

% Generate signal
x = exp(j*(2*pi*f_true/fs*(0:K*N-1)'+ phi_true)) + sqrt(10^(knoise_dB/10))*randn(K*N,1);

[omega, err, dmod, omega_coarse, omega_est] = fdet(x, N, 0, omega_min, omega_step, omega_max);

f_coarse = omega_coarse*fs
f_est = omega_est*fs
error_ppm = 1E6*(1-f_est/f_true)

close all;
subplot(4,1,1)
plot(1:lge(omega), real(dmod)/N, 1:lge(omega), imag(dmod)/N, 1:lge(omega), abs(dmod)/N); grid; legend('Re', 'Im', 'abs()');

subplot(4,1,2)
plot(1:lge(omega), err*fs, '-'); grid; legend('error');

subplot(4,1,3)
plot(1:lge(omega), omega*fs); grid; legend('f');

subplot(4,1,4)
plot(1:lge(omega), angle(dmod), '-*', 1:lge(omega), diff(angle([0 dmod])), 'r-*'); grid; legend('phi', 'dphi');