【ExtremePrice】

1. Inputs: Len(Numeric), UseLog(TrueFalse);
   
2. Variables: var0(0);
   
3. 
   
4. If UseLog Then Begin
   
5.         If Len <= 2 Then
   
6.                 ExtremePrice = Log(Highest(High, Len) / Lowest(Low, Len))
   
7.         Else Begin
   
8.                 var0 = Len - 1;
   
9.                 ExtremePrice = Log(MaxList(High, High[var0]) / MinList(Low, Low[var0]));
   
10.         End;
    
11. End
    
12. Else Begin
    
13.         If Len <= 2 Then
    
14.                 ExtremePrice = Highest(High, Len) / Lowest(Low, Len)
    
15.         Else Begin
    
16.                 var0 = Len - 1;
    
17.                 ExtremePrice = MaxList(High, High[var0]) / MinList(Low, Low[var0]);
    
18.         End;
    
19. End;

复制代码