如何用自編RSI函數(shù)表示RSI值的增大或降低? [開拓者 TB]
-
咨詢內(nèi)容:
完全復(fù)制系統(tǒng)的RSI做了個自編RSI函數(shù): RSIvalue(length)
在我的一個交易策略中需要用到“前一根K線的RSI值比前面第二根K線的RSI值變大了”作為判斷條件,
if(RSIvalue[1](length)>RSIvalue[2](length))
{
}
這樣表示可以嗎?
//------------------------------------------------------------------------
// 簡稱: RSIvalue
// 名稱: 計(jì)算RSI值
// 類別: 用戶函數(shù)
// 類型: 用戶函數(shù)
// 輸出: 數(shù)值型
//------------------------------------------------------------------------
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技術(shù)人員:
自已頂一下。
或者我將RSI的自編函數(shù)中的Close用Close[1]表示,如下:
//------------------------------------------------------------------------
// 簡稱: RSIvalue
// 名稱: 計(jì)算RSI值
// 類別: 用戶函數(shù)
// 類型: 用戶函數(shù)
// 輸出: 數(shù)值型
//------------------------------------------------------------------------
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))
{
}
但我實(shí)際在編譯這個RSI自編函數(shù)時無法通過編譯(將原RSI中的Close改成Close[1]之后,無法通過編譯了)?
-
TB客服:
自已頂一下。
或者我將RSI的自編函數(shù)中的Close用Close[1]表示,如下:
//------------------------------------------------------------------------
// 簡稱: RSIvalue
// 名稱: 計(jì)算RSI值
// 類別: 用戶函數(shù)
// 類型: 用戶函數(shù)
// 輸出: 數(shù)值型
//------------------------------------------------------------------------
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))
{
}
但我實(shí)際在編譯這個RSI自編函數(shù)時無法通過編譯(將原RSI中的Close改成Close[1]之后,無法通過編譯了)?
-
網(wǎng)友回復(fù):
自已頂一下。
或者我將RSI的自編函數(shù)中的Close用Close[1]表示,如下:
//------------------------------------------------------------------------
// 簡稱: RSIvalue
// 名稱: 計(jì)算RSI值
// 類別: 用戶函數(shù)
// 類型: 用戶函數(shù)
// 輸出: 數(shù)值型
//------------------------------------------------------------------------
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))
{
}
但我實(shí)際在編譯這個RSI自編函數(shù)時無法通過編譯(將原RSI中的Close改成Close[1]之后,無法通過編譯了)?
- 網(wǎng)友回復(fù):
或者我將RSI的自編函數(shù)中的Close用Close[1]表示,如下:
//------------------------------------------------------------------------
// 簡稱: RSIvalue
// 名稱: 計(jì)算RSI值
// 類別: 用戶函數(shù)
// 類型: 用戶函數(shù)
// 輸出: 數(shù)值型
//------------------------------------------------------------------------
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))
{
}
但我實(shí)際在編譯這個RSI自編函數(shù)時無法通過編譯(將原RSI中的Close改成Close[1]之后,無法通過編譯了)
有思路,想編寫各種指標(biāo)公式,程序化交易模型,選股公式,預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 511411198 進(jìn)行 有償 編寫!(不貴!點(diǎn)擊查看價格!)
相關(guān)文章
-
沒有相關(guān)內(nèi)容