home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 1 / GoldFishApril1994_CD1.img / d2xx / d242 / disk.info < prev    next >
Text File  |  1989-08-30  |  514b  |  21 lines
  1. \ IFFTCR - Inverse Fast Fourier Transform - Complex in, Real out
  2. \
  3. \ KFFT V1.1 (C)Copyright 1989, Jerry Kallaus.  All rights reserved. 
  4. \ May be freely redistributed for non-commercial use (FREEWARE).
  5.  
  6. INCLUDE? fft1 fftinc
  7. ANEW task-ifftcr
  8.  
  9.  
  10. : IFFTCR { a m | n kn km a1r a1i savbits inshift-save --- }
  11.  
  12.    m 1-  2**  -> n
  13.  
  14. [ float_fft? NOT ] .IF  
  15.    inshift-fft @ DUP        -> inshift-save
  16.    IF  a n 2* inshift-fft @
  17.        NEGATE ASHIFT.ARRAY  THEN
  18. inshift-fft OFF
  19. .THEN
  20.  
  21. [ float_fft?