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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 用VBA写的EMA函数，好像不行啊，请老大提示一下啊：

   

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

  共有8789人关注过本帖树形打印复制链接

主题：用VBA写的EMA函数，好像不行啊，请老大提示一下啊：
帅哥哟，离线，有人找我吗？
msedu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：232 积分：1256 威望：0 精华：0 注册：2010/4/24 21:58:28 		用VBA写的EMA函数，好像不行啊，请老大提示一下啊：  发帖心情 Post By：2010/7/7 18:51:31 [显示全部帖子]

Function Ema2(Formula,N)
'--------------------------------
Set History=Formula.ParentGrid.GetHistoryData()
'-----------------------------
'如果有效数据不足，则返回值为：0，并退出函数
If History.Count<N Then
Ema2=0
Exit Function
End If
'--------------------------------
If N>=1 THEN
Y=(2*History.Close(N-1)+(N-1)*Ema2(N-1))/(N+1)
Else
Y=0
End If
'返回值
Ema2=Y
End Function

 回到顶部
帅哥哟，离线，有人找我吗？
msedu
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：232 积分：1256 威望：0 精华：0 注册：2010/4/24 21:58:28 		“后台下单模板”，可用于各种模型。不会写后台模型的塔友，以后不用写了，复制此模板即OK  发帖心情 Post By：2010/7/7 22:30:52 [显示全部帖子]

又写了一个，还是不对呢！

 

'自定义Ema函数
Function Ema2(Formula,N)
Set History=Formula.ParentGrid.GetHistoryData()
If History.Count<N Then
Ema2=0
Exit Function
End If
Y=1
For i=1 To N-1
Y=(2*History.Close(History.Count-1-N+i)+i*Y)/(i+1)
Next
Ema2=Y
End Function
 回到顶部
帅哥哟，离线，有人找我吗？
msedu
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：232 积分：1256 威望：0 精华：0 注册：2010/4/24 21:58:28 		  发帖心情 Post By：2010/7/8 10:19:10 [显示全部帖子]

呵呵，老大，是这样的呢，我本来是要在VBA里写一个EMA，供其他Function使用的，但是我先在自定义函数里写一个，试验一下，N，是就是周期，没错呢，：-）

 

呵呵，快帮帮忙呀，：-）
 回到顶部
帅哥哟，离线，有人找我吗？
msedu
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：232 积分：1256 威望：0 精华：0 注册：2010/4/24 21:58:28 		  发帖心情 Post By：2010/7/8 13:22:20 [显示全部帖子]

明白了，理解完全错误啊。。。

谢谢老大啊，俺，又学了一招，：-）
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 00.03906 秒, 6 次数据查询