<ins id="d3tjn"><th id="d3tjn"><delect id="d3tjn"></delect></th></ins>

        <strike id="d3tjn"><span id="d3tjn"><ol id="d3tjn"></ol></span></strike>

        <output id="d3tjn"></output>

            您現在的位置:程序化交易>> 期貨公式>> 交易開拓者(TB)>> 開拓者公式>>正文內容

            開拓者TB實現DMI指標[開拓者公式]

            1、新建一個用戶函數,取名為DirMovement,設置返回值為布爾型!
            代碼如下:

            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、新建技術指標,取名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
            ?

            ?

             

            有思路,想編寫各種指標公式,程序化交易模型,選股公式,預警公式的朋友

            可聯系技術人員 QQ: 1145508240  點擊這里給我發消息進行 有償 編寫!不貴!點擊查看價格!

             


            【字體: 】【打印文章】【查看評論

            相關文章

              沒有相關內容
              男男乱J伦高H小说

                <ins id="d3tjn"><th id="d3tjn"><delect id="d3tjn"></delect></th></ins>

                  <strike id="d3tjn"><span id="d3tjn"><ol id="d3tjn"></ol></span></strike>

                  <output id="d3tjn"></output>