| 以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://www.weistock.com/bbs/index.asp) -- 高级功能研发区 (http://www.weistock.com/bbs/list.asp?boardid=5) ---- [求助]sma函数在VBA中怎么写 (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=2302) |
| -- 作者：明心 -- 发布时间：2010/7/30 15:00:01 -- [求助]sma函数在VBA中怎么写 sma函数在VBA中怎么写 |
| -- 作者：admin -- 发布时间：2010/7/30 15:30:54 -- 不建议再VBA里自己写函数，实在需要请参考 http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=2060&page=2
|
| -- 作者：明心 -- 发布时间：2010/7/30 15:43:05 -- 看到了，谢谢了。 |
| -- 作者：wattwei -- 发布时间：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 |
| -- 作者：明心 -- 发布时间：2010/8/1 10:36:22 -- 太牛了。都是高手啊。呵呵
|