Mercurial > hg > ddm

view fourier_kernel_win.m @ 0:a4a7e3405062

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import DDM code by Sašo Muševič
author Dan Stowell <dan.stowell@elec.qmul.ac.uk>
date Thu, 09 May 2013 20:04:15 +0100
parents
children
line wrap: on
line source
function [fk fk_ders] = fourier_kernel_win(frqs, N,fs, win, win_der)
R = size(frqs,2);
t = [- (N - 1) / 2:(N - 1) / 2]' / fs;
win_mat     = repmat(win,     [1,R]);
win_der_mat = repmat(win_der, [1,R]);
t_mat = repmat(t, [1, R]);
frq_mat = repmat(frqs, [N, 1]);
krnls = exp(1j .* t_mat .* frq_mat);
fk = win_mat .* krnls;
fk_ders = (1j *  win_mat  .* frq_mat + win_der_mat) .* krnls;
end