欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 公式模型编写问题提交 → 傅里叶变换

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有2618人关注过本帖平板打印复制链接

主题：傅里叶变换
帅哥哟，离线，有人找我吗？
gerrypan
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：30 积分：0 威望：0 精华：0 注册：2018/8/28 17:56:52 		傅里叶变换  发帖心情 Post By：2020/8/20 16:35:19    Post IP：218.81.49.254[只看该作者]

T:=16; //16点信号变换
VARIABLE : x[T]=(15, 32, 9, 222, 118, 151, 5, 7, 56, 233, 56, 121, 235, 89, 98, 111);
VARIABLE : y[T*2]=0;  //以复数方式返回结果，因此需要2倍容量
If IsLastbar Then
 Begin
        MFFFT(x,y,T,0);
          w:2*3.14/T ;
         ft1:=0;
    
        for j=1 to T do begin
        for i = 0 to T - 1 do begin
     
ft1:=ft1 + y[i * 2]*cos(i*w * j)/T + y[i * 2 + 1]*sin(i*w*j)/T;
end;
msgout(1,NUMTOSTR(ft1 / T,5));
end;
End

结果 ：
2020/08/20 16:30:57  5.85846
2020/08/20 16:30:57  10.70716
2020/08/20 16:30:57  21.31674
2020/08/20 16:30:57  24.41963
2020/08/20 16:30:57  32.06571
2020/08/20 16:30:57  37.75488
2020/08/20 16:30:57  41.76019
2020/08/20 16:30:57  48.59118
2020/08/20 16:30:57  52.76111
2020/08/20 16:30:57  58.53273
2020/08/20 16:30:57  66.14874
2020/08/20 16:30:57  69.21599
2020/08/20 16:30:57  79.82165
2020/08/20 16:30:57  84.64967
2020/08/20 16:30:57  90.49294
2020/08/20 16:30:57  97.42217

不太对啊。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.06250 秒, 6 次数据查询