function [omega, err, dmod, omega_coarse, omega_est] = fdet(x, N, Ng, omega_min, omega_step, omega_max)
%
% Example: fdet_eval(1200, pi/4, -10, [1100 1350 1])

K = fix(length(x-Ng)/(N+Ng));

% Initial guess
omega_coarse = fdet_coarse(x, N, omega_min, omega_step, omega_max);

phi_est = 0;
omega_est = omega_coarse;

off = 0;
for k=1:K
	omega(k) = omega_est;
    xp = x((k-1)*(N+Ng)+off+1:k*(N+Ng)+off);
    x_est = exp(-j*(2*pi*omega_est*(0:N-1)' + phi_est));
    dmod(k) = sum(xp(Ng+1:N+Ng).*x_est);
    phi = angle(dmod(k));
    omega_f = phi/N/(2*pi);
    err(k) = omega_f;
    omega_est = omega_est + omega_f;
    dphi_est = 2*pi*mod(omega_est*N, 1);
    phi_est = mod(phi_est + dphi_est, 2*pi);
end;