共11 条记录, 每页显示 10 条, 页签: [1] [2]

[浏览完整版]

标题：请帮我改一个TB函数到金字塔

1楼

soler 发表于：2014/3/28 16:23:39

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

2楼

soler 发表于：2014/3/28 16:26:45

TB里面是内置函数，叫峰度系数

3楼

jinzhe 发表于：2014/3/28 16:31:42

给上面的代码做下注释，不然看不明白

4楼

soler 发表于：2014/3/28 16:48:49

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

5楼

jinzhe 发表于：2014/3/28 16:51:33

。。。。把除了开头numeric定义之外的都注释一下

6楼

soler 发表于：2014/3/28 17:12:41

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) //length 是参数，也就是计算天数

{

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

就是在金字塔里面创建一个自定义函数

7楼

jinzhe 发表于：2014/3/28 17:18:42

NumericSeries Price(1);

Numeric Length(10);

这两个定义不同在哪里？后面的数字是不是参数值？

8楼

szy56801 发表于：2014/3/28 17:24:39

金字塔难道没有kurt和skew吗？为什么要翻译呢

9楼

soler 发表于：2014/3/28 17:33:44

金字塔KURT计算数值跟TB完全不一样

10楼

soler 发表于：2014/3/28 17:34:53

以下是引用jinzhe在2014/3/28 17:18:42的发言：
NumericSeries Price(1);

Numeric Length(10);

这两个定义不同在哪里？后面的数字是不是参数值？

第一个相当于close ,第二个相当于周期，后面是参数

共11 条记录, 每页显示 10 条, 页签: [1] [2]