用TB实现DMI指标！

stevenx8

学习，支持版主把一些常用指标用TB实现啊。

好像，ADX、ADXR的计算有问题：你用的参数仍然是Numeric Length(14);应该是不同，楼主查查看。问题应该出在DirMovement函数上，不知我的理解对否？

[ 本帖最后由 stevenx8 于 2008-2-14 23:17 编辑 ]

stevenx8

原帖由 nopain 于 2008-2-15 09:28 发表
默认是相同的，您想设置成不同，增加一个参数就可以了

请教：是不是这样修改

Params
        Numeric Length(14);
        Numeric Length2(6);
Vars
        NumericSeries oDMIPlus( 0 );
        NumericSeries oDMIMinus( 0 );
        Numeric oDMI( 0 );
        Numeric oADX( 0 );
        Numeric oADXR( 0 );
        Numeric oVolty( 0 );
        NumericSeries nTrend(0);
Begin
        DirMovement(Length, Length2, oDMIPlus, oDMIMinus, oDMI, oADX, oADXR, oVolty ) ;
        PlotNumeric( "DMI+" ,oDMIPlus);
        PlotNumeric( "DMI-" ,oDMIMinus);
        PlotNumeric( "ADX" ,oADX);
        PlotNumeric( "ADXR" ,oADXR);
End

DirMovement函数
Params
        Numeric Length(14);
                Numeric Length2(6);
        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 SF2;                       // smoothing factor2
        Numeric Divisor;
        Numeric i;
        NumericSeries TRValue;
Begin
        SF = 1/length;
        SF2 = 1/length2;
（这部分相同省略）

        if(CurrentBar > 0)
        {
                if (CurrentBar <= Length)
                {
                        sADX = Cum( sDMI ) / CurrentBar ;
                        oADXR = ( sADX + sADX[ CurrentBar - 1 ] ) * 0.5 ;
                }else  
                {
                        sADX = sADX[1] + SF2 * ( sDMI - sADX[1] ) ;
                        oADXR = ( sADX + sADX[ Length2 - 1 ] ) * 0.5 ;
                }
        }
        oVolty = sVolty;
        oDMI = sDMI;
        oADX = sADX;
        Return True;
End

stevenx8

原帖由 nopain 于 2008-2-15 16:16 发表
应该就是这样

谢谢你的及时回复！

stevenx8

原帖由 小米 于 2008-2-15 16:49 发表
stevenx8  
      现在对自己信心大增了吧

慢慢有那么点，呵呵！以后多请教你们。