diff options
Diffstat (limited to 'leanconvert.c')
-rw-r--r-- | leanconvert.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/leanconvert.c b/leanconvert.c new file mode 100644 index 0000000..617c665 --- /dev/null +++ b/leanconvert.c @@ -0,0 +1 @@ +#include "fftease.h"
void leanconvert( float *S, float *C, int N2 )
{
int real, imag,
amp, phase;
float a, b;
int i;
double hypot(), atan2();
for ( i = 0; i <= N2; i++ ) {
imag = phase = ( real = amp = i<<1 ) + 1;
a = ( i == N2 ? S[1] : S[real] );
b = ( i == 0 || i == N2 ? 0. : S[imag] );
C[amp] = hypot( a, b );
C[phase] = -atan2( b, a );
}
}
\ No newline at end of file |