如何用自編RSI函數表示RSI值的增大或降低? [開拓者 TB]
-
咨詢內容:
完全復制系統的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]之后,無法通過編譯了)?
- 網友回復:
或者我將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]之后,無法通過編譯了)
有思路,想編寫各種指標公式,程序化交易模型,選股公式,預警公式的朋友
可聯系技術人員 QQ: 511411198 進行 有償 編寫!(不貴!點擊查看價格!)
相關文章
-
沒有相關內容