离散傅里叶变换DFT的推导和lisp实现

lisp 代码：点击打开链接 执行例子： > (load "ss/dft.ss") > (dft '(1 1 1 1 1 1 1 1)) (8 0 0 0 0 0 0 0) > (idft (dft '(1 1 1 1 1 1 1 1))) (1 1.0 1.0 1.0 1 1.0 1.0 1.0) > (dft '(1 2 3 4 5 6 7 8)) (36 -4.0+9.65685424949

>>阅读原文<<