開拓者TB實(shí)現(xiàn)DMI指標(biāo)[開拓者公式]
1、新建一個(gè)用戶函數(shù)，取名為DirMovement，設(shè)置返回值為布爾型！
代碼如下：
Params
? ? ? ? Numeric Length(14);
? ? ? ? NumericRef oDMIPlus;
? ? ? ? NumericRef oDMIMinus;
? ? ? ? NumericRef oDMI;
? ? ? ? NumericRef oADX;
? ? ? ? NumericRef oADXR;
? ? ? ? NumericRef oVolty;
Vars
? ? ? ? NumericSeries sDMI;
? ? ? ? NumericSeries sADX;
? ? ? ? NumericSeries sVolty;
? ? ? ? Numeric PlusDM;
? ? ? ? Numeric MinusDM;
? ? ? ? Numeric UpperMove;
? ? ? ? Numeric LowerMove;
? ? ? ? Numeric SumPlusDM(0);
? ? ? ? Numeric SumMinusDM(0);
? ? ? ? Numeric SumTR(0);
? ? ? ? NumericSeries AvgPlusDM;
? ? ? ? NumericSeries AvgMinusDM;
? ? ? ? Numeric SF; ? ? ? ? ? ? ? ? ? ? ? ?// smoothing factor
? ? ? ? Numeric Divisor;
? ? ? ? Numeric i;
? ? ? ? NumericSeries TRValue;
Begin
? ? ? ? SF = 1/length;
? ? ? ? TRValue = TrueRange;
? ? ? ? If(CurrentBar == Length)
? ? ? ? {
? ? ? ? ? ? ? ? for i = 0 To Length - 1
? ? ? ? ? ? ? ? {
? ? ? ? ? ? ? ? ? ? ? ? PlusDM = 0 ;
? ? ? ? ? ? ? ? ? ? ? ? MinusDM = 0 ;
? ? ? ? ? ? ? ? ? ? ? ? UpperMove = High[i] - High[ i + 1 ] ;
? ? ? ? ? ? ? ? ? ? ? ? LowerMove = Low[ i + 1 ] - Low[i] ;
? ? ? ? ? ? ? ? ? ? ? ? if (UpperMove > LowerMove and UpperMove > 0 )
? ? ? ? ? ? ? ? ? ? ? ? {
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? PlusDM = UpperMove;
? ? ? ? ? ? ? ? ? ? ? ? }else if (LowerMove > UpperMove and LowerMove > 0)
? ? ? ? ? ? ? ? ? ? ? ? {
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? MinusDM = LowerMove ;
? ? ? ? ? ? ? ? ? ? ? ? }
? ? ? ? ? ? ? ? ? ? ? ? SumPlusDM = SumPlusDM + PlusDM ;
? ? ? ? ? ? ? ? ? ? ? ? SumMinusDM = SumMinusDM + MinusDM ;
? ? ? ? ? ? ? ? ? ? ? ? SumTR = SumTR + TRValue[i] ;
? ? ? ? ? ? ? ? }
? ? ? ? ? ? ? ? AvgPlusDM = SumPlusDM / Length ;
? ? ? ? ? ? ? ? AvgMinusDM = SumMinusDM / Length ;
? ? ? ? ? ? ? ? sVolty = SumTR / Length ;
? ? ? ? }Else if(CurrentBar > Length)
? ? ? ? {
? ? ? ? ? ? ? ? PlusDM = 0 ;
? ? ? ? ? ? ? ? MinusDM = 0 ;
? ? ? ? ? ? ? ? UpperMove = High - High[1] ;
? ? ? ? ? ? ? ? LowerMove = Low[1] - Low ;
? ? ? ? ? ? ? ? if (UpperMove > LowerMove and UpperMove > 0 )
? ? ? ? ? ? ? ? {
? ? ? ? ? ? ? ? ? ? ? ? PlusDM = UpperMove;
? ? ? ? ? ? ? ? }else if (LowerMove > UpperMove and LowerMove > 0 )
? ? ? ? ? ? ? ? {
? ? ? ? ? ? ? ? ? ? ? ? MinusDM = LowerMove ;
? ? ? ? ? ? ? ? }
? ? ? ? ? ? ? ? AvgPlusDM = AvgPlusDM[1] + SF * ( PlusDM - AvgPlusDM[1] ) ;
? ? ? ? ? ? ? ? AvgMinusDM = AvgMinusDM[1] + SF * ( MinusDM - AvgMinusDM[1] ) ;
? ? ? ? ? ? ? ? sVolty = sVolty[1] + SF * ( TRValue ?- sVolty[1] ) ;
? ? ? ? }Else
? ? ? ? {
? ? ? ? ? ? ? ? oDMIPlus = InvalidNumeric;
? ? ? ? ? ? ? ? oDMIMinus = InvalidNumeric;
? ? ? ? ? ? ? ? oDMI = InvalidNumeric;
? ? ? ? ? ? ? ? oADX = InvalidNumeric;
? ? ? ? ? ? ? ? oADXR = InvalidNumeric;
? ? ? ? ? ? ? ? oVolty = InvalidNumeric;
? ? ? ? ? ? ? ? Return True;
? ? ? ? }
? ? ? ??
? ? ? ? if (sVolty > 0)
? ? ? ? {
? ? ? ? ? ? ? ? oDMIPlus = 100 * AvgPlusDM / sVolty ;
? ? ? ? ? ? ? ? oDMIMinus = 100 * AvgMinusDM / sVolty ;
? ? ? ? }else
? ? ? ? {
? ? ? ? ? ? ? ? oDMIPlus = 0 ;
? ? ? ? ? ? ? ? oDMIMinus = 0 ;
? ? ? ? }
?
? ? ? ? Divisor = oDMIPlus + oDMIMinus ;
? ? ? ? if (Divisor > 0)
? ? ? ? {
? ? ? ? ? ? ? ? sDMI = 100 * Abs( oDMIPlus - oDMIMinus ) / Divisor;
? ? ? ? }else
? ? ? ? {
? ? ? ? ? ? ? ? sDMI = 0 ;
? ? ? ? }
?
? ? ? ? if(CurrentBar > 0)
? ? ? ? {
? ? ? ? ? ? ? ? if (CurrentBar <= Length)
? ? ? ? ? ? ? ? {
? ? ? ? ? ? ? ? ? ? ? ? sADX = Cum( sDMI ) / CurrentBar ;
? ? ? ? ? ? ? ? ? ? ? ? oADXR = ( sADX + sADX[ CurrentBar - 1 ] ) * 0.5 ;
? ? ? ? ? ? ? ? }else ?
? ? ? ? ? ? ? ? {
? ? ? ? ? ? ? ? ? ? ? ? sADX = sADX[1] + SF * ( sDMI - sADX[1] ) ;
? ? ? ? ? ? ? ? ? ? ? ? oADXR = ( sADX + sADX[ Length - 1 ] ) * 0.5 ;
? ? ? ? ? ? ? ? }
? ? ? ? }
? ? ? ? oVolty = sVolty;
? ? ? ? oDMI = sDMI;
? ? ? ? oADX = sADX;
? ? ? ? Return True;
End
?
?
?
?
2、新建技術(shù)指標(biāo)，取名DMI，代碼如下：
?
Params
? ? ? ? Numeric Length(14);
Vars
? ? ? ? Numeric oDMIPlus( 0 );
? ? ? ? Numeric oDMIMinus( 0 );
? ? ? ? Numeric oDMI( 0 );?
? ? ? ? Numeric oADX( 0 );
? ? ? ? Numeric oADXR( 0 );?
? ? ? ? Numeric oVolty( 0 );
Begin
? ? ? ? DirMovement(Length, oDMIPlus, oDMIMinus, oDMI, oADX, oADXR, oVolty ) ;
? ? ? ? PlotNumeric( "DMI+" ,oDMIPlus);
? ? ? ? PlotNumeric( "DMI-" ,oDMIMinus);
? ? ? ? PlotNumeric( "ADX" ,oADX);
End
?
?
有思路，想編寫各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 1145508240 進(jìn)行 有償 編寫！（不貴！點(diǎn)擊查看價(jià)格！）
相關(guān)文章
-
沒有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)