【SerialHighsLows】

1. Inputs: Len(numeric);
   
2. Variables: var0(0), var1(0), var2(0);
   
3. 
   
4. If Len <> 0 Then Begin
   
5.         var1 = 0;
   
6.         For var0 = 0 To Len - 1 Begin
   
7.                 condition1 = Close[var0] > Highest(Close, Len)[var0 + 1] ;
   
8.                 If condition1 Then Begin
   
9.                         If var1 < 0 Then
   
10.                                 var1 = 0;
    
11.                         var1 = var1 + 1;
    
12.                 End
    
13.                 Else Begin
    
14.                 condition1 = Close[var0] < Lowest(Close, Len)[var0 + 1] ;
    
15.                         If condition1 Then Begin
    
16.                                 If var1 > 0 Then
    
17.                                         var1 = 0;
    
18.                                 var1 = var1-1;
    
19.                         End;
    
20.                 End;
    
21.         End;
    
22.         SerialHighsLows = (AbsValue(var1) / Len) * 100;
    
23. End
    
24. Else
    
25.         SerialHighsLows = 0;

复制代码