annotate fourier_kernel_win.m @ 4:72c011ed1977 tip

more elaborate example with non-stat. estimate explanation
author smusevic
date Tue, 30 Jul 2013 09:56:27 +0100
parents a4a7e3405062
children
rev   line source
dan@0 1 function [fk fk_ders] = fourier_kernel_win(frqs, N,fs, win, win_der)
dan@0 2 R = size(frqs,2);
dan@0 3 t = [- (N - 1) / 2:(N - 1) / 2]' / fs;
dan@0 4 win_mat = repmat(win, [1,R]);
dan@0 5 win_der_mat = repmat(win_der, [1,R]);
dan@0 6 t_mat = repmat(t, [1, R]);
dan@0 7 frq_mat = repmat(frqs, [N, 1]);
dan@0 8 krnls = exp(1j .* t_mat .* frq_mat);
dan@0 9 fk = win_mat .* krnls;
dan@0 10 fk_ders = (1j * win_mat .* frq_mat + win_der_mat) .* krnls;
dan@0 11 end