• <em id="n4cqa"><acronym id="n4cqa"></acronym></em>

    <tbody id="n4cqa"></tbody>

    <tbody id="n4cqa"></tbody>

      <progress id="n4cqa"><track id="n4cqa"><video id="n4cqa"></video></track></progress>
      您現在的位置:程序化交易>> 期貨公式>> 交易開拓者(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  點擊這里給我發消息進行 有償 編寫!不貴!點擊查看價格!

       


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

      相關文章

        沒有相關內容
        国产高潮流白浆免费观看
    1. <em id="n4cqa"><acronym id="n4cqa"></acronym></em>

      <tbody id="n4cqa"></tbody>

      <tbody id="n4cqa"></tbody>

        <progress id="n4cqa"><track id="n4cqa"><video id="n4cqa"></video></track></progress>