【ADXClassic】

1. Inputs: Len(NumericSimple);
   
2. Variables: var0(0), var1(0), var2(0);
   
3. 
   
4. var2 = 0;
   
5. 
   
6. If Len > 0 Then Begin
   
7.         If CurrentBar = Len Then Begin
   
8.                 var1 = 0;
   
9.                 For var0 = 0 To (CurrentBar - 1) Begin
   
10.                         var1 = var1 + DMI(Len)[var0];
    
11.                 End;
    
12.                 var2 = var1 / CurrentBar;
    
13.         End
    
14.         Else
    
15.                 If Currentbar > Len Then
    
16.                         var2 = (ADXClassic[1] * (Len - 1) + DMI(Len)) / Len ;
    
17. End;
    
18. 
    
19. ADXClassic = IntPortion(var2);

复制代码