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

---

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

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

复制代码

---

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

Powered by Discuz! 7.2