share/numeric/fft-package.lisp

   1 ;; The Maxima FFT package that holds the internal implementation
   2 ;; details for Maxima's FFT routines.
   3 (defpackage maxima-fft
   4   (:use :cl :maxima)
   5   (:export "COMPLEX-TO-POLAR"
   6            "FFT-ARG-CHECK"
   7            "FFT-R2-NN"
   8            "FIND-BF-FFT-CONVERTER"
   9            "FIND-BF-IRFFT-CONVERTERS"
  10            "FIND-BF-RFFT-CONVERTERS"
  11            "FIND-COMPLEX-FFT-CONVERTERS"
  12            "FIND-IRFFT-CONVERTERS"
  13            "FIND-RFFT-CONVERTERS"
  14            "LOG-BASE2"
  15            "POLAR-TO-COMPLEX"
  16            "SINCOS-TABLE")
  17   ;; Need these symbols from MAXIMA, mostly for convenience so we
  18   ;; don't have to prefix them everywhere.
  19   (:import-from "MAXIMA"
  20                 "ADD"
  21                 "MERROR"
  22                 "MEVAL"
  23                 "MGET"
  24                 "MLIST"
  25                 "MUL"
  26                 "RISPLIT"
  27                 "SIMP"
  28                 "SYMBOL-ARRAY"
  29                 "TO"
  30                 "$%I"
  31                 "$ARRAY"
  32                 "$BFLOAT"
  33                 "$FLOAT"
  34                 "$LENGTH"
  35                 "$LISTP"))