一個(gè)關(guān)于128點(diǎn)的快速傅立葉的C語(yǔ)言程序

這是我寫的1024點(diǎn)的快速傅里葉變換程序，下面有驗(yàn)證，你把數(shù)組

專注于為中小企業(yè)提供成都做網(wǎng)站、成都網(wǎng)站建設(shè)服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)渝中免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動(dòng)了數(shù)千家企業(yè)的穩(wěn)健成長(zhǎng)，幫助中小企業(yè)通過(guò)網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。

double

A[2049]={0};

double

B[1100]={0};

double

powerA[1025]={0};

改成

A[256]={0};

B[130]={0};

power[129]={0};就行了，

void

FFT(double

data[],

int

nn,

int

isign)

的程序可以針對(duì)任何點(diǎn)數(shù)，只要是2的n次方

具體程序如下：

#include

iostream.h

#include

"math.h"

#includestdio.h

#includestring.h

#include

stdlib.h

#include

fstream.h

#include

afx.h

void

FFT(double

data[],

int

nn,

int

isign)

{

//復(fù)數(shù)的快速傅里葉變換

int

n,j,i,m,mmax,istep;

double

tempr,tempi,theta,wpr,wpi,wr,wi,wtemp;

n

=

2

*

nn;

j

=

1;

for

(i

=

1;

i=n

;

i=i+2)

//這個(gè)循環(huán)進(jìn)行的是碼位倒置。

{

if(

j

i)

{

tempr

=

data[j];

tempi

=

data[j

+

1];

data[j]

=

data[i];

data[j

+

1]

=

data[i

+

1];

data[i]

=

tempr;

data[i

+

1]

=

tempi;

}

m

=

n

/

2;

while

(m

=

2

j

m)

{

j

=

j

-

m;

m

=

m

/

2;

}

j

=

j

+

m;

}

mmax

=

2;

while(

n

mmax

)

{

istep

=

2

*

mmax;

//這里表示一次的數(shù)字的變化。也體現(xiàn)了級(jí)數(shù)，若第一級(jí)時(shí)，也就是書是的第0級(jí)，其為兩個(gè)虛數(shù)，所以對(duì)應(yīng)數(shù)組應(yīng)該增加4，這樣就可以進(jìn)入下一組運(yùn)算

theta

=

-6.28318530717959

/

(isign

*

mmax);

wpr

=

-2.0

*

sin(0.5

*

theta)*sin(0.5

*

theta);

wpi

=

sin(theta);

wr

=

1.0;

wi

=

0.0;

for(

m

=

1;

m=mmax;

m=m+2)

{

for

(i

=

m;

i=n;

i=i+istep)

{

j

=

i

+

mmax;

tempr=double(wr)*data[j]-double(wi)*data[j+1];//這兩句表示蝶形因子的下一個(gè)數(shù)乘以W因子所得的實(shí)部和虛部。

tempi=double(wr)*data[j+1]+double(wi)*data[j];

data[j]

=

data[i]

-

tempr;

//蝶形單元計(jì)算后下面單元的實(shí)部，下面為虛部，注意其變換之后的數(shù)組序號(hào)與書上蝶形單元是一致的

data[j

+

1]

=

data[i

+

1]

-

tempi;

data[i]

=

data[i]

+

tempr;

data[i

+

1]

=

data[i

+

1]

+

tempi;

}

wtemp

=

wr;

wr

=

wr

*

wpr

-

wi

*

wpi

+

wr;

wi

=

wi

*

wpr

+

wtemp

*

wpi

+

wi;

}

mmax

=

istep;

}

}

void

main()

