- 精华
- 0
- 在线时间
- 366 小时
- UID
- 755
- 积分
- 1337
- 帖子
- 263
- 阅读权限
- 60
- 注册时间
- 2007-11-14
- 最后登录
- 2019-12-1
- 精华
- 0
- UID
- 755
- 积分
- 1337
- 帖子
- 263
- 主题
- 71
- 阅读权限
- 60
- 注册时间
- 2007-11-14
- 最后登录
- 2019-12-1
|
这是全部代码:
Params
NumericSeries Price(1);
Numeric Length(10);
Numeric TgtBar(0);
NumericRef LRSlope;
NumericRef LRAngle;
NumericRef LRIntercept;
NumericRef LRValue;
Vars
Numeric SumXY(0);
Numeric SumY;
Numeric SumX;
Numeric SumXSqr;
Numeric Divisor;
Numeric i;
Begin
if (Length > 1)
{
SumX = Length * ( Length - 1 ) * 1/2;
SumXSqr = Length * ( Length - 1 ) * ( 2 * Length - 1 ) * 1/6 ;
Divisor = Sqr( SumX ) - Length * SumXSqr ;
SumY = Summation( Price, Length ) ;
for i = 0 to Length - 1
{
SumXY = SumXY + i * Price[i] ;
}
LRSlope = ( Length * SumXY - SumX * SumY) / Divisor ;
LRAngle = Atan ( LRSlope ) ;
LRIntercept = ( SumY - LRSlope * SumX ) / Length ;
LRValue = LRIntercept + (Length - 1 - TgtBar)*LRSlope;
Return True;
}Else
{
Return False;
}
End
这一句: SumX = Length * ( Length - 1 ) * 1/2;
是否应该这样写:SumX = ( Length + 1 )* Length *1/2; |
|