如何將Multicharts的RSI公式轉為VBA程式碼

change861

各位大大們

我原先想將MC上的策略轉成VBA，但是發現RSI算出來的數值跟MC上有落差，發現他的公式跟網路上流傳的方式似乎不一樣，有沒有人可以幫我解釋MC的RSI公式或告訴我轉為VBA會是怎樣的嘛？

附上MC內建RSI函數

inputs:
        PriceValue( numericseries ),
        Len( numericsimple ) ;                                             

variables:
        var0( 0 ),
        var1( 0 ),
        var2( 0 ),
        var3( 1 / Len ),                     
        var4( 0 ) ;

if CurrentBar = 1 then
        begin
        var0 = ( PriceValue - PriceValue[Len] ) / Len ;
        var1 = Average( AbsValue( PriceValue - PriceValue[1] ), Len ) ;
        end
else
        begin
        var2 = PriceValue - PriceValue[1] ;
        var0 = var0[1] + var3 * ( var2 - var0[1] ) ;
        var1 = var1[1] + var3 * ( AbsValue( var2 ) - var1[1] ) ;
        end ;

if var1 <> 0 then
        var4 = var0 / var1
else
        var4 = 0 ;

RSI = 50 * ( var4 + 1 ) ;

MC的RSI是從TS來的，看TS的比較好懂，為何與原版不同注解已經說明得很清楚了

change861

我已經知道了，以上沒問題，謝謝回答得大大