请教一下日内操作的程序编写问题的回复 - 公式模型编写问题提交 - 金字塔客服中心 - 专业程序化交易软件提供商

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 公式模型编写问题提交 → 请教一下日内操作的程序编写问题的回复

共有6651人关注过本帖树形打印复制链接主题：请教一下日内操作的程序编写问题的回复

admin

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：7302 积分：32559 威望：1000 精华：45 注册：2003/12/30 16:34:32

请教一下日内操作的程序编写问题的回复 发帖心情

Post By：2010/6/27 23:17:49 Post IP：112.64.159.158[只看该作者]

日内操作

使用周期：1分钟

以当天第一个30分钟开始，当价格突破前面30分钟最高点时做多，当价格跌破前面30分钟最低点时做空，当天14：58分钟全部平仓出局的程序是不是这样编写的：

但我问什么测试不了呢？问题出在哪里？

INPUT:NMIN(30,10,60,10);
INPUT:NOFFSET(3,1,20,1);
INPUT:LOTS(1,1,1000,1);
CYC:=BARSLAST(DATE>REF(DATE,1))+1;

HIGHESTOF30MIN:=VALUEWHEN(TIME<=90000+NMIN*100,HHV(H,CYC));
LOWESTOF30MIN:=VALUEWHEN(TIME<=90000+NMIN*100,LLV(L,CYC));
IF HIGH >= HIGHESTOF30MIN + NOFFSET*MINDIFF AND THOLDING<=0 THEN
BEGIN
MYPRICE: = HIGHESTOF30MIN + NOFFSET*MINDIFF;
IF OPEN > MYPRICE THEN
BEGIN
MYPRICE: = OPEN;
TSELLSHORT(THOLDING<0,0,LIMITR,MYPRICE);
TBUY(THOLDING=0,LOTS,LIMITR,MYPRICE);
END
END
IF LOW <= LOWESTOF30MIN - NOFFSET*MINDIFF AND THOLDING>=0 THEN
BEGIN
MYPRICE: = LOWESTOF30MIN - NOFFSET*MINDIFF;
IF OPEN < MYPRICE THEN
BEGIN
MYPRICE: = OPEN;
TSELL(HOLDING>0,0,LIMITR,MYPRICE);
TBUYSHORT(THOLDING=0,LOTS,LIMITR,MYPRICE);
END
END
IF TIME >= 145900 THEN
BEGIN
TSELL(THOLDING>0,0,LIMITR,OPEN);
TSELLSHORT(THOLDING<0,0,LIMITR,OPEN);
END

admin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：7302 积分：32559 威望：1000 精华：45 注册：2003/12/30 16:34:32

Post By：2010/6/27 23:25:26 Post IP：112.64.159.158[只看该作者]

INPUT:NMIN(30,10,60,10);
INPUT:NOFFSET(3,1,20,1);
INPUT:LOTS(1,1,1000,1);
CYC:=BARSLAST(DATE>REF(DATE,1))+1;
HIGHESTOF30MIN:=VALUEWHEN(TIME<=90000+NMIN*100,HHV(H,CYC));
LOWESTOF30MIN:=VALUEWHEN(TIME<=90000+NMIN*100,LLV(L,CYC));
IF HIGH >= HIGHESTOF30MIN + NOFFSET*MINDIFF AND THOLDING<=0 THEN
BEGIN
MYPRICE: = HIGHESTOF30MIN + NOFFSET*MINDIFF;
IF OPEN > MYPRICE THEN
BEGIN
MYPRICE: = OPEN;
TSELLSHORT(THOLDING<0,0,LMT,MYPRICE);
TBUY(THOLDING=0,LOTS,LMT,MYPRICE);
END
END
IF LOW <= LOWESTOF30MIN - NOFFSET*MINDIFF AND THOLDING>=0 THEN
BEGIN
MYPRICE: = LOWESTOF30MIN - NOFFSET*MINDIFF;
IF OPEN < MYPRICE THEN
BEGIN
MYPRICE: = OPEN;
TSELL(THOLDING>0,0,LMT,MYPRICE);
TBUYSHORT(THOLDING=0,LOTS,LMT,MYPRICE);
END
END
IF TIME >= 145900 THEN
BEGIN
TSELL(THOLDING>0,0,LMT,OPEN);
TSELLSHORT(THOLDING<0,0,LMT,OPEN);
END