dfs.m

来自「数字信号处理的比较全面的程序代码」· M 代码 · 共 12 行

function [Xk]=dfs(xn,N)
% calculate the dfs of xn
%[Xk]=dfs(xn,N)
%------------------------
%
n=[0:1:N-1];
k=[0:1:N-1];
WN=exp(-j*2*pi/N);
nk=n'*k;
WNnk=WN.^nk;
Xk=xn*WNnk;