fft.txt

一些信号分析的C 语言程序

x--双精度实型一维数组，长度为n，开始时存放要变换的数据的实部，最后存放变换结果的实部；
y--双精度实型一维数组，长度为n，开始时存放要变换的数据的虚部，最后存放变换结果的虚部；
n--整型变量。数据长度，必须是2的整数次幂；
sign--整型变量。sign=1时，离散府立叶正变换DFT；sign=-1时，是IDFT；


#include"math.h"
void fft(x,y,n,sign)
{
int n,sign;
double x[],y[];
{
int i,j,k,l,m,n1,n2;
double c,c1,e,s,s1,t,tr,ti;
for(j=1,i=1;i<16;i++)
{
m=i;
j=2*j;
if(j==n)break;
}
n1=n-1;
for(j=0,i=0;i<n1;i++)
{
if(i<j)
{
tr=x[j];
ti=y[j];
x[j]=x[i];
y[j]=y[i];
x[i]=tr;
y[i]=ti;
}
k=n/2;
while(k<(j+1))
{
j=j-k;
k=k/2;
}
j=j+k;
}
n1=1;
for(l=1,l<=m;l++)
{
n1=2*n1;
n2=n1/2;
e=3.141592654/n2;
c=1.0;
s=0.0;
c1=cos(e);
s1=-sign*sin(e);
for(j=0;j<n2;j++)
{
for(i=j;j<n;j+=n1)
{
k=i+n2;
tr=c*x[k]-s*y[k];
ti=c*y[k]+s*x[k];
x[k]=x[i]-tr;
y[k]=y[i]-ti;
x[i]=x[i]+tr;
y[i]=y[i]+ti;
}
t=c;
c=c*c1-s*s1;
s=t*s1+s*c1;
}
}
if(sign==-1)
{
for(i=0;i<n;i++)
{
x[i]/=n;
y[i]/=n;
}
}
}