- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
信号分析与处理,离散傅里叶变换与反变换
#includemath.h
#includestdio.h
#define swap(a,b) ; T=(a); (a)=(b); (b)=T
void Ifft(float A[],float B[],unsigned M);
main()
{
float A[1024],B[1024];
unsigned long N,I ;
unsigned M ;
printf(input M=);
scanf(%d,M);
N=1M ;
printf(\n);
printf(input A[]:);
for(I=0;IN;I++)
scanf(%f,A[I]);
printf(input B[]:);
for(I=0;IN;I++)
scanf(%f,B[I]);
Ifft(A,B,M);
printf(the results of FFT is A[I]+jB[I]:\n);
printf(\n);
for(I=0;IN;I++)
printf(%.3f+j(%.3f)\n,A[I]/N,B[I]/N);
printf(\n);
}
void Ifft(float A[],float B[],unsigned M)
{
unsigned long N,I,J,K,L,LE,LE1,P,Q,R ;
float Wr,Wi,W1r,W1i,WTr,WTi,theta,Tr,Ti ;
N=1M ;
J=0 ;
for(I=0;IN-1;I++)
{
if(JI)
{ float T;
swap(A[I],A[J]);
swap(B[I],B[J]);
}
K=N1 ;
while(K=2J=K)
{
J-=K ;
K=1 ;
}
J+=K ;
}
for(L=1;L=M;L++)
{
LE=1L ;
LE1=LE/2 ;
Wr=1.0 ;
Wi=0.0 ;
theta=-3.1415926536/LE1 ;
W1r=cos(theta);
W1i=sin(theta);
for(R=0;RLE1;R++)
{
for(P=R;PN-1;P+=LE)
{
Q=P+LE1 ;
Tr=Wr*A[Q]-Wi*B[Q];
Ti=Wr*B[Q]+Wi*A[Q];
A[Q]=A[P]-Tr ;
B[Q]=B[P]-Ti ;
A[P]+=Tr ;
B[P]+=Ti ;
}
WTr=Wr ;
WTi=Wi ;
Wr=WTr*W1r-WTi*W1i ;
Wi=WTr*W1i+WTi*W1r ;
}
}
return ;
}
#includemath.h
#includestdio.h
#define swap(a,b) ; T=(a); (a)=(b); (b)=T
void Ifft(float A[],float B[],unsigned M);
main()
{
float A[1024],B[1024];
unsigned long N,I ;
unsigned M ;
printf(input M=);
scanf(%d,M);
N=1M ;
printf(\n);
printf(input A[]:);
for(I=0;IN;I++)
scanf(%f,A[I]);
printf(input B[]:);
for(I=0;IN;I++)
scanf(%f,B[I]);
Ifft(A,B,M);
printf(the res
您可能关注的文档
最近下载
- 中级财政税收-中级经济师《财政税收实务》押题密卷2.docx VIP
- 陕西煤业化工集团有限责任公司生产安全事故应急预案(1).pptx VIP
- DB65T 4929-2025儿童福利机构 义务教育阶段重度残疾儿童少年送教上门服务指南.docx VIP
- 建筑抗震支吊架通用技术条件.pdf VIP
- 医学基础知识复习资料.docx VIP
- 全口义齿汇总.ppt VIP
- 如何购买电脑.pptx VIP
- 急性一氧化碳中毒诊治专家共识.pptx VIP
- (正式版)DB65∕T 4929-2025 《儿童福利机构 义务教育阶段重度残疾儿童少年送教上门服务指南》.docx VIP
- 《混凝土外观质量缺陷及治理措施》ppt课件模板.ppt VIP
原创力文档


文档评论(0)