DIRECTORY Complex, Rope; FFT: CEDAR DEFINITIONS = BEGIN Watts, DBM, Volts, Hz, Seconds, Degrees: TYPE = REAL; CVecRef: TYPE = REF CVec; CVec: TYPE = RECORD [ totalTime: Seconds _ 1.0, v: SEQUENCE size: NAT OF Complex.Vec ]; NewCVec: PROC [ size: NAT _ 32, totalTime: Seconds _ 1.0, like: CVecRef _ NIL ] RETURNS [ v: CVecRef ]; CopyCVec: PROC [ from: CVecRef ] RETURNS [ v: CVecRef ]; AddCosWave: PROC [ v: CVecRef, freq: Hz, magnitude: Volts _ 1.0, phase: Degrees _ 0.0 ]; AddNoise: PROC [ v: CVecRef, powerPerHz: DBM _ 1.0, ohms: REAL _ 50.0 ]; TimeToFreq, FreqToTime: PROC [ v: CVecRef ]; Print: PROC [ v: CVecRef ] RETURNS [ Rope.ROPE ]; END. ĆFFT.mesa Routines to implement the Cooley-Tukey Fast Fourier Transform, etc. last modified by McCreight, November 14, 1984 10:42:42 am PST the sequence must have a size equal to a power of 2 Ę?˜Jšœ™J˜JšœC™CJ˜Jšœ=™=J˜šĎk ˜ J˜J˜J˜—šœœ œ˜Jš˜Jšœ)œœ˜5J˜Jšœ œœ˜šœœœ˜Jšœ˜šœœœœ ˜$Jšœ3™3—Jšœ˜J˜—Jš Ďnœœ œ1œœ˜gJšžœœœ˜8Jšž œœH˜XJšžœœœœ ˜HJšœ ž œœ˜,Jšžœœœœ˜1J˜Jšœ˜—J˜—…—’—