Mercurial > hg > ddm

annotate 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
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