通达信主图改编为飞狐
2014-08-09 14:09 稿
发表于2014-8-10
6:00:58 http://cpdy.blog.163.com/blog/static/2366371572014792920355/
http://bbs.macd.cn/data/attachment/forum/201408/09/135252hb32jjppnbpb2cp9.jpg
{狄马克TD序列指数}
DRAWGBK(CLOSE >
0,COLORRGB(10,10,30),COLORRGB(10,10,10),0);
STICKLINE(C>O ,H,L,0.1,0),COLORRED;
STICKLINE(C>O ,C,O,6.5,1),COLORRED;
STICKLINE(C<=O ,H,L,0.1,0),COLORCYAN;
STICKLINE(C<=O ,C,O,6.5,1),COLORCYAN;
{TD准备=买入结构}
TD准备:=IF(REF(C,1)>REF(C,4),1,0);
TD0:=BARSLAST(TD准备);
D:=BARSLAST(BARSLAST(NOT(LAST(C0 AND
BARSLAST(BARSLAST(NOT(LAST(C<=9;
A:=IF(D,1,0);
F:=IF(BARSLAST(C>=REF(C,4))>=9,1, A);
G:=A+F;
TD11:=IF(1,TD0=1,0);
TD21:=IF(1,G,0);
A1:=TD11 AND TD21;
TD12:=IF(2,TD0=2,0);
TD22:=IF(2,G,0);
A2:=TD12 AND TD22;
TD13:=IF(3,TD0=3,0);
TD23:=IF(3,G,0);
A3:=TD13 AND TD23;
TD14:=IF(4,TD0=4,0);
TD24:=IF(4,G,0);
A4:=TD14 AND TD24;
TD15:=IF(5,TD0=5,0);
TD25:=IF(5,G,0);
A5:=TD15 AND TD25;
TD16:=IF(6,TD0=6,0);
TD26:=IF(6,G,0);
A6:=TD16 AND TD26;
TD17:=IF(7,TD0=7,0);
TD27:=IF(7,G,0);
A7:=TD17 AND TD27;
TD18:=IF(8,TD0=8,0);
TD28:=IF(8,G,0);
A8:=TD18 AND TD28;
TD19:=IF(9,TD0=9,0);
TD29:=IF(9,G,0);
A9:=TD19 AND TD29;
DRAWTEXT(A1,L-0.3,'1'),COLORYELLOW;
DRAWTEXT(A2,L-0.3,'2'),COLORYELLOW;
DRAWTEXT(A3,L-0.3,'3'),COLORYELLOW;
DRAWTEXT(A4,L-0.3,'4'),COLORYELLOW;
DRAWTEXT(A5,L-0.3,'5'),COLORYELLOW;
DRAWTEXT(A6,L-0.3,'6'),COLORYELLOW;
DRAWTEXT(A7,L-0.3,'7'),COLORYELLOW;
DRAWTEXT(A8,L-0.3,'8'),COLORYELLOW;
DRAWTEXT(A9,L-0.3,'9'),COLORYELLOW;
{TD13次倒数=买入计数}
TDP:=BARSLAST(A9);
B:=IF(LAST(C
TD11A:=IF(1,TDP=1,TDP);
TD21A:=IF(1,LLV(C,1)
D1:=TD11A AND TD21A;
TD12A:=IF(2,TDP=2,TDP);
TD22A:=IF(2,LLV(C,2)
D2:=TD12A AND TD22A;
TD13A:=IF(3,TDP=3,TDP);
TD23A:=IF(3,LLV(C,3)
D3:=TD13A AND TD23A;
TD14A:=IF(4,TDP=4,TDP);
TD24A:=IF(4,LLV(C,4)
D4:=TD14A AND TD24A;
TD15A:=IF(5,TDP=5,TDP);
TD25A:=IF(5,LLV(C,5)
D5:=TD15A AND TD25A;
TD16A:=IF(6,TDP=6,TDP);
TD26A:=IF(6,LLV(C,6)
D6:=TD16A AND TD26A;
TD17A:=IF(7,TDP=7,TDP);
TD27A:=IF(7,LLV(C,7)
D7:=TD17A AND TD27A;
TD18A:=IF(8,TDP=8,TDP);
TD28A:=IF(8,LLV(C,8)
D8:=TD18A AND TD28A;
TD19A:=IF(9,TDP=9,TDP);
TD29A:=IF(9,LLV(C,9)
D9:=TD19A AND TD29A;
TD10A:=IF(10,TDP=10,TDP);
TD20A:=IF(10,LLV(C,10)
D10:=TD10A AND TD20A;
TD110A:=IF(11,TDP=11,TDP);
TD210A:=IF(11,LLV(C,11)
D11:=TD110A AND TD210A;
TD120A:=IF(12,TDP=12,TDP);
TD220A:=IF(12,LLV(C,12)
D12:=TD120A AND TD220A;
TD130A:=IF(13,TDP=13,TDP);
TD230A:=IF(13,LLV(C,13)
D13:=TD130A AND TD230A;
DRAWTEXT(D1,L-0.6,'1'),COLORRED;
DRAWTEXT(D2,L-0.6,'2'),COLORRED;
DRAWTEXT(D3,L-0.6,'3'),COLORRED;
DRAWTEXT(D4,L-0.6,'4'),COLORRED;
DRAWTEXT(D5,L-0.6,'5'),COLORRED;
DRAWTEXT(D6,L-0.6,'6'),COLORRED;
DRAWTEXT(D7,L-0.6,'7'),COLORRED;
DRAWTEXT(D8,L-0.6,'8'),COLORRED;
DRAWTEXT(D9,L-0.6,'9'),COLORRED;
DRAWTEXT(D10,L-0.6,'10'),COLORRED;
DRAWTEXT(D11,L-0.6,'11'),COLORRED;
DRAWTEXT(D12,L-0.6,'12'),COLORRED;
DRAWTEXT(D13,L-0.6,'13'),COLORRED;
{神奇数列时间循环周期}
CURRBARSCOUNT:=DATACOUNT-BARPOS+1;
DRAWTEXT(CURRBARSCOUNT=3,HIGH*1.02,'3'),
COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=5,HIGH*1.02,'5'),
COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=8,HIGH*1.02,'8'),
COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=13,HIGH*1.02,'13'),
COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=21,HIGH*1.02,'21'),
COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=34,HIGH*1.02,'34'),
COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=55,HIGH*1.02,'55'),
COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=89,HIGH*1.02,'89'),
COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=144,HIGH*1.02,'144'),
COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=233,HIGH*1.02,'233'),
COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=377,HIGH*1.02,'377'),
COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=610,HIGH*1.02,'610'),
COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=987,HIGH*1.02,'987'),
COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=1597,HIGH*1.02,'1597'),
COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=2584,HIGH*1.02,'2584'),
COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=4181,HIGH*1.02,'4181'),
COLORGREEN;
{卢卡斯螺旋周期}
DRAWTEXT(CURRBARSCOUNT=7,HIGH*1.025,'7'),
COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=11,HIGH*1.025,'11'),
COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=18,HIGH*1.025,'18'),
COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=29,HIGH*1.025,'29'),
COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=47,HIGH*1.025,'47'),
COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=76,HIGH*1.025,'76'),
COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=123,HIGH*1.025,'123'),
COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=199,HIGH*1.025,'199'),
COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=322,HIGH*1.025,'322'),
COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=521,HIGH*1.025,'521'),
COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=843,HIGH*1.025,'843'),
COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1364,HIGH*1.025,'1364'),
COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=2207,HIGH*1.025,'2207'),
COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=3571,HIGH*1.025,'3571'),
COLORWHITE;