{

//本程序已經(jīng)和MATLAB運(yùn)算結(jié)果對(duì)比，準(zhǔn)確無(wú)誤，需要注意的的是，計(jì)算告扒中數(shù)組都是從1開始取得，丟棄了A[0]等數(shù)據(jù)

double

A[2049]={0};

double

B[1100]={0};

double

powerA[1025]={0};

char

line[50];

char

dataA[20],

dataB[20];

int

ij;

char

ch1[3]="巧帶\t";

char

ch2[3]="\n";

int

strl1,strl2;

CString

str1,str2;

ij=1;

//********************************讀入文件data1024.txt中的數(shù)據(jù),

其中的數(shù)據(jù)格式見該文件

FILE

*fp

=

fopen("data1024.txt","r");

if(!fp)

{

cout"Open

file

is

failing!"endl;

return;

}

while(!feof(fp))

//feof(fp)有兩個(gè)返回值:如果遇到文件結(jié)束，函數(shù)feof（fp）的值為1，否則為0。

{

memset(line,0,50);

//清空為0

memset(dataA,0,20);

memset(dataB,0,20);

fgets(line,50,fp);

//函數(shù)的功能是從fp所指文件中讀入n-1個(gè)字符放入line為起始地址的空間內(nèi)

sscanf(line,

"%s%s",

dataA,

dataB);

//我同時(shí)讀入孝友蘆了兩列值，但你要求1024個(gè)，那么我就只用了第一列的1024個(gè)值

//dataA讀入第一列，dataB讀入第二列

B[ij]=atof(dataA);

//將字符型的dataA值轉(zhuǎn)化為float型

ij++;

}

for

(int

mm=1;mm1025;mm++)//A[2*mm-1]是實(shí)部，A[2*mm]是虛部，當(dāng)只要輸入實(shí)數(shù)時(shí)，那么保證虛部A[mm*2]為零即可

{

A[2*mm-1]=B[mm];

A[2*mm]=0;

}

//*******************************************正式計(jì)算FFT

FFT(A,1024,1);

//********************************************寫入數(shù)據(jù)到workout.txt文件中

for

(int

k=1;k2049;k=k+2)

{

powerA[(k+1)/2]=sqrt(pow(A[k],2.0)+pow(A[k+1],2.0));//求功率譜

FILE

*pFile=fopen("workout.txt","a+");

//?a+只能在文件最后補(bǔ)充，光標(biāo)在結(jié)尾。沒有則創(chuàng)建

memset(ch1,0,15);

str1.Format("%.4f",powerA[(k+1)/2]);

if

(A[k+1]=0)

str2.Format("%d\t%6.4f%s%6.4f

%s",(k+1)/2,A[k],"+",A[k+1],"i");//保存fft計(jì)算的頻譜，是復(fù)數(shù)頻譜

else

str2.Format("%d\t%6.4f%6.4f

%s",(k+1)/2,A[k],A[k+1],"i");

strl1=strlen(str1);

strl2=strlen(str2);

//

用

法:fwrite(buffer,size,count,fp);

//

buffer：是一個(gè)指針，對(duì)fwrite來(lái)說(shuō)，是要輸出數(shù)據(jù)的地址。

//

size：要寫入的字節(jié)數(shù)；

//

count:要進(jìn)行寫入size字節(jié)的數(shù)據(jù)項(xiàng)的個(gè)數(shù)；

//

fp:目標(biāo)文件指針。

fwrite(str2,1,strl2,pFile);

fwrite(ch1,1,3,pFile);

fwrite(ch1,1,3,pFile);

fwrite(str1,1,strl1,pFile);

fwrite(ch2,1,3,pFile);

fclose(pFile);

}

cout"計(jì)算完畢，到fft_test\workout.txt查看結(jié)果"endl;

}

如何用C語(yǔ)言或匯編語(yǔ)言實(shí)現(xiàn)FFT(快速傅里葉）變換，并寫出C語(yǔ)言或匯編代碼，萬(wàn)分感謝。

float ar[1024],ai[1024];/* 原始數(shù)據(jù)實(shí)部，虛部 */

float a[2050];

void fft(int nn) /* nn數(shù)據(jù)長(zhǎng)度 */

{

int n1,n2,i,j,k,l,m,s,l1;

float t1,t2,x,y;

float w1,w2,u1,u2,z;

float fsin[10]={0.000000,1.000000,0.707107,0.3826834,0.1950903,0.09801713,0.04906767,0.02454123,0.01227154,0.00613588,};

float fcos[10]={-1.000000,0.000000,0.7071068,0.9238796,0.9807853,0.99518472,0.99879545,0.9996988,0.9999247,0.9999812,};

switch(nn)

{

case 1024: s=10; break;

case 512: s=9; break;

case 256: s=8; break;

}

n1=nn/2; n2=nn-1;

j=1;

for(i=1;i=nn;i++)

{

a[2*i]=ar[i-1];

a[2*i+1]=ai[i-1];

}

for(l=1;ln2;l++)

{

if(lj)

{

t1=a[2*j];

t2=a[2*j+1];

a[2*j]=a[2*l];

a[2*j+1]=a[2*l+1];

a[2*l]=t1;

a[2*l+1]=t2;

}

k=n1;

while (kj)

{

j=j-k;

k=k/2;

}

j=j+k;

}

for(i=1;i=s;i++)

{

u1=1;

u2=0;

m=(1i);

k=m缺嘩蘆1;

w1=fcos[i-1];

w2=-fsin[i-1];

for(j=1;j=k;j++)

{

for(l=j;lnn;l=l+m)

{

l1=l+k;

t1=a[2*l1]*u1-a[2*l1+1]*u2;

t2=a[2*l1]*u2+a[2*l1+1]*u1;

a[2*l1]=a[2*l]-t1;

a[2*l1+1]=a[2*l+1]-t2;

a[2*l]=a[2*l]+t1;

a[2*l+1]=a[2*l+1]+t2;

}

z=u1*w1-u2*w2;

u2=u1*w2+u2*w1;

u1=z;

}

}

for(i=1;i=nn/蘆橘2;i++)

{

ar[i]=4*a[2*i+2]/nn; /* 實(shí)伏帶部 */

ai[i]=-4*a[2*i+3]/nn; /* 虛部 */

a[i]=4*sqrt(ar[i]*ar[i]+ai[i]*ai[i]); /* 幅值 */

}

}

傅里葉變換用C語(yǔ)言程序怎么實(shí)現(xiàn)？

#include math.h

#include stdio.h

#define N 8

void kkfft(double pr[], double pi[], int n, int k, double fr[], double fi[], int l, int il);

void main()

{

double xr[N],xi[N],Yr[N],Yi[N],l=0,il=0;

int i,j,n=N,k=3;

for(i=0;iN;i++)

{

xr[i]=i;

xi[i]=0;

}

printf("------FFT------\n"旁此);

l=0;

kkfft(xr,xi,n,k,Yr,Yi,l,il);

for(i=0;iN;i++)

{

printf("%-11lf + j* %-11lf\n",Yr[i],Yi[i]);

}

printf("-----DFFT-------\n");

l=1;

kkfft(Yr,Yi,n,k,xr,xi,l,il);

for(i=0;iN;i++)

{

printf("%-11lf + j* %-11lf\謹(jǐn)伍n"祥啟或,xr[i],xi[i]);

}

getch();

}

void kkfft(double pr[], double pi[], int n, int k, double fr[], double fi[], int l, int il)

{

int it,m,is,i,j,nv,l0;

double p,q,s,vr,vi,poddr,poddi;

for (it=0; it=n-1; it++)

{

m = it;

is = 0;

for(i=0; i=k-1; i++)

{

j = m/2;

is = 2*is+(m-2*j);

m = j;

}

fr[it] = pr[is];

fi[it] = pi[is];

}

pr[0] = 1.0;

pi[0] = 0.0;

p = 6.283185306/(1.0*n);

pr[1] = cos(p);

pi[1] = -sin(p);

if (l!=0)

pi[1]=-pi[1];

for (i=2; i=n-1; i++)

{

p = pr[i-1]*pr[1];

q = pi[i-1]*pi[1];

s = (pr[i-1]+pi[i-1])*(pr[1]+pi[1]);

pr[i] = p-q;

pi[i] = s-p-q;

}

for (it=0; it=n-2; it=it+2)

{

vr = fr[it];

vi = fi[it];

fr[it] = vr+fr[it+1];

fi[it] = vi+fi[it+1];

fr[it+1] = vr-fr[it+1];

fi[it+1] = vi-fi[it+1];

}

m = n/2;

nv = 2;

for (l0=k-2; l0=0; l0--)

{

m = m/2;

nv = 2*nv;

for(it=0; it=(m-1)*nv; it=it+nv)

for (j=0; j=(nv/2)-1; j++)

{

p = pr[m*j]*fr[it+j+nv/2];

q = pi[m*j]*fi[it+j+nv/2];

s = pr[m*j]+pi[m*j];

s = s*(fr[it+j+nv/2]+fi[it+j+nv/2]);

poddr = p-q;

poddi = s-p-q;

fr[it+j+nv/2] = fr[it+j]-poddr;

fi[it+j+nv/2] = fi[it+j]-poddi;

fr[it+j] = fr[it+j]+poddr;

fi[it+j] = fi[it+j]+poddi;

}

}

/*逆傅立葉變換*/

if(l!=0)

{

for(i=0; i=n-1; i++)

{

fr[i] = fr[i]/(1.0*n);

fi[i] = fi[i]/(1.0*n);

}

}

/*是否計(jì)算模和相角*/

if(il!=0)

{

for(i=0; i=n-1; i++)

{

pr[i] = sqrt(fr[i]*fr[i]+fi[i]*fi[i]);

if(fabs(fr[i])0.000001*fabs(fi[i]))

{

if ((fi[i]*fr[i])0)

pi[i] = 90.0;

else

pi[i] = -90.0;

}

else

pi[i] = atan(fi[i]/fr[i])*360.0/6.283185306;

}

}

return;

}

名稱欄目：c語(yǔ)言傅里葉函數(shù) c語(yǔ)言實(shí)現(xiàn)傅里葉變換
標(biāo)題網(wǎng)址：http://www.chinadenli.net/article0/ddpshio.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設(shè)計(jì)公司、用戶體驗(yàn)、移動(dòng)網(wǎng)站建設(shè)、標(biāo)簽優(yōu)化、網(wǎng)站排名、全網(wǎng)營(yíng)銷推廣

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)