Chris@366: #!/usr/bin/env python
Chris@366: 
Chris@366: import math
Chris@366: import sys
Chris@366: import os
Chris@366: import random
Chris@366: import struct
Chris@366: import popen2
Chris@366: import getopt
Chris@366: import numpy
Chris@366: 
Chris@366: pi=math.pi
Chris@366: e=math.e
Chris@366: j=complex(0,1)
Chris@366: 
Chris@366: doreal=0
Chris@366: 
Chris@366: datatype = os.environ.get('DATATYPE','float')
Chris@366: 
Chris@366: util = '../tools/fft_' + datatype
Chris@366: minsnr=90
Chris@366: if datatype == 'double':
Chris@366:     fmt='d'
Chris@366: elif datatype=='int16_t':
Chris@366:     fmt='h'
Chris@366:     minsnr=10
Chris@366: elif datatype=='int32_t':
Chris@366:     fmt='i'
Chris@366: elif datatype=='simd':
Chris@366:     fmt='4f'
Chris@366:     sys.stderr.write('testkiss.py does not yet test simd')
Chris@366:     sys.exit(0)
Chris@366: elif datatype=='float':
Chris@366:     fmt='f'
Chris@366: else:
Chris@366:     sys.stderr.write('unrecognized datatype %s\n' % datatype)
Chris@366:     sys.exit(1)
Chris@366:  
Chris@366: 
Chris@366: def dopack(x,cpx=1):
Chris@366:     x = numpy.reshape( x, ( numpy.size(x),) )
Chris@366:     
Chris@366:     if cpx:
Chris@366:         s = ''.join( [ struct.pack(fmt*2,c.real,c.imag) for c in x ] )
Chris@366:     else:
Chris@366:         s = ''.join( [ struct.pack(fmt,c.real) for c in x ] )
Chris@366:     return s
Chris@366: 
Chris@366: def dounpack(x,cpx):
Chris@366:     uf = fmt * ( len(x) / struct.calcsize(fmt) )
Chris@366:     s = struct.unpack(uf,x)
Chris@366:     if cpx:
Chris@366:         return numpy.array(s[::2]) + numpy.array( s[1::2] )*j
Chris@366:     else:
Chris@366:         return numpy.array(s )
Chris@366: 
Chris@366: def make_random(dims=[1]):
Chris@366:     res = []
Chris@366:     for i in range(dims[0]):
Chris@366:         if len(dims)==1:
Chris@366:             r=random.uniform(-1,1)
Chris@366:             if doreal:
Chris@366:                 res.append( r )
Chris@366:             else:
Chris@366:                 i=random.uniform(-1,1)
Chris@366:                 res.append( complex(r,i) )
Chris@366:         else:
Chris@366:             res.append( make_random( dims[1:] ) )
Chris@366:     return numpy.array(res)
Chris@366: 
Chris@366: def flatten(x):
Chris@366:     ntotal = numpy.size(x)
Chris@366:     return numpy.reshape(x,(ntotal,))
Chris@366: 
Chris@366: def randmat( ndims ):
Chris@366:     dims=[]
Chris@366:     for i in range( ndims ):
Chris@366:         curdim = int( random.uniform(2,5) )
Chris@366:         if doreal and i==(ndims-1):
Chris@366:             curdim = int(curdim/2)*2 # force even last dimension if real
Chris@366:         dims.append( curdim )
Chris@366:     return make_random(dims )
Chris@366: 
Chris@366: def test_fft(ndims):
Chris@366:     x=randmat( ndims )
Chris@366: 
Chris@366: 
Chris@366:     if doreal:
Chris@366:         xver = numpy.fft.rfftn(x)
Chris@366:     else:
Chris@366:         xver = numpy.fft.fftn(x)
Chris@366:     
Chris@366:     open('/tmp/fftexp.dat','w').write(dopack( flatten(xver) , True ) )
Chris@366: 
Chris@366:     x2=dofft(x,doreal)
Chris@366:     err = xver - x2
Chris@366:     errf = flatten(err)
Chris@366:     xverf = flatten(xver)
Chris@366:     errpow = numpy.vdot(errf,errf)+1e-10
Chris@366:     sigpow = numpy.vdot(xverf,xverf)+1e-10
Chris@366:     snr = 10*math.log10(abs(sigpow/errpow) )
Chris@366:     print 'SNR (compared to NumPy) : %.1fdB' % float(snr)
Chris@366: 
Chris@366:     if snr<minsnr:
Chris@366:         print 'xver=',xver
Chris@366:         print 'x2=',x2
Chris@366:         print 'err',err
Chris@366:         sys.exit(1)
Chris@366:  
Chris@366: def dofft(x,isreal):
Chris@366:     dims=list( numpy.shape(x) )
Chris@366:     x = flatten(x)
Chris@366: 
Chris@366:     scale=1
Chris@366:     if datatype=='int16_t':
Chris@366:         x = 32767 * x
Chris@366:         scale = len(x) / 32767.0
Chris@366:     elif datatype=='int32_t':
Chris@366:         x = 2147483647.0 * x
Chris@366:         scale = len(x) / 2147483647.0
Chris@366: 
Chris@366:     cmd='%s -n ' % util
Chris@366:     cmd += ','.join([str(d) for d in dims])
Chris@366:     if doreal:
Chris@366:         cmd += ' -R '
Chris@366: 
Chris@366:     print cmd
Chris@366:     p = popen2.Popen3(cmd )
Chris@366: 
Chris@366:     open('/tmp/fftin.dat','w').write(dopack( x , isreal==False ) )
Chris@366: 
Chris@366:     p.tochild.write( dopack( x , isreal==False ) )
Chris@366:     p.tochild.close()
Chris@366: 
Chris@366:     res = dounpack( p.fromchild.read() , 1 )
Chris@366:     open('/tmp/fftout.dat','w').write(dopack( flatten(res) , True ) )
Chris@366:     if doreal:
Chris@366:         dims[-1] = int( dims[-1]/2 ) + 1
Chris@366: 
Chris@366:     res = scale * res
Chris@366: 
Chris@366:     p.wait()
Chris@366:     return numpy.reshape(res,dims)
Chris@366: 
Chris@366: def main():
Chris@366:     opts,args = getopt.getopt(sys.argv[1:],'r')
Chris@366:     opts=dict(opts)
Chris@366: 
Chris@366:     global doreal
Chris@366:     doreal = opts.has_key('-r')
Chris@366: 
Chris@366:     if doreal:
Chris@366:         print 'Testing multi-dimensional real FFTs'
Chris@366:     else:
Chris@366:         print 'Testing multi-dimensional FFTs'
Chris@366: 
Chris@366:     for dim in range(1,4):
Chris@366:         test_fft( dim )
Chris@366: 
Chris@366: if __name__ == "__main__":
Chris@366:     main()
Chris@366: