龙听期货论坛 » MC&PL关键字大全 » 【ADX函数】使用方法

龙听 发表于 2021-12-18 14:36

【ADX函数】使用方法

ADX
返回证券的平均定向波动指标 (DMI)。语法[p=30, 2, left][color=#800080]ADX[/color](Length)[/p]返回（双精度数）
当前柱状线的正数值。参数[table]
[tr][td]名称[/td][td]类型[/td][td]说明[/td][/tr]
[tr][td]Length [/td][td]数值[/td][td]设置平均定向波动指标计算要考虑的柱状线数量。[/td][/tr]
[/table]备注
[color=#800080]ADX[/color] 尝试独立于方向衡量证券的趋势质量。[color=#800080]ADX[/color] 值越大，则证券趋势越明显。
[url="]DirMovement[/url] 函数计算 DMI 和 ADX 值。
Length 输入参数的值应该始终是一个整数。示例
将 [color=#800080]ADX[/color] 赋予 [color=#800000]Value1[/color]，其中 ADX 长度为 14 根柱状线，然后绘制 [color=#800000]Value1[/color]：[p=30, 2, left]Value1 = [color=#800080]ADX[/color](14);[/p][p=30, 2, left][color=#0000ff]Plot1[/color](Value1, "ADX");[/p]

龙听 发表于 2021-12-18 14:38

ADX函数程式码：[code]
inputs:
        Len( numericsimple ) ;                                             
variables:
        var0( 0 ),
        var1( 0 ),
        var2( 0 ),
        var3( 0 ),
        var4( 0 ),
        var5( 0 ) ;

Value1 = DirMovement( H, L, C, Len, var0, var1, var2, var3, var4,
var5 ) ;

ADX = var3 ;
[/code]DirMovement函数程式码：[code]
inputs:
        PriceValueH( numericseries ),
        PriceValueL( numericseries ),
        PriceValueC( numericseries ),
        Len( numericsimple ),                                             
        oDMIPlus( numericref ),
        oDMIMinus( numericref ),
        oDMI( numericref ),
        oADX( numericref ),
        oADXR( numericref ),
        oVolty( numericref ) ;

variables:
        var0( 0 ),
        var1( 0 ),
        var2( 0 ),
        var3( 0 ),
        var4( 0 ),
        var5( 0 ),
        var6( 0 ),
        var7( 0 ),
        var8( 0 ),
        var9( 1 / Len ),                     
        var10( 0 ) ;

if CurrentBar = 1 then
        begin
        for Value1 = 0 to Len - 1
                begin
                var0 = 0 ;
                var1 = 0 ;
                var2 = PriceValueH[Value1] - PriceValueH[ Value1 + 1 ] ;
                var3 = PriceValueL[ Value1 + 1 ] - PriceValueL[Value1] ;
                condition1 = var2 > var3 and var2 > 0 ;
                if condition1 then
                        var0 = var2
                else
                begin
                condition1 = var3 > var2 and var3 > 0 ;
                if condition1 then
                        var1 = var3 ;
                        end;
                var4 = var4 + var0 ;
                var5 = var5 + var1 ;
                var6 = var6 + TrueRangeCustom( PriceValueH, PriceValueL, PriceValueC )[Value1] ;
                end ;
        var7 = var4 / Len ;
        var8 = var5 / Len ;
        oVolty = var6 / Len ;
        end
else
        begin
        var0 = 0 ;
        var1 = 0 ;
        var2 = PriceValueH - PriceValueH[1] ;
        var3 = PriceValueL[1] - PriceValueL ;
        condition1 = var2 > var3 and var2 > 0 ;
        if condition1 then
                var0 = var2
        else
        begin
        condition1 = var3 > var2 and var3 > 0 ;
        if condition1 then
                var1 = var3 ;
                end;
        var7 = var7[1] + var9 * ( var0 - var7[1] ) ;
        var8 = var8[1] + var9 * ( var1 - var8[1] ) ;
        oVolty = oVolty[1] + var9 * ( TrueRangeCustom( PriceValueH, PriceValueL, PriceValueC )
         - oVolty[1] ) ;
        end ;

if oVolty > 0 then
        begin
        oDMIPlus = 100 * var7 / oVolty ;
        oDMIMinus = 100 * var8 / oVolty ;
        end
else
        begin
        oDMIPlus = 0 ;
        oDMIMinus = 0 ;
        end ;

var10 = oDMIPlus + oDMIMinus ;
if var10 > 0 then
        oDMI = 100 * AbsValue( oDMIPlus - oDMIMinus ) / var10
else
        oDMI = 0 ;

condition1 = CurrentBar <= Len and CurrentBar > 0 ;
if condition1 then
        begin
        oADX = Cum( oDMI ) / CurrentBar ;                                                              

        oADXR = ( oADX + oADX[ CurrentBar - 1 ] ) * .5 ;
                                                                                        
        end
else
        begin
        oADX = oADX[1] + var9 * ( oDMI - oADX[1] ) ;
        oADXR = ( oADX + oADX[ Len - 1 ] ) * .5 ;
        end ;

DirMovement = 1 ;
[/code]

查看完整版本: 【ADX函数】使用方法