如何用自編RSI函數表示RSI值的增大或降低？

作者：開拓者 TB 來源：cxh99.com 發布時間：2018年11月24日

咨詢內容： 完全復制系統的RSI做了個自編RSI函數： RSIvalue(length)

在我的一個交易策略中需要用到“前一根K線的RSI值比前面第二根K線的RSI值變大了”作為判斷條件，

if(RSIvalue[1](length)>RSIvalue[2](length))
{
}

這樣表示可以嗎？

//------------------------------------------------------------------------
// 簡稱: RSIvalue
// 名稱: 計算RSI值
// 類別: 用戶函數
// 類型: 用戶函數
// 輸出: 數值型
//------------------------------------------------------------------------

Params
? ? ? ? Numeric Length(14) ;
Vars
? ? ? ? NumericSeries NetChgAvg( 0 );
? ? ? ? NumericSeries TotChgAvg( 0 );
? ? ? ? Numeric SF( 0 );
? ? ? ? Numeric Change( 0 );? ? ? ?
? ? ? ? Numeric ChgRatio( 0 ) ;
? ? ? ? NumericSeries RSIValue;
? ? ? ? NumericSeries CP;
Begin
? ? ? ? CP=Close;
? ? ? ? If(CurrentBar <= Length - 1)
? ? ? ? {
? ? ? ? ? ? ? ? NetChgAvg = ( CP - CP[Length] ) / Length ;
? ? ? ? ? ? ? ? TotChgAvg = Average( Abs( CP - CP[1] ), Length ) ;
? ? ? ? }Else
? ? ? ? {
? ? ? ? ? ? ? ? SF = 1/Length;
? ? ? ? ? ? ? ? Change = CP - CP[1] ;
? ? ? ? ? ? ? ? NetChgAvg = NetChgAvg[1] + SF * ( Change - NetChgAvg[1] ) ;
? ? ? ? ? ? ? ? TotChgAvg = TotChgAvg[1] + SF * ( Abs( Change ) - TotChgAvg[1] ) ;? ? ? ?
? ? ? ? }
? ? ? ?
? ? ? ? If( TotChgAvg <> 0 )
? ? ? ? {
? ? ? ? ? ? ? ? ChgRatio = NetChgAvg / TotChgAvg;
? ? ? ? }else
? ? ? ? {
? ? ? ? ? ? ? ? ChgRatio = 0 ;
? ? ? ? }? ? ? ?
? ? ? ? RSIValue = 50 * ( ChgRatio + 1 );? ? ? ?
? ? ? ? Return RSIValue;
End

//------------------------------------------------------------------------
?
?來源:CXH99.COM
TB技術人員： 自已頂一下。

或者我將RSI的自編函數中的Close用Close[1]表示，如下：
//------------------------------------------------------------------------
// 簡稱: RSIvalue
// 名稱: 計算RSI值
// 類別: 用戶函數
// 類型: 用戶函數
// 輸出: 數值型
//------------------------------------------------------------------------

Params
? ? ? ? Numeric Length(14) ;
Vars
? ? ? ? NumericSeries NetChgAvg( 0 );
? ? ? ? NumericSeries TotChgAvg( 0 );
? ? ? ? Numeric SF( 0 );
? ? ? ? Numeric Change( 0 );? ? ? ?
? ? ? ? Numeric ChgRatio( 0 ) ;
? ? ? ? NumericSeries RSIValue;
? ? ? ? NumericSeries CP;
Begin
? ? ? ? CP=Close[1];//修改了
? ? ? ? If(CurrentBar <= Length - 1)
? ? ? ? {
? ? ? ? ? ? ? ? NetChgAvg = ( CP - CP[Length] ) / Length ;
? ? ? ? ? ? ? ? TotChgAvg = Average( Abs( CP - CP[1] ), Length ) ;
? ? ? ? }Else
? ? ? ? {
? ? ? ? ? ? ? ? SF = 1/Length;
? ? ? ? ? ? ? ? Change = CP - CP[1] ;
? ? ? ? ? ? ? ? NetChgAvg = NetChgAvg[1] + SF * ( Change - NetChgAvg[1] ) ;
? ? ? ? ? ? ? ? TotChgAvg = TotChgAvg[1] + SF * ( Abs( Change ) - TotChgAvg[1] ) ;? ? ? ?
? ? ? ? }
? ? ? ?
? ? ? ? If( TotChgAvg <> 0 )
? ? ? ? {
? ? ? ? ? ? ? ? ChgRatio = NetChgAvg / TotChgAvg;
? ? ? ? }else
? ? ? ? {
? ? ? ? ? ? ? ? ChgRatio = 0 ;
? ? ? ? }? ? ? ?
? ? ? ? RSIValue = 50 * ( ChgRatio + 1 );? ? ? ?
? ? ? ? Return RSIValue;
End

//------------------------------------------------------------------------

然后if條件可以這樣寫了：
if(RSIvalue(length)>RSIvalue(length))
{
}

