【线性回归直线(Linear Reg Line)】

龙听

1. inputs:
   
2.         Length( 30 ),
   
3.         EndDate_YYMMDD( 0 ),                                                
   
4.                                                           
   
5.         EndTime_HHMM( 0 ),                                                   
   
6.         Color( Yellow ),
   
7.         ExtRight( true ) ;
   
8. 
   
9. variables:
   
10.         var0( iff( EndDate_YYMMDD < 500000, EndDate_YYMMDD + 1000000,
    
11.          EndDate_YYMMDD ) ),
    
12.         var1( 0 ),
    
13.         var2( 0 ),
    
14.         var3( 0 ),
    
15.         var4( 0 ) ;
    
16. 
    
17. if var4 = 0 then
    
18. 
    
19.                                                                            
    
20. 
    
21.         begin
    
22.         condition1 = var0 = 1000000 and LastBarOnChart ;
    
23.         if condition1 then
    
24.                 begin
    
25.                 var1 = LinearRegValue( C, Length, 0 ) ;
    
26.                 var2 = LinearRegValue( C, Length, Length - 1 ) ;
    
27.                 var3 = TL_New( Date[ Length - 1 ], Time[ Length - 1 ], var2, Date, Time,
    
28.                  var1 ) ;
    
29.                 var4 = 1 ;
    
30.                 end
    
31.         else
    
32.         begin
    
33.         condition1 = Date = var0 and ( Time = EndTime_HHMM or EndTime_HHMM = 0 ) ;
    
34.         if condition1 then
    
35.                 begin
    
36.                 var1 = LinearRegValue( C, Length, 0 ) ;
    
37.                 var2 = LinearRegValue( C, Length, Length - 1 ) ;
    
38.                 var3 = TL_New( Date[ Length - 1 ], Time[ Length - 1 ], var2, Date, Time,
    
39.                  var1 ) ;
    
40.                 var4 = 2 ;
    
41.                 end ;
    
42.         end;
    
43.         condition1 = var4 = 1 or var4 = 2 ;
    
44.         if condition1  then
    
45.                 begin
    
46.                 TL_SetColor( var3, Color ) ;
    
47.                 TL_SetExtLeft( var3, false ) ;
    
48.                 if ExtRight then
    
49.                         TL_SetExtRight( var3, true )
    
50.                 else
    
51.                         TL_SetExtRight( var3, false ) ;
    
52.                 end ;
    
53.         end
    
54. else if var4 = 1 then
    
55. 
    
56.                                                                                     
    
57.                                                                            
    
58. 
    
59.         begin
    
60.         var1 = LinearRegValue( C, Length, 0 ) ;
    
61.         var2 = LinearRegValue( C, Length, Length - 1 ) ;
    
62.         TL_SetBegin( var3, Date[ Length - 1 ], Time[ Length - 1 ], var2 ) ;
    
63.         TL_SetEnd( var3, Date, Time, var1 ) ;
    
64.         end ;

复制代码