- 精华
- 0
- 在线时间
- 17 小时
- UID
- 121293
- 积分
- 20
- 帖子
- 8
- 阅读权限
- 10
- 注册时间
- 2013-7-22
- 最后登录
- 2015-6-23
- 精华
- 0
- UID
- 121293
- 积分
- 20
- 帖子
- 8
- 主题
- 1
- 阅读权限
- 10
- 注册时间
- 2013-7-22
- 最后登录
- 2015-6-23
|
看到这个帖子了,写个计算矩的指标方便大家使用。
参数有三个,what为1表示计算原点矩,2表示计算中心矩。k表示阶数。period表示周期。中心矩是除过标准差的。
这些计算指标挺有用的,fisher变换已经有了,希尔伯特变换和傅里叶变换有木有人来写一下?还有谁来写个神经网络?一层的就行。TB这里好多东西需要慢慢建设。。。
ps.二阶中心矩是标准差,三阶中心矩就是偏度,四阶中心矩是峰度。
Params
Numeric what(1);
Numeric k(1);
Numeric period(20);
Vars
NumericSeries Value1;
NumericSeries value2;
NumericSeries value3;
NumericSeries value4;
NumericSeries Value5;
Begin
If(what==1)//计算原点矩
{
Value1=Power(o,k);
Value2=Average(Value1,period);
PlotNumeric("output",Value2);
}
If(what==2)//计算中心矩
{
Value1=Average(o,period);
Value2=o-Average(o,period);
Value3=Power(Value2,k);
Value4=Average(Value3,period);
Value5=Value4/Power(StandardDev(o,period,1),k);
PlotNumeric("output",Value5);
}
End |
|