但我實際在編譯這個RSI自編函數時無法通過編譯（將原RSI中的Close改成Close[1]之后，無法通過編譯了）
?
TB客服： 自已頂一下。

或者我將RSI的自編函數中的Close用Close[1]表示，如下：
//------------------------------------------------------------------------
// 簡稱: RSIvalue
// 名稱: 計算RSI值
// 類別: 用戶函數
// 類型: 用戶函數
// 輸出: 數值型
//------------------------------------------------------------------------

Params
? ? ? ? Numeric Length(14) ;
Vars
? ? ? ? NumericSeries NetChgAvg( 0 );
? ? ? ? NumericSeries TotChgAvg( 0 );
? ? ? ? Numeric SF( 0 );
? ? ? ? Numeric Change( 0 );? ? ? ?
? ? ? ? Numeric ChgRatio( 0 ) ;
? ? ? ? NumericSeries RSIValue;
? ? ? ? NumericSeries CP;
Begin
? ? ? ? CP=Close[1];//修改了
? ? ? ? If(CurrentBar <= Length - 1)
? ? ? ? {
? ? ? ? ? ? ? ? NetChgAvg = ( CP - CP[Length] ) / Length ;
? ? ? ? ? ? ? ? TotChgAvg = Average( Abs( CP - CP[1] ), Length ) ;
? ? ? ? }Else
? ? ? ? {
? ? ? ? ? ? ? ? SF = 1/Length;
? ? ? ? ? ? ? ? Change = CP - CP[1] ;
? ? ? ? ? ? ? ? NetChgAvg = NetChgAvg[1] + SF * ( Change - NetChgAvg[1] ) ;
? ? ? ? ? ? ? ? TotChgAvg = TotChgAvg[1] + SF * ( Abs( Change ) - TotChgAvg[1] ) ;? ? ? ?
? ? ? ? }
? ? ? ?
? ? ? ? If( TotChgAvg <> 0 )
? ? ? ? {
? ? ? ? ? ? ? ? ChgRatio = NetChgAvg / TotChgAvg;
? ? ? ? }else
? ? ? ? {
? ? ? ? ? ? ? ? ChgRatio = 0 ;
? ? ? ? }? ? ? ?
? ? ? ? RSIValue = 50 * ( ChgRatio + 1 );? ? ? ?
? ? ? ? Return RSIValue;
End

//------------------------------------------------------------------------

然后if條件可以這樣寫了：
if(RSIvalue(length)>RSIvalue(length))
{
}

但我實際在編譯這個RSI自編函數時無法通過編譯（將原RSI中的Close改成Close[1]之后，無法通過編譯了）
?
網友回復： 自已頂一下。

或者我將RSI的自編函數中的Close用Close[1]表示，如下：
//------------------------------------------------------------------------
// 簡稱: RSIvalue
// 名稱: 計算RSI值
// 類別: 用戶函數
// 類型: 用戶函數
// 輸出: 數值型
//------------------------------------------------------------------------

Params
? ? ? ? Numeric Length(14) ;
Vars
? ? ? ? NumericSeries NetChgAvg( 0 );
? ? ? ? NumericSeries TotChgAvg( 0 );
? ? ? ? Numeric SF( 0 );
? ? ? ? Numeric Change( 0 );? ? ? ?
? ? ? ? Numeric ChgRatio( 0 ) ;
? ? ? ? NumericSeries RSIValue;
? ? ? ? NumericSeries CP;
Begin
? ? ? ? CP=Close[1];//修改了
? ? ? ? If(CurrentBar <= Length - 1)
? ? ? ? {
? ? ? ? ? ? ? ? NetChgAvg = ( CP - CP[Length] ) / Length ;
? ? ? ? ? ? ? ? TotChgAvg = Average( Abs( CP - CP[1] ), Length ) ;
? ? ? ? }Else
? ? ? ? {
? ? ? ? ? ? ? ? SF = 1/Length;
? ? ? ? ? ? ? ? Change = CP - CP[1] ;
? ? ? ? ? ? ? ? NetChgAvg = NetChgAvg[1] + SF * ( Change - NetChgAvg[1] ) ;
? ? ? ? ? ? ? ? TotChgAvg = TotChgAvg[1] + SF * ( Abs( Change ) - TotChgAvg[1] ) ;? ? ? ?
? ? ? ? }
? ? ? ?
? ? ? ? If( TotChgAvg <> 0 )
? ? ? ? {
? ? ? ? ? ? ? ? ChgRatio = NetChgAvg / TotChgAvg;
? ? ? ? }else
? ? ? ? {
? ? ? ? ? ? ? ? ChgRatio = 0 ;
? ? ? ? }? ? ? ?
? ? ? ? RSIValue = 50 * ( ChgRatio + 1 );? ? ? ?
? ? ? ? Return RSIValue;
End

//------------------------------------------------------------------------

然后if條件可以這樣寫了：
if(RSIvalue(length)>RSIvalue(length))
{
}

但我實際在編譯這個RSI自編函數時無法通過編譯（將原RSI中的Close改成Close[1]之后，無法通過編譯了）
?
網友回復：