請(qǐng)幫我改一個(gè)TB函數(shù)到金字塔

作者：金字塔來(lái)源：cxh99.com 發(fā)布時(shí)間：2015年04月30日

咨詢內(nèi)容： 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里面是內(nèi)置函數(shù)，叫峰度系數(shù)
用戶回復(fù)： 給上面的代碼做下注釋?zhuān)蝗豢床幻靼?
網(wǎng)友回復(fù)： 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 ) ; //計(jì)算標(biāo)準(zhǔn)差 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
網(wǎng)友回復(fù)： 。。。。把除了開(kāi)頭numeric定義之外的都注釋一下