離散傅里葉變換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

>>阅读原文<<