开发工具:
文件大小: 34mb
下载次数: 0
上传时间: 2012-12-09
详细说明： //在此采用的是时间抽选奇偶分解方式，所以在参加运算前首先要对时间序列进行倒序 ReverseOrder(N,pAData); int L=1; while(L<=M) { LE=(int)pow(2.0,L); LE1=LE/2; U.Re=1.0f; U.Im=0.0f; W.Re=(double)cos(PI/(1.0*LE1));//计算W算子的值 W.Im=(double)-1.0*sin(PI/(1.0*LE1)); if(fabs(W.Re)<1.0e-12) W.Re=0.0f; if(fabs(W.Im)<1.0e-12) W.Im=0.0f; J=1; while(J<=LE1) { I=J; while(I<=N) { IP=I+LE1; T.Re=(double)A[IP-1].Re*U.Re-A[IP-1].Im*U.Im;//计算复数运算A*U T.Im=(double)A[IP-1].Re*U.Im+A[IP-1].Im*U.Re; A[IP-1].R e=(double)A[I-1].Re-T.Re;//计算复数运算A-T A[IP-1].Im=(double)A[I-1].Im-T.Im; A[I-1].Re+=T.Re;//计算复数运算A+T A[I-1].Im+=T.Im; I+=LE; } double temp=U.Re; U.Re=(double)U.Re*W.Re-U.Im*W.Im;//计算复数运算U*W U.Im=(double)temp*W.Im+U.Im*W.Re; J++; } L++; } } ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
