請幫我改一個TB函數到金字塔
作者：金字塔 來源：cxh99.com 發布時間：2015年04月30日
- 咨詢內容：
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定義之外的都注釋一下
打印本文
關閉窗口