【LinearRegLine】

龙听

1. Inputs: Len(Numeric), BarsPlus(Numeric), SlctDate(Numeric), SlctTime(Numeric), Color(Numeric), ExtRight(TrueFalse);
   
2. Variables: var0(0), var1(0), var2(0), var3(0);
   
3. 
   
4. var0 = LinearRegValue(Close, Len, BarsPlus);
   
5. var1 = LinearRegValue(Close, Len, Len-1);
   
6. 
   
7. condition1 = LastBarOnChart AND SlctDate = 0 AND var3 = 0 ;
   
8. If condition1 Then Begin
   
9.         var2 = TL_New(Date[Len-1], Time[Len-1], var1, Date, Time, var0);
   
10.         var3 = 1;
    
11. End;
    
12. condition1 = Date = SlctDate AND (Time = SlctTime OR SlctTime = 0) ;
    
13. If condition1 Then Begin
    
14.         var2 = TL_New(Date[Len-1], Time[Len-1], var1, Date, Time, var0);
    
15.         var3 = 2;
    
16. End;
    
17. condition1 = var3 = 1 OR var3 = 2 ;
    
18. If condition1 Then Begin
    
19.         If var3 = 2 Then
    
20.                 var3 = 3;
    
21.         TL_SetColor(var2, Color);
    
22.         TL_SetExtLeft(var2, False);
    
23.         If ExtRight Then
    
24.                 TL_SetExtRight(var2, True)
    
25.         Else
    
26.                 TL_SetExtRight(var2, False);
    
27. End;
    
28. 
    
29. If var3 = 1 Then Begin
    
30.         TL_SetBegin(var2, Date[Len-1], Time[Len-1], var1);
    
31.         TL_SetEnd(var2, Date, Time, var0);
    
32. End;
    
33. 
    
34. If var0 <> -1 Then
    
35.         LinearRegLine = 1
    
36. Else
    
37.         LinearRegLine = -1;

复制代码