狄马克TD序列指数主图指标

我这里是通达信的源码，由于指标有点复杂，俺弄不出来，请熟悉指南针指标平台的高手帮帮忙，感激不尽！

狄马克TD序列

{TD准备=买入结构}
TD准备:=IF(REF(C,1)>REF(C,4),1,0);
 TD0:=BARSLAST(TD准备);
A:=IF(BARSSINCEN(LAST(C  F:=IF(BARSLASTCOUNT(C=9,1, A);
 G:=A+F;

 TD11:=IF(1,TD0=1,0);
 {TD21:=IF(1,LLV(C,1)  TD21:=IF(1,G,DRAWNULL);
 A1:=TD11 AND TD21;

 TD12:=IF(2,TD0=2,0);
 {TD22:=IF(2,LLV(C,2)  TD22:=IF(2,G,DRAWNULL);
 A2:=TD12 AND TD22;
 TD13:=IF(3,TD0=3,0);
 {TD23:=IF(3,LLV(C,3)  TD23:=IF(3,G,DRAWNULL);
 A3:=TD13 AND TD23;
 TD14:=IF(4,TD0=4,0);
 {TD24:=IF(4,LLV(C,4)  TD24:=IF(4,G,DRAWNULL);
 A4:=TD14 AND TD24;
 TD15:=IF(5,TD0=5,0);
 {TD25:=IF(5,LLV(C,5)  TD25:=IF(5,G,DRAWNULL);
 A5:=TD15 AND TD25;
 TD16:=IF(6,TD0=6,0);
 {TD26:=IF(6,LLV(C,6)  TD26:=IF(6,G,DRAWNULL);
 A6:=TD16 AND TD26;
 TD17:=IF(7,TD0=7,0);
 {TD27:=IF(7,LLV(C,7)  TD27:=IF(7,G,DRAWNULL);
 A7:=TD17 AND TD27;
 TD18:=IF(8,TD0=8,0);
 {TD28:=IF(8,LLV(C,8)  TD28:=IF(8,G,DRAWNULL);
 A8:=TD18 AND TD28;
 TD19:=IF(9,TD0=9,0);
 {TD29:=IF(9,LLV(C,9)  TD29:=IF(9,G,DRAWNULL);
 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)  {TD21A:=IF(1,B,DRAWNULL);}
 D1:=TD11A AND TD21A;
 TD12A:=IF(2,TDP=2,TDP);
 TD22A:=IF(2,LLV(C,2)  {TD22A:=IF(2,B,DRAWNULL);}
 D2:=TD12A AND TD22A;
 TD13A:=IF(3,TDP=3,TDP);
 TD23A:=IF(3,LLV(C,3)  {TD23A:=IF(3,B,DRAWNULL);}
 D3:=TD13A AND TD23A;
 TD14A:=IF(4,TDP=4,TDP);
 TD24A:=IF(4,LLV(C,4)  {TD24A:=IF(4,B,DRAWNULL);}
 D4:=TD14A AND TD24A;
 TD15A:=IF(5,TDP=5,TDP);
 TD25A:=IF(5,LLV(C,5)  {TD25A:=IF(5,B,DRAWNULL);}
 D5:=TD15A AND TD25A;
 TD16A:=IF(6,TDP=6,TDP);
 TD26A:=IF(6,LLV(C,6)  {TD26A:=IF(6,B,DRAWNULL);}
 D6:=TD16A AND TD26A;
 TD17A:=IF(7,TDP=7,TDP);
 TD27A:=IF(7,LLV(C,7)  {TD27A:=IF(7,B,DRAWNULL);}
 D7:=TD17A AND TD27A;
 TD18A:=IF(8,TDP=8,TDP);
 TD28A:=IF(8,LLV(C,8)  {TD28A:=IF(8,B,DRAWNULL);}
 D8:=TD18A AND TD28A;
 TD19A:=IF(9,TDP=9,TDP);
 TD29A:=IF(9,LLV(C,9)  {TD29A:=IF(9,B,DRAWNULL);}
 D9:=TD19A AND TD29A;
 TD10A:=IF(10,TDP=10,TDP);
 TD20A:=IF(10,LLV(C,10)  {TD20A:=IF(10,B,DRAWNULL);}
 D10:=TD10A AND TD20A;
 TD110A:=IF(11,TDP=11,TDP);
 TD210A:=IF(11,LLV(C,11)  {TD210A:=IF(11,B,DRAWNULL);}
 D11:=TD110A AND TD210A;
 TD120A:=IF(12,TDP=12,TDP);
 TD220A:=IF(12,LLV(C,12)  {TD220A:=IF(12,B,DRAWNULL);}
 D12:=TD120A AND TD220A;
 TD130A:=IF(13,TDP=13,TDP);
 TD230A:=IF(13,LLV(C,13)  {TD230A:=IF(13,B,DRAWNULL);}
 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;
 {神奇数列时间循环周期}
 {菲波纳契螺旋周期；易学难精；关注成黄金分割比率的波段位置}
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;

 DRAWTEXT_FIX(1,0.01,0.9,0,'数字黄狄马克：买入结构，红：买入计数，白为卢卡斯螺旋周期，绿菲波纳契螺旋周期'),COLORBROWN;

 {黄金分割}
NB:=80;
 MB:=3;
 MA5X:=MA(C,5);
 MA13X:=MA(C,13);
高:=REF(HHV(H,NB),MB);
低:=REF(LLV(L,NB),MB);
 H19:=高-(高-低)*0.191;
 H38:=高-(高-低)*0.382;
 H中:=高-(高-低)*0.5;
 H61:=高-(高-低)*0.618;
 H80:=高-(高-低)*0.809;
一:REFDATE(高,DATE),POINTDOT,COLORWHITE;
二:REFDATE(H19,DATE),POINTDOT,COLORYELLOW;
三:REFDATE(H38,DATE),POINTDOT,COLORMAGENTA;
四:REFDATE(H中,DATE),POINTDOT,COLORRED;
五:REFDATE(H61,DATE),POINTDOT,COLORMAGENTA;
六:REFDATE(H80,DATE),POINTDOT,COLORYELLOW;
七:REFDATE(低,DATE),POINTDOT,COLORWHITE;
 DRAWTEXT(ISLASTBAR,一,' 高'),COLORWHITE;
 DRAWTEXT(ISLASTBAR,二,' 809'),COLORYELLOW;
 DRAWTEXT(ISLASTBAR,三,' 618'),COLORMAGENTA;
 DRAWTEXT(ISLASTBAR,四,' 中'),COLORRED;
 DRAWTEXT(ISLASTBAR,五,' 382'),COLORMAGENTA;
 DRAWTEXT(ISLASTBAR,六,' 191'),COLORYELLOW;
 DRAWTEXT(ISLASTBAR,七,' 低'),COLORWHITE;