【coeffR】

1. Inputs: Len(Numeric);
   
2. Variables: var0(0), var1(0), var2(0), var3(0), var4(0), var5(0), var6(0);
   
3. 
   
4. var1 = CurrentBar;
   
5. var2 = Close;
   
6. 
   
7. var3 = Summation(var1 * var2, Len) - Len * Average(var1, Len) * Average(var2, Len);
   
8. var4 = Summation(Square(var1), Len) - Len * Square(Average(var1, Len));
   
9. var5 = Summation(Square(var2), Len) - Len * Square(Average(var2, Len));
   
10. 
    
11. If var4 * var5 > 0 Then
    
12.         var6 = SquareRoot(var4 * var5);
    
13. 
    
14. If var6 <> 0  Then Begin
    
15.         var0 = var3 / var6;
    
16.         condition1 = var0 <= 1 AND var0 >= -1 ;
    
17.         If condition1 Then
    
18.                 coeffR = var0;
    
19. End;

复制代码