LinearRegValue函数有错

nopain

仔细检查了一下，发现代码确实有问题，加多了一个ABS()计算。
如果着急使用就用以下代码另外建立一个自己的线性回归函数：

1. //------------------------------------------------------------------------
   
2. // 简称: LinearReg
   
3. // 名称: 求线性回归
   
4. // 类别: 用户函数
   
5. // 类型: 内建函数
   
6. // 输出: 布尔型
   
7. //------------------------------------------------------------------------
   
8. 
   
9. Params
   
10.         NumericSeries Price(1);
    
11.         Numeric Length(10);
    
12.         Numeric TgtBar(0);
    
13.         NumericRef LRSlope;
    
14.         NumericRef LRAngle;
    
15.         NumericRef LRIntercept;
    
16.         NumericRef LRValue;
    
17. Vars
    
18.         Numeric SumXY(0);
    
19.         Numeric SumY;
    
20.         Numeric SumX;
    
21.         Numeric SumXSqr;
    
22.         Numeric Divisor;
    
23.         Numeric i;
    
24. Begin
    
25.         if (Length > 1)
    
26.         {
    
27.                 SumX = Length * ( Length - 1 ) * 1/2;
    
28.                 SumXSqr = Length * ( Length - 1 ) * ( 2 * Length - 1 ) * 1/6 ;       
    
29.                 Divisor = Sqr( SumX ) - Length * SumXSqr ;                       
    
30.                 SumY = Summation( Price, Length ) ;
    
31.                 for i = 0 to Length - 1
    
32.                 {
    
33.                         SumXY = SumXY + i * Price[i] ;
    
34.                 }
    
35.                
    
36.                 LRSlope = ( Length * SumXY - SumX * SumY) / Divisor ;
    
37.                 LRAngle = Atan ( LRSlope ) ;
    
38.                 LRIntercept = ( SumY - LRSlope * SumX ) / Length ;
    
39.                 LRValue = LRIntercept + (Length - 1 - TgtBar) * LRSlope;
    
40.                 Return True;
    
41.         }Else
    
42.         {
    
43.                 Return False;
    
44.         }
    
45. End
    
46. 
    
47. //------------------------------------------------------------------------
    
48. // 编译版本        GS2004.06.12
    
49. // 版权所有        TradeBlazer Software 2003－2008
    
50. // 更改声明        TradeBlazer Software保留对TradeBlazer平
    
51. //                        台每一版本的TradeBlazer公式修改和重写的权利
    
52. //------------------------------------------------------------------------

复制代码

nopain

具体算法是怎么回事，我也不清楚，算法是从TradeStation 移植过来的