【AverageUpMove】

1. Input: Len(Numeric);
   
2. Variables: var0(0), var1(0), var2(0), var3(0), var4(0), var5(0);
   
3. 
   
4. var1 = 0;
   
5. var0 = 0;
   
6. var4 = 0;
   
7. 
   
8. For var3 = 0 To Len - 1 Begin
   
9. condition1 = Close[Len + var3] <> 0;
   
10.         If condition1 Then
    
11.                 var2 = (Close[var3] / Close[Len + var3]) - 1
    
12.         Else
    
13.                 var2 = 0;
    
14.         If var2 > 0 Then Begin
    
15.                 var1 = var1 + var2;
    
16.                 var4 = var4 + 1;
    
17.         End;
    
18. End;
    
19. 
    
20. AverageUpMove = AbsValue(var1 / MaxList(1, var4)) * 100;

复制代码