dan@0: function [ests r0] = stat_pars_ddm(sig,gdi,t,N,w)
dan@0: frq_est = imag(gdi(1));
dan@0: ply_est = fliplr(gdi.');
dan@0: ply_est(end) = real(ply_est(end)); % hm....
dan@0: wmp = win_mod_poly(N, t, [ply_est 0], w);
dan@0: krnl_dmd = exp(1j * frq_est * t');
dan@0: dtft_dmd = sum(w .* sig .* conj(krnl_dmd),1);
dan@0: r0 = dtft_dmd / wmp * 2;
dan@0: %ply_est(end) = ply_est(end) + 1j*frq_est;
dan@0: ests = [fliplr(gdi.') abs(r0) + 1j*angle(r0)];
dan@0: end