【ADX函数】使用方法

ADX
返回证券的平均定向波动指标 (DMI)。语法

ADX(Length)

返回（双精度数）
当前柱状线的正数值。参数

名称	类型	说明
Length	数值	设置平均定向波动指标计算要考虑的柱状线数量。

备注
ADX 尝试独立于方向衡量证券的趋势质量。ADX 值越大，则证券趋势越明显。
[url="]DirMovement[/url] 函数计算 DMI 和 ADX 值。
Length 输入参数的值应该始终是一个整数。示例
将 ADX 赋予 Value1，其中 ADX 长度为 14 根柱状线，然后绘制 Value1：

Value1 = ADX(14);

Plot1(Value1, "ADX");

ADX函数程式码：

1. inputs:
   
2.         Len( numericsimple ) ;                                             
   
3. variables:
   
4.         var0( 0 ),
   
5.         var1( 0 ),
   
6.         var2( 0 ),
   
7.         var3( 0 ),
   
8.         var4( 0 ),
   
9.         var5( 0 ) ;
   
10. 
    
11. Value1 = DirMovement( H, L, C, Len, var0, var1, var2, var3, var4,
    
12. var5 ) ;
    
13. 
    
14. ADX = var3 ;

复制代码

DirMovement函数程式码：

1. inputs:
   
2.         PriceValueH( numericseries ),
   
3.         PriceValueL( numericseries ),
   
4.         PriceValueC( numericseries ),
   
5.         Len( numericsimple ),                                             
   
6.         oDMIPlus( numericref ),
   
7.         oDMIMinus( numericref ),
   
8.         oDMI( numericref ),
   
9.         oADX( numericref ),
   
10.         oADXR( numericref ),
    
11.         oVolty( numericref ) ;
    
12. 
    
13. variables:
    
14.         var0( 0 ),
    
15.         var1( 0 ),
    
16.         var2( 0 ),
    
17.         var3( 0 ),
    
18.         var4( 0 ),
    
19.         var5( 0 ),
    
20.         var6( 0 ),
    
21.         var7( 0 ),
    
22.         var8( 0 ),
    
23.         var9( 1 / Len ),                     
    
24.         var10( 0 ) ;
    
25. 
    
26. if CurrentBar = 1 then
    
27.         begin
    
28.         for Value1 = 0 to Len - 1
    
29.                 begin
    
30.                 var0 = 0 ;
    
31.                 var1 = 0 ;
    
32.                 var2 = PriceValueH[Value1] - PriceValueH[ Value1 + 1 ] ;
    
33.                 var3 = PriceValueL[ Value1 + 1 ] - PriceValueL[Value1] ;
    
34.                 condition1 = var2 > var3 and var2 > 0 ;
    
35.                 if condition1 then
    
36.                         var0 = var2
    
37.                 else
    
38.                 begin
    
39.                 condition1 = var3 > var2 and var3 > 0 ;
    
40.                 if condition1 then
    
41.                         var1 = var3 ;
    
42.                         end;
    
43.                 var4 = var4 + var0 ;
    
44.                 var5 = var5 + var1 ;
    
45.                 var6 = var6 + TrueRangeCustom( PriceValueH, PriceValueL, PriceValueC )[Value1] ;
    
46.                 end ;
    
47.         var7 = var4 / Len ;
    
48.         var8 = var5 / Len ;
    
49.         oVolty = var6 / Len ;
    
50.         end
    
51. else
    
52.         begin
    
53.         var0 = 0 ;
    
54.         var1 = 0 ;
    
55.         var2 = PriceValueH - PriceValueH[1] ;
    
56.         var3 = PriceValueL[1] - PriceValueL ;
    
57.         condition1 = var2 > var3 and var2 > 0 ;
    
58.         if condition1 then
    
59.                 var0 = var2
    
60.         else
    
61.         begin
    
62.         condition1 = var3 > var2 and var3 > 0 ;
    
63.         if condition1 then
    
64.                 var1 = var3 ;
    
65.                 end;
    
66.         var7 = var7[1] + var9 * ( var0 - var7[1] ) ;
    
67.         var8 = var8[1] + var9 * ( var1 - var8[1] ) ;
    
68.         oVolty = oVolty[1] + var9 * ( TrueRangeCustom( PriceValueH, PriceValueL, PriceValueC )
    
69.          - oVolty[1] ) ;
    
70.         end ;
    
71. 
    
72. if oVolty > 0 then
    
73.         begin
    
74.         oDMIPlus = 100 * var7 / oVolty ;
    
75.         oDMIMinus = 100 * var8 / oVolty ;
    
76.         end
    
77. else
    
78.         begin
    
79.         oDMIPlus = 0 ;
    
80.         oDMIMinus = 0 ;
    
81.         end ;
    
82. 
    
83. var10 = oDMIPlus + oDMIMinus ;
    
84. if var10 > 0 then
    
85.         oDMI = 100 * AbsValue( oDMIPlus - oDMIMinus ) / var10
    
86. else
    
87.         oDMI = 0 ;
    
88. 
    
89. condition1 = CurrentBar <= Len and CurrentBar > 0 ;
    
90. if condition1 then
    
91.         begin
    
92.         oADX = Cum( oDMI ) / CurrentBar ;                                                              
    
93. 
    
94.         oADXR = ( oADX + oADX[ CurrentBar - 1 ] ) * .5 ;
    
95.                                                                                         
    
96.         end
    
97. else
    
98.         begin
    
99.         oADX = oADX[1] + var9 * ( oDMI - oADX[1] ) ;
    
100.         oADXR = ( oADX + oADX[ Len - 1 ] ) * .5 ;
     
101.         end ;
     
102. 
     
103. DirMovement = 1 ;

复制代码