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

     


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

    相關文章

      沒有相關內容
      人妻专区免费视频,俄罗斯啪啪到高潮喷水,国色天香社区直播在线观看
  • <menu id="iiemy"><menu id="iiemy"></menu></menu>