請幫我改一個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定義之外的都注釋一下