Update of /project/sapaclisp/cvsroot/sapaclisp In directory common-lisp.net:/tmp/cvs-serv29351/sapaclisp

Modified Files: dft-and-fft.lisp Log Message: Litle stylistic nitpick

Date: Mon May 16 11:07:35 2005 Author: mmommer

Index: sapaclisp/dft-and-fft.lisp diff -u sapaclisp/dft-and-fft.lisp:1.1.1.1 sapaclisp/dft-and-fft.lisp:1.2 --- sapaclisp/dft-and-fft.lisp:1.1.1.1 Mon May 9 22:24:34 2005 +++ sapaclisp/dft-and-fft.lisp Mon May 16 11:07:35 2005 @@ -156,11 +156,11 @@ ; 2.220446049250313E-16 |#

-;------------------------------------------------------------------------------- +;----------------------------------------------------------------------------- ;;; used by the following routine fft! -(defparameter +use-pre-fft-with-cache-p+ t) +(defparameter *use-pre-fft-with-cache-p* t)

-;------------------------------------------------------------------------------- +;----------------------------------------------------------------------------- ;;; The following code is a Lisp version (with modifications) of ;;; the FFT routines on pages 54--6 of ``Digital Spectral Analysis with ;;; Applications'' by Marple, 1987. The function fft! only works @@ -173,7 +173,7 @@ ;;; X(k) = SUM x(n) exp(-i 2 pi n k/N) ;;; n=0 ;;; -;;; If +use-pre-fft-with-cache-p+ is true, the complex exponential table +;;; If *use-pre-fft-with-cache-p* is true, the complex exponential table ;;; for N=2^P is stored in an array of length N pointed to by the P-th element ;;; of *sapa-cached-pre-fft-arrays*. The intent here is to speed things up ;;; and reduce garbage collection (at the expense of extra storage), but the @@ -199,7 +199,7 @@ Note: see Equation (110a) of the SAPA book with the sampling time set to unity" (let ((exponent (power-of-2 n)) - (W (if +use-pre-fft-with-cache-p+ + (W (if *use-pre-fft-with-cache-p* (pre-fft-with-cache n) (pre-fft n))) (MM 1)