Rss & SiteMap

金字塔客服中心 - 专业程序化交易软件提供商 http://www.weistock.com/bbs/

专业程序化软件提供商
共5 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:求助,迪马克TD序列如何改写

1楼
zhoub1359 发表于:2015/8/6 7:12:50
以下是我自己编的迪马克TD序列代码。目前连续9根线判断结构,与累计13根线判断TD买进序列都可以单独实现。但是一起运行的时候有冲突,主要问题:运行TD买进序列(13根线)的时候,在没有达到中止运行的条件时(目前在测试原理,没有加入中止运行条件),应该不运行买入结构判断(9根线),具体表现为1-13根线中间不应该夹杂9根线的内容。而我目前无法避免这个事情,在运行13根线的时候,9根线会进来捣乱,不知道该如何改写。请有能力的大神帮忙改改。多谢!


//TD 结构(连续9根线)

VARIABLE:B=0;

A1:=EVERY(C<REF(C,4),1)&&REF(C,1)>REF(C,5);
A2:=EVERY(C<REF(C,4),2)&&REF(C,2)>REF(C,6);
A3:=EVERY(C<REF(C,4),3)&&REF(C,3)>REF(C,7);
A4:=EVERY(C<REF(C,4),4)&&REF(C,4)>REF(C,8);
A5:=EVERY(C<REF(C,4),5)&&REF(C,5)>REF(C,9);
A6:=EVERY(C<REF(C,4),6)&&REF(C,6)>REF(C,10);
A7:=EVERY(C<REF(C,4),7)&&REF(C,7)>REF(C,11);
A8:=EVERY(C<REF(C,4),8)&&REF(C,8)>REF(C,12);
A9:=EVERY(C<REF(C,4),9)&&REF(C,9)>REF(C,13);

DRAWNUMBER(A1,H+0.5,1,0,COLORYELLOW);
DRAWNUMBER(A2,H+0.5,2,0,COLORYELLOW);
DRAWNUMBER(A3,H+0.5,3,0,COLORYELLOW);
DRAWNUMBER(A4,H+0.5,4,0,COLORYELLOW);
DRAWNUMBER(A5,H+0.5,5,0,COLORYELLOW);
DRAWNUMBER(A6,H+0.5,6,0,COLORYELLOW);
DRAWNUMBER(A7,H+0.5,7,0,COLORYELLOW);
DRAWNUMBER(A8,H+0.5,8,0,COLORYELLOW);
DRAWNUMBER(A9,H+0.5,9,0,COLORYELLOW);

//TD序列技术(13根线)

N9:BARSLAST(A9)+1;
N1:COUNT(C<REF(L,2),N9);

IF A9 AND C<REF(L,2) AND N1=1 THEN BEGIN
B:=1;
DRAWNUMBER(B=1 AND N1=1,L-0.5,B,0,COLORWHITE);
END;

WHILE B=1 AND C<REF(L,2) AND N1=2 DO BEGIN
B:=B+1;
DRAWNUMBER(B=2 AND N1=2,L-0.5,2,0,COLORWHITE);
END

WHILE B=2 AND C<REF(L,2) AND N1=3 DO BEGIN
B:=B+1;
DRAWNUMBER(B=3 AND N1=3,L-0.5,3,0,COLORWHITE);
END

WHILE B=3 AND C<REF(L,2) AND N1=4 DO BEGIN
B:=B+1;
DRAWNUMBER(B=4 AND N1=4,L-0.5,4,0,COLORWHITE);
END

WHILE B=4 AND C<REF(L,2) AND N1=5 DO BEGIN
B:=B+1;
DRAWNUMBER(B=5 AND N1=5,L-0.5,5,0,COLORWHITE);
END

WHILE B=5 AND C<REF(L,2) AND N1=6 DO BEGIN
B:=B+1;
DRAWNUMBER(B=6 AND N1=6,L-0.5,6,0,COLORWHITE);
END

WHILE B=6 AND C<REF(L,2) AND N1=7 DO BEGIN
B:=B+1;
DRAWNUMBER(B=7 AND N1=7,L-0.5,7,0,COLORWHITE);
END

WHILE B=7 AND C<REF(L,2) AND N1=8 DO BEGIN
B:=B+1;
DRAWNUMBER(B=8 AND N1=8,L-0.5,8,0,COLORWHITE);
END

WHILE B=8 AND C<REF(L,2) AND N1=9 DO BEGIN
B:=B+1;
DRAWNUMBER(B=9 AND N1=9,L-0.5,9,0,COLORWHITE);
END

WHILE B=9 AND C<REF(L,2) AND N1=10 DO BEGIN
B:=B+1;
DRAWNUMBER(B=10 AND N1=10,L-0.5,10,0,COLORWHITE);
END

WHILE B=10 AND C<REF(L,2) AND N1=11 DO BEGIN
B:=B+1;
DRAWNUMBER(B=11 AND N1=11,L-0.5,11,0,COLORWHITE);
END

WHILE B=11 AND C<REF(L,2) AND N1=12 DO BEGIN
B:=B+1;
DRAWNUMBER(B=12 AND N1=12,L-0.5,12,0,COLORWHITE);
END

WHILE B=12 AND C<REF(L,2) AND N1=13 DO BEGIN
B:=B+1;
DRAWNUMBER(B=13 AND N1=13,L-0.5,13,0,COLORWHITE);
END

IF B>=13 THEN B:=0;
2楼
jinzhe 发表于:2015/8/6 8:45:07
那么你9根线是如何排除的?然后无法避免9根线又是为什么?
[此贴子已经被作者于2015/8/6 8:45:19编辑过]
3楼
zhoub1359 发表于:2015/8/6 10:17:19
迪马克序列要求9和13是相互独立的,我目前没法把9和13分开。
4楼
jinzhe 发表于:2015/8/6 10:26:03
抱歉我们也没办法分开
5楼
观海潮 发表于:2015/11/6 11:48:01
改为:

A1:=EVERY(B=0 and C<REF(C,4),1)&&REF(C,1)>REF(C,5);
A2:=EVERY(B=0 and C<REF(C,4),2)&&REF(C,2)>REF(C,6);
A3:=EVERY(B=0 and C<REF(C,4),3)&&REF(C,3)>REF(C,7);
A4:=EVERY(B=0 and C<REF(C,4),4)&&REF(C,4)>REF(C,8);
A5:=EVERY(B=0 and C<REF(C,4),5)&&REF(C,5)>REF(C,9);
A6:=EVERY(B=0 and C<REF(C,4),6)&&REF(C,6)>REF(C,10);
A7:=EVERY(B=0 and C<REF(C,4),7)&&REF(C,7)>REF(C,11);
A8:=EVERY(B=0 and C<REF(C,4),8)&&REF(C,8)>REF(C,12);
A9:=EVERY(B=0 and C<REF(C,4),9)&&REF(C,9)>REF(C,13);
共5 条记录, 每页显示 10 条, 页签: [1]


Powered By Dvbbs Version 8.3.0
Processed in 0.01758 s, 3 queries.