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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → [求助]sma函数在VBA中怎么写

   

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


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

主题:[求助]sma函数在VBA中怎么写

帅哥哟,离线,有人找我吗?
明心
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:274 积分:841 威望:0 精华:10 注册:2010/7/12 15:25:05
[求助]sma函数在VBA中怎么写  发帖心情 Post By:2010/7/30 15:00:01 [只看该作者]

sma函数在VBA中怎么写

 回到顶部
帅哥哟,离线,有人找我吗?
admin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:7302 积分:32559 威望:1000 精华:45 注册:2003/12/30 16:34:32
  发帖心情 Post By:2010/7/30 15:30:54 [只看该作者]

不建议再VBA里自己写函数,实在需要请参考

http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=2060&page=2

 


 回到顶部
帅哥哟,离线,有人找我吗?
明心
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:274 积分:841 威望:0 精华:10 注册:2010/7/12 15:25:05
  发帖心情 Post By:2010/7/30 15:43:05 [只看该作者]

看到了,谢谢了。      

 回到顶部
帅哥哟,离线,有人找我吗?
wattwei
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游侠 帖子:574 积分:3167 威望:0 精华:0 注册:2009/10/10 11:13:01
  发帖心情 Post By:2010/7/30 16:09:57 [只看该作者]

 'SMA(X,N,M)求X的N个周期内的移动平均。M为权重。
'计算方法:SMA(N)=SMA(N-1)*(N-M)/N+X(N)*M/N
'举例求rb01的日线收盘价的SMA
sub test()
    code="rb01"
    market="sq"
    mode=5
    set history=marketdata.GetHistoryData(code,market,mode)
    
    N=5
    M=2
    sma=0
    for i=0 to history.Count-1
        sma=(sma*(N-M)+history.Close(i)*M)/N
    next
    msgbox sma
end sub

版主评定:好评,获得10个金币奖励好评,获得10个金币奖励
(理由:好文章)
 回到顶部
帅哥哟,离线,有人找我吗?
明心
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:274 积分:841 威望:0 精华:10 注册:2010/7/12 15:25:05
  发帖心情 Post By:2010/8/1 10:36:22 [只看该作者]

太牛了。都是高手啊。呵呵

 


 回到顶部