预言帝狄马克的TD序列主图（9,13数字序列）飞狐版 EA-万能指标公式

预言帝狄马克的TD序列主图（9,13数字序列）飞狐版

源码

{主图分TD准备和TD13倒数两部分}

{TD准备}
rnA:=REF(C,1)>REF(C,4);
rnAB:=C<REF(C,4);
rnAA:=A AND AB;
rnLS0:=BARSLAST(AA);
rnLS11:=IF(1,LS0=1,AA);
rnLS21:=IF(1,LLV(C,1)<REF(C,4),1);
rnA1:=LS11 AND LS21;
rnLS12:=IF(2,LS0=2,AA);
rnLS22:=IF(2,LLV(C,2)<REF(C,4),1);
rnA2:=LS12 AND LS22;
rnLS13:=IF(3,LS0=3,AA);
rnLS23:=IF(3,LLV(C,3)<REF(C,4),1);
rnA3:=LS13 AND LS23;
rnLS14:=IF(4,LS0=4,AA);
rnLS24:=IF(4,LLV(C,4)<REF(C,4),1);
rnA4:=LS14 AND LS24;
rnLS15:=IF(5,LS0=5,AA);
rnLS25:=IF(5,LLV(C,5)<REF(C,4),1);
rnA5:=LS15 AND LS25;
rnLS16:=IF(6,LS0=6,AA);
rnLS26:=IF(6,LLV(C,6)<REF(C,4),1);
rnA6:=LS16 AND LS26;
rnLS17:=IF(7,LS0=7,AA);
rnLS27:=IF(7,LLV(C,7)<REF(C,4),1);
rnA7:=LS17 AND LS27;
rnLS18:=IF(8,LS0=8,AA);
rnLS28:=IF(8,LLV(C,8)<REF(C,4),1);
rnA8:=LS18 AND LS28;
rnLS19:=IF(9,LS0=9,AA);
rnLS29:=IF(9,LLV(C,9)<REF(C,4),1);
rnA9:=LS19 AND LS29;
rnDRAWTEXT(A1,L-0.3,’1′),COLORGREEN;
rnDRAWTEXT(A2,L-0.3,’2′),COLORGREEN;
rnDRAWTEXT(A3,L-0.3,’3′),COLORGREEN;
rnDRAWTEXT(A4,L-0.3,’4′),COLORGREEN;
rnDRAWTEXT(A5,L-0.3,’5′),COLORGREEN;
rnDRAWTEXT(A6,L-0.3,’6′),COLORGREEN;
rnDRAWTEXT(A7,L-0.3,’7′),COLORGREEN;
rnDRAWTEXT(A8,L-0.3,’8′),COLORGREEN;
rnDRAWTEXT(A9,L-0.3,’9′),COLORGREEN;
rn{TD13次倒数}
rnB:=C<=REF(L,2);
rnLSP:=BARSLAST(A9);
rnLS11A:=IF(1,LSP=1,B);
rnLS21A:=IF(1,LLV(C,1)<REF(L,2),1);
rnD1:=LS11A AND LS21A;
rnLS12A:=IF(2,LSP=2,B);
rnLS22A:=IF(2,LLV(C,2)<REF(L,2),1);
rnD2:=LS12A AND LS22A;
rnLS13A:=IF(3,LSP=3,B);
rnLS23A:=IF(3,LLV(C,3)<REF(L,2),1);
rnD3:=LS13A AND LS23A;
rnLS14A:=IF(4,LSP=4,B);
rnLS24A:=IF(4,LLV(C,4)<REF(L,2),1);
rnD4:=LS14A AND LS24A;
rnLS15A:=IF(5,LSP=5,B);
rnLS25A:=IF(5,LLV(C,5)<REF(L,2),1);
rnD5:=LS15A AND LS25A;
rnLS16A:=IF(6,LSP=6,B);
rnLS26A:=IF(6,LLV(C,6)<REF(L,2),1);
rnD6:=LS16A AND LS26A;
rnLS17A:=IF(7,LSP=7,B);
rnLS27A:=IF(7,LLV(C,7)<REF(L,2),1);
rnD7:=LS17A AND LS27A;
rnLS18A:=IF(8,LSP=8,B);
rnLS28A:=IF(8,LLV(C,8)<REF(L,2),1);
rnD8:=LS18A AND LS28A;
rnLS19A:=IF(9,LSP=9,B);
rnLS29A:=IF(9,LLV(C,9)<REF(L,2),1);
rnD9:=LS19A AND LS29A;
rnLS10A:=IF(10,LSP=10,B);
rnLS20A:=IF(10,LLV(C,10)<REF(L,2),1);
rnD10:=LS10A AND LS20A;
rnLS110A:=IF(11,LSP=11,B);
rnLS210A:=IF(11,LLV(C,11)<REF(L,2),1);
rnD11:=LS110A AND LS210A;
rnLS120A:=IF(12,LSP=12,B);
rnLS220A:=IF(12,LLV(C,12)<REF(L,2),1);
rnD12:=LS120A AND LS220A;
rnLS130A:=IF(13,LSP=13,B);
rnLS230A:=IF(13,LLV(C,13)<REF(L,2),1);
rnD13:=LS130A AND LS230A;
rnDRAWTEXT(D1,L-0.6,’1′),COLORRED;
rnDRAWTEXT(D2,L-0.6,’2′),COLORRED;
rnDRAWTEXT(D3,L-0.6,’3′),COLORRED;
rnDRAWTEXT(D4,L-0.6,’4′),COLORRED;
rnDRAWTEXT(D5,L-0.6,’5′),COLORRED;
rnDRAWTEXT(D6,L-0.6,’6′),COLORRED;
rnDRAWTEXT(D7,L-0.6,’7′),COLORRED;
rnDRAWTEXT(D8,L-0.6,’8′),COLORRED;
rnDRAWTEXT(D9,L-0.6,’9′),COLORRED;
rnDRAWTEXT(D10,L-0.6,’10’),COLORRED;
rnDRAWTEXT(D11,L-0.6,’11’),COLORRED;
rnDRAWTEXT(D12,L-0.6,’12’),COLORRED;
rnDRAWTEXT(D13,L-0.6,’13’),COLORRED;
rn{卢卡斯螺旋周期，《超级短线新武器》一书有具体的实战案例}
rn DRAWTEXT(DATACOUNT-BARPOS+1=7,HIGH*1.025,’7′), COLORWHITE;
rn DRAWTEXT(DATACOUNT-BARPOS+1=11,HIGH*1.025,’11’), COLORWHITE;
rn DRAWTEXT(DATACOUNT-BARPOS+1=18,HIGH*1.025,’18’), COLORWHITE;
rn DRAWTEXT(DATACOUNT-BARPOS+1=29,HIGH*1.025,’29’), COLORWHITE;
rn DRAWTEXT(DATACOUNT-BARPOS+1=47,HIGH*1.025,’47’), COLORWHITE;
rn DRAWTEXT(DATACOUNT-BARPOS+1=76,HIGH*1.025,’76’), COLORWHITE;
rn DRAWTEXT(DATACOUNT-BARPOS+1=123,HIGH*1.025,’123′), COLORWHITE;
rn DRAWTEXT(DATACOUNT-BARPOS+1=199,HIGH*1.025,’199′), COLORWHITE;
rn DRAWTEXT(DATACOUNT-BARPOS+1=322,HIGH*1.025,’322′), COLORWHITE;
rn DRAWTEXT(DATACOUNT-BARPOS+1=521,HIGH*1.025,’521′), COLORWHITE;
rn DRAWTEXT(DATACOUNT-BARPOS+1=843,HIGH*1.025,’843′), COLORWHITE;
rn DRAWTEXT(DATACOUNT-BARPOS+1=1364,HIGH*1.025,’1364′), COLORWHITE;
rn DRAWTEXT(DATACOUNT-BARPOS+1=2207,HIGH*1.025,’2207′), COLORWHITE;
rn DRAWTEXT(DATACOUNT-BARPOS+1=3571,HIGH*1.025,’3571′), COLORWHITE;
rn//DRAWTEXT_FIX(1,0.01,0.9,0,’绿数字为狄马克TD准备，红为TD13倒数，白为卢卡斯螺旋周期’),COLORBROWN;
rn半分位:=(O+C)/2;
rn昨半分位:=REF(半分位,1);
rnSTICKLINE(ISLASTBAR,昨半分位,昨半分位,10,0),COLORWHITE;
rnDRAWNUMBER(ISLASTBAR,昨半分位,昨半分位,2);
rnDRAWTEXT(ISLASTBAR,昨半分位,’ 昨半分位’),COLORGRAY;
rn{黄金分割}
rnNB:=80;
rnMB:=3;
rnMA5X:=MA(C,5);
rnMA13X:=MA(C,13);
rn高:=REF(HHV(H,NB),MB);
rn低:=REF(LLV(L,NB),MB);
rnH19:=高-(高-低)*0.191;
rnH38:=高-(高-低)*0.382;
rnH中:=高-(高-低)*0.5;
rnH61:=高-(高-低)*0.618;
rnH80:=高-(高-低)*0.809;
rn一:REFX(高,DATE),POINTDOT,COLORWHITE;
rn二:REFX(H19,DATE),POINTDOT,COLORYELLOW;
rn三:REFX(H38,DATE),POINTDOT,COLORMAGENTA;
rn四:REFX(H中,DATE),POINTDOT,COLORRED;
rn五:REFX(H61,DATE),POINTDOT,COLORMAGENTA;
rn六:REFX(H80,DATE),POINTDOT,COLORYELLOW;
rn七:REFX(低,DATE),POINTDOT,COLORWHITE;
rnDRAWTEXT(ISLASTBAR,一,’      高’),COLORWHITE;
rnDRAWTEXT(ISLASTBAR,二,’      809′),COLORYELLOW;
rnDRAWTEXT(ISLASTBAR,三,’      618′),COLORMAGENTA;
rnDRAWTEXT(ISLASTBAR,四,’      中’),COLORRED;
rnDRAWTEXT(ISLASTBAR,五,’      382′),COLORMAGENTA;
rnDRAWTEXT(ISLASTBAR,六,’      191′),COLORYELLOW;
rnDRAWTEXT(ISLASTBAR,七,’      低’),COLORWHITE;