标题：用VBA写的EMA函数，好像不行啊，请老大提示一下啊：

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

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

 

'自定义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

等我有空帮你改改吧,你的逻辑有严重问题

有个问题你没说清楚,Ema2是你的自定义函数,还是你做的VBA的一个另外的函数,如果是VBA的函数,那么你需要说明Ema2的N是什么?周期?

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

 

呵呵，快帮帮忙呀，：-）

CYC是表示取第周期的值， N是EMA函数里的N

Function EMA3(Formula,CYC,N)
    Set History=Formula.ParentGrid.GetHistoryData()
 Y=History.Close(0)
 For i=1 To CYC
  Y=(2*History.Close(i)+(N-1)*Y)/(N+1)
 Next
 Ema3=Y
End Function

 

如果创建一个自定义函数EMA2

Function EMA2(Formula,N)
    EMA2 = EMA3(formula,formula.indexdata,n)
End Function

 

公式里这些调用测试

aa:ema(close,30);
bb:ema2(30);

 

与系统EMA结果完全一致

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

谢谢老大啊，俺，又学了一招，：-）

感谢 admin

 

本来让错误搞的一头雾水，看完才明白原来所有数据都要从头遍历一遍

 

以前只是像MA计算一样，只是用固定周期的数据，得出的结果很不一致，现在一致了