dft.m

数字信号分析处理方面的好教材,有DSP的MATLAB源程序.

function [Xp] = dft(xk,N)
% 计算离散付利叶变换
% -----------------------------------
% [Xp] = dft(xk,N)
% Xp = 在0 <= p <= N-1间的DFT 系数数组 
% xk = N点有限长度序列 
%  N = DFT的长度
%
k = [0:1:N-1];                       % k的行向量
p = [0:1:N-1];                       % p的行向量
WN = exp(-j*2*pi/N);                 % Wn 因子
kp = k'*p;                           % 产生一个含kp值的N 乘 N维矩阵
WNkp = WN .^ kp;                     % DFT 矩阵
Xp = xk * WNkp;                      % DFT 系数的行向量