关于商品跨周期数据引用的讨论！ [复制链接]

绅士风度

初级散户

Rank: 2

精华: 0
UID: 105
积分: 113
帖子: 25
主题: 6
阅读权限: 30
注册时间: 2007-8-13
最后登录: 2007-12-1

1^#

发表于 2007-8-23 13:05:24 |显示全部楼层

在1分钟K线上，引用3分钟的开盘价、收盘价和成交量

请斑竹指教在1分钟线上引用3分钟数据的函数是否正确：
//------------------------------------------------------------------------
// 简称: Close3
// 名称:
// 类别: 用户函数
// 类型: 内建函数
// 输出: 数值型
//------------------------------------------------------------------------

Params
Numeric N(0);
Vars
Numeric Close3min;
Numeric Tmp;
Numeric Tmp1;
Numeric Tmp2;
Numeric Tmp3;
Begin
If (N==0)
Close3min=Close;
Else
{
If (Time>=0.090000 And Time<=0.145900)
{
Tmp1=RoundDown(Time,2);
Tmp2=RoundDown(Time,4);
Tmp3=(Tmp1-0.090000)*6000+(Tmp2-Tmp1)*10000;
Tmp=Mod(Tmp3,3);
Close3min=Close[(N-1)*3+Tmp+1];
}
Else Return InvalidNumeric;
}
Return Close3min;
End

//------------------------------------------------------------------------
// 编译版本 GS2004.06.12
// 用户版本 2007/08/22 22:26
// 版权所有 zw4578
// 更改声明 TradeBlazer Software保留对TradeBlazer平台
// 每一版本的TrabeBlazer公式修改和重写的权利
//------------------------------------------------------------------------

已有 1 人评分	威望	收起理由
fxl583918	-2	神马都是浮云

总评分: 威望 -2 查看全部评分

使用道具举报

绅士风度

初级散户

Rank: 2

精华: 0
UID: 105
积分: 113
帖子: 25
主题: 6
阅读权限: 30
注册时间: 2007-8-13
最后登录: 2007-12-1

2^#

发表于 2007-8-23 13:06:16 |显示全部楼层

在1分钟K线上，引用3分钟的开盘价、收盘价和成交量

//------------------------------------------------------------------------
// 简称: Open3
// 名称: 3分钟开盘价
// 类别: 用户函数
// 类型: 内建函数
// 输出: 数值型
//------------------------------------------------------------------------

Params
Numeric N(0);
Vars
Numeric Open3min;
Numeric Tmp;
Numeric Tmp1;
Numeric Tmp2;
Numeric Tmp3;
Begin

If (Time>=0.090000 And Time<=0.145900)
{
Tmp1=RoundDown(Time,2);
Tmp2=RoundDown(Time,4);
Tmp3=(Tmp1-0.090000)*6000+(Tmp2-Tmp1)*10000;
Tmp=Mod(Tmp3,3);

Open3min=Open[N*3+Tmp];

}
Else Return InvalidNumeric;

Return Open3min;
End

//------------------------------------------------------------------------
// 编译版本 GS2004.06.12
// 用户版本 2007/08/22 23:14
// 版权所有 zw4578
// 更改声明 TradeBlazer Software保留对TradeBlazer平台
// 每一版本的TrabeBlazer公式修改和重写的权利
//------------------------------------------------------------------------

使用道具举报

绅士风度

初级散户

Rank: 2

精华: 0
UID: 105
积分: 113
帖子: 25
主题: 6
阅读权限: 30
注册时间: 2007-8-13
最后登录: 2007-12-1

3^#

发表于 2007-8-23 13:07:38 |显示全部楼层

Vol

//------------------------------------------------------------------------
// 简称: Vol3
// 名称: 三分钟成交量
// 类别: 用户函数
// 类型: 内建函数
// 输出: 数值型
//------------------------------------------------------------------------

Params
Numeric N(0);
Vars
Numeric Vol3min;
Numeric Tmp;
Numeric Tmp1;
Numeric Tmp2;
Numeric Tmp3;
Begin

If (Time>=0.090000 And Time<=0.145900)
{
Tmp1=RoundDown(Time,2);
Tmp2=RoundDown(Time,4);
Tmp3=(Tmp1-0.090000)*6000+(Tmp2-Tmp1)*10000;
Tmp=Mod(Tmp3,3);
If (N==0)
{
If (Tmp==0)
Vol3min=Vol;
Else If (Tmp==1)
Vol3min=Vol[1]+Vol;
Else If (Tmp==2)
Vol3min=Vol[2]+Vol[1]+Vol;
}
Else
{
Vol3min=Summation(Vol[(N-1)*3+Tmp],3);
}
}
Else Return InvalidNumeric;

Return Vol3min;
End

//------------------------------------------------------------------------
// 编译版本 GS2004.06.12
// 用户版本 2007/08/23 00:03
// 版权所有 zw4578
// 更改声明 TradeBlazer Software保留对TradeBlazer平台
// 每一版本的TrabeBlazer公式修改和重写的权利
//------------------------------------------------------------------------

使用道具举报