请帮我改一个TB函数到金字塔 [金字塔]
- 咨询内容:
Params
NumericSeries Price(1);
Numeric Length(10);Vars
Numeric KurtValue(0);
Numeric P1(0);
Numeric P2(0);
Numeric P3(0);
Numeric Mean;
Numeric SDev;
Numeric i;Begin
If (Length >3)
{
Mean = Average( Price, Length ) ;
SDev = StandardDev( Price, Length, 2 ) ;
if (SDev > 0)
{
for i = 0 to Length - 1
{
P2 = P2 + Power( ( Price[i] - Mean ) / SDev, 4 ) ;
}
P1 = Length * ( Length + 1 ) / ( ( Length - 1 ) * ( Length - 2 ) * ( Length - 3 ) ) ;
P3 = 3 * Sqr( Length - 1 ) / ( ( Length - 2 ) * ( Length - 3 ) ) ;
KurtValue = P1 * P2 - P3 ;
}
}
Return KurtValue;End
- 金字塔客服:
TB里面是内置函数,叫峰度系数
- 用户回复:
给上面的代码做下注释,不然看不明白
- 网友回复:
Params
NumericSeries Price(1);
Numeric Length(10);Vars
Numeric KurtValue(0);
Numeric P1(0);
Numeric P2(0);
Numeric P3(0);
Numeric Mean;
Numeric SDev;
Numeric i;Begin
If (Length >3)
{
Mean = Average( Price, Length ) ; //求平均值
SDev = StandardDev( Price, Length, 2 ) ; //计算标准差
if (SDev > 0)
{
for i = 0 to Length - 1
{
P2 = P2 + Power( ( Price[i] - Mean ) / SDev, 4 ) ;
}
P1 = Length * ( Length + 1 ) / ( ( Length - 1 ) * ( Length - 2 ) * ( Length - 3 ) ) ;
P3 = 3 * Sqr( Length - 1 ) / ( ( Length - 2 ) * ( Length - 3 ) ) ;
KurtValue = P1 * P2 - P3 ;
}
}
Return KurtValue;End
- 网友回复: 。。。。把除了开头numeric定义之外的都注释一下
有思路,想编写各种指标公式,程序化交易模型,选股公式,预警公式的朋友
可联系技术人员 QQ: 1145508240 进行 有偿 编写!(不贵!点击查看价格!)
相关文章
-
没有相关内容