【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] 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]
页:
[1]