标题: 【LinearReg】 [打印本页]

---

作者: 龙听    时间: 2022-11-2 10:30     标题: 【LinearReg】

1. inputs:
   
2.         PriceValue( numericseries ),
   
3.         Len( numericsimple ),               
   
4.         TgtBar( numericsimple ),                                                      
   
5.         oLRSlope( numericref ),
   
6.         oLRAngle( numericref ),
   
7.         oLRIntercept( numericref ),                                       
   
8.                               
   
9.         oLRValue( numericref ) ;
   
10. 
    
11. variables:
    
12.         var0( 0 ),
    
13.         var1( 0 ),
    
14.         var2( 0 ),
    
15.         var3( 0 ),
    
16.         var4( 1 / 6 ),
    
17.         var5( 0 ) ;
    
18. 
    
19. if Len > 1 then
    
20.         begin
    
21.         var2 = Len * ( Len - 1 ) * .5 ;
    
22.         var3 = Len * ( Len - 1 ) * ( 2 * Len - 1 ) * var4 ;
    
23.         var5 = Square( var2 ) - Len * var3 ;
    
24.         var0 = 0;
    
25.         for Value1 = 0 to Len - 1
    
26.                 begin
    
27.                 var0 = var0 + Value1 * PriceValue[Value1] ;
    
28.                 end ;
    
29.         var1 = Summation( PriceValue, Len ) ;
    
30. 
    
31.         oLRSlope = ( Len * var0 - var2 * var1) / var5 ;
    
32.         oLRAngle = ArcTangent( oLRSlope ) ;
    
33.         oLRIntercept = ( var1 - oLRSlope * var2 ) / Len ;
    
34.         oLRValue = oLRIntercept + oLRSlope * ( Len - 1 + ExecOffset - TgtBar ) ;
    
35.         LinearReg = 1 ;
    
36.         end
    
37. else
    
38.         LinearReg = -1 ;

复制代码

---

欢迎光临 龙听期货论坛 (http://qhlt.club/)

Powered by Discuz! 7.2