Common Lisp Package: NAPA-FFT.TESTS

README:

FUNCTION

Public

Undocumented

FORWARD-TEST (SIZE &KEY (PROB 1.d-5) (MAKER 'MAKE-FORWARD-FUN) ((BIT-REVERSED *BIT-REVERSED*) T))

GET-FANCY-FWD (N SCALE)

GET-FANCY-INV (N SCALE)

GET-FANCY-WINDOWED-FWD (N WINDOW)

GET-FANCY-WINDOWED-INV (N WINDOW)

MAKE-SCALED-FWD (N SCALE)

MAKE-SCALED-INV (N SCALE)

MAKE-WINDOWED-FWD (N WINDOW)

MAKE-WINDOWED-INV (N WINDOW)

RUN-FORWARD-TESTS (MAX-SIZE &OPTIONAL FANCY (*FANCY-IN-ORDER* T))

RUN-OFFSETS (MAX)

RUN-PAIRS (MAX &KEY (FWD 'MAKE-SCALED-FWD) (INV 'MAKE-SCALED-INV))

RUN-WINDOWS (MAX &KEY (FWD-MAKER 'MAKE-WINDOWED-FWD) (INV-MAKER 'MAKE-WINDOWED-INV) &AUX (WINDOW (MAKE-DUMMY-WINDOW (ASH 1 MAX))))

TEST-OFFSET (N)

TEST-PAIRS (N &KEY (FWD-SCALE 1.0d0) (FWD 'MAKE-SCALED-FWD) (INV 'MAKE-SCALED-INV))

TEST-WINDOW (N &KEY (WINDOW (MAKE-DUMMY-WINDOW N)) (WINDOW-FWD T) (WINDOW-INV T) (FWD 'MAKE-WINDOWED-FWD) (INV 'MAKE-WINDOWED-INV))

Private

Undocumented

%FORWARD-TEST-1 (SIZE REPEAT FUNCTION)

%FORWARD-TEST-2 (SIZE REPEAT FUNCTION)

%FORWARD-TEST-3 (SIZE OUTER-REPEAT INNER-REPEAT FUNCTION)

APPLY-WINDOW-INV (VEC WINDOW)

CHECK-EQV (A B &OPTIONAL (NAME Test))

DELTA (X Y)

IMPULSE (I N)

IOTA (N)

M* (X Y &OPTIONAL (DST (MAKE-VECTOR (LENGTH X))))

M+ (X Y &OPTIONAL (DST (MAKE-VECTOR (LENGTH X))))

M- (X Y &OPTIONAL (DST (MAKE-VECTOR (LENGTH X))))

M= (X Y &OPTIONAL (TOL *DEFAULT-ABS-TOL*))

MAKE-DUMMY-WINDOW (N)

MAKE-FORWARD-FUN (SIZE)

MAKE-VECTOR (N)

RANDOM-VECTOR (N &OPTIONAL (DST (MAKE-VECTOR N)))

ROL (VEC &OPTIONAL (DST VEC))

SLOW-BIT-REVERSE (ARRAY)

VARIABLE

Public

Undocumented

*FANCY-IN-ORDER*

Private

Undocumented

*BIT-REVERSED*

*DEFAULT-ABS-TOL*