相關標簽:狄馬克td序列指標源碼 、 狄馬克td指標畫線公式 、 狄馬克td序列思想 、 迪馬克td序列指標 、 狄馬克序列公式源碼 、 迪馬克的td序列公式 、 狄馬克td選股公式 、 狄馬克指標公式通達信 、 狄馬克九轉序列公式 、 飛狐缺口主圖指標公式 、 馬克9轉序列 、 迪馬克td組合指標公式 、 狄馬克指標源碼 、 td序列通達信主圖 、 狄馬克轉9 、

預言帝狄馬克的TD序列主圖（9,13數字序列）飛狐版源碼{主圖分TD準備和TD13倒數兩部分}{TD準備}

原理解析：
A賦值:1日前的收盤價>4日前的收盤價 AB賦值:收盤價<4日前的收盤價 AA賦值:A AND AB LS0賦值:上次AA距今天數 LS11賦值:如果1,返回LS0=1,否則返回AA LS21賦值:如果1,返回1日內收盤價的最低值<4日前的收盤價,否則返回1 A1賦值:LS11 AND LS21 LS12賦值:如果2,返回LS0=2,否則返回AA LS22賦值:如果2,返回2日內收盤價的最低值<4日前的收盤價,否則返回1 A2賦值:LS12 AND LS22 LS13賦值:如果3,返回LS0=3,否則返回AA LS23賦值:如果3,返回3日內收盤價的最低值<4日前的收盤價,否則返回1 A3賦值:LS13 AND LS23 LS14賦值:如果4,返回LS0=4,否則返回AA LS24賦值:如果4,返回4日內收盤價的最低值<4日前的收盤價,否則返回1 A4賦值:LS14 AND LS24 LS15賦值:如果5,返回LS0=5,否則返回AA LS25賦值:如果5,返回5日內收盤價的最低值<4日前的收盤價,否則返回1 A5賦值:LS15 AND LS25 LS16賦值:如果6,返回LS0=6,否則返回AA LS26賦值:如果6,返回6日內收盤價的最低值<4日前的收盤價,否則返回1 A6賦值:LS16 AND LS26 LS17賦值:如果7,返回LS0=7,否則返回AA LS27賦值:如果7,返回7日內收盤價的最低值<4日前的收盤價,否則返回1 A7賦值:LS17 AND LS27 LS18賦值:如果8,返回LS0=8,否則返回AA LS28賦值:如果8,返回8日內收盤價的最低值<4日前的收盤價,否則返回1 A8賦值:LS18 AND LS28 LS19賦值:如果9,返回LS0=9,否則返回AA LS29賦值:如果9,返回9日內收盤價的最低值<4日前的收盤價,否則返回1 A9賦值:LS19 AND LS29 當滿足條件A1時,在最低價-0.3位置書寫文字,畫綠色 當滿足條件A2時,在最低價-0.3位置書寫文字,畫綠色 當滿足條件A3時,在最低價-0.3位置書寫文字,畫綠色 當滿足條件A4時,在最低價-0.3位置書寫文字,畫綠色 當滿足條件A5時,在最低價-0.3位置書寫文字,畫綠色 當滿足條件A6時,在最低價-0.3位置書寫文字,畫綠色 當滿足條件A7時,在最低價-0.3位置書寫文字,畫綠色 當滿足條件A8時,在最低價-0.3位置書寫文字,畫綠色 當滿足條件A9時,在最低價-0.3位置書寫文字,畫綠色 B賦值:收盤價<=2日前的最低價 LSP賦值:上次A9距今天數 LS11A賦值:如果1,返回LSP=1,否則返回B LS21A賦值:如果1,返回1日內收盤價的最低值<2日前的最低價,否則返回1 D1賦值:LS11A AND LS21A LS12A賦值:如果2,返回LSP=2,否則返回B LS22A賦值:如果2,返回2日內收盤價的最低值<2日前的最低價,否則返回1 D2賦值:LS12A AND LS22A LS13A賦值:如果3,返回LSP=3,否則返回B LS23A賦值:如果3,返回3日內收盤價的最低值<2日前的最低價,否則返回1 D3賦值:LS13A AND LS23A LS14A賦值:如果4,返回LSP=4,否則返回B LS24A賦值:如果4,返回4日內收盤價的最低值<2日前的最低價,否則返回1 D4賦值:LS14A AND LS24A LS15A賦值:如果5,返回LSP=5,否則返回B LS25A賦值:如果5,返回5日內收盤價的最低值<2日前的最低價,否則返回1 D5賦值:LS15A AND LS25A LS16A賦值:如果6,返回LSP=6,否則返回B LS26A賦值:如果6,返回6日內收盤價的最低值<2日前的最低價,否則返回1 D6賦值:LS16A AND LS26A LS17A賦值:如果7,返回LSP=7,否則返回B LS27A賦值:如果7,返回7日內收盤價的最低值<2日前的最低價,否則返回1 D7賦值:LS17A AND LS27A LS18A賦值:如果8,返回LSP=8,否則返回B LS28A賦值:如果8,返回8日內收盤價的最低值<2日前的最低價,否則返回1 D8賦值:LS18A AND LS28A LS19A賦值:如果9,返回LSP=9,否則返回B LS29A賦值:如果9,返回9日內收盤價的最低值<2日前的最低價,否則返回1 D9賦值:LS19A AND LS29A LS10A賦值:如果10,返回LSP=10,否則返回B LS20A賦值:如果10,返回10日內收盤價的最低值<2日前的最低價,否則返回1 D10賦值:LS10A AND LS20A LS110A賦值:如果11,返回LSP=11,否則返回B LS210A賦值:如果11,返回11日內收盤價的最低值<2日前的最低價,否則返回1 D11賦值:LS110A AND LS210A LS120A賦值:如果12,返回LSP=12,否則返回B LS220A賦值:如果12,返回12日內收盤價的最低值<2日前的最低價,否則返回1 D12賦值:LS120A AND LS220A LS130A賦值:如果13,返回LSP=13,否則返回B LS230A賦值:如果13,返回13日內收盤價的最低值<2日前的最低價,否則返回1 D13賦值:LS130A AND LS230A 當滿足條件D1時,在最低價-0.6位置書寫文字,畫紅色 當滿足條件D2時,在最低價-0.6位置書寫文字,畫紅色 當滿足條件D3時,在最低價-0.6位置書寫文字,畫紅色 當滿足條件D4時,在最低價-0.6位置書寫文字,畫紅色 當滿足條件D5時,在最低價-0.6位置書寫文字,畫紅色 當滿足條件D6時,在最低價-0.6位置書寫文字,畫紅色 當滿足條件D7時,在最低價-0.6位置書寫文字,畫紅色 當滿足條件D8時,在最低價-0.6位置書寫文字,畫紅色 當滿足條件D9時,在最低價-0.6位置書寫文字,畫紅色 當滿足條件D10時,在最低價-0.6位置書寫文字,畫紅色 當滿足條件D11時,在最低價-0.6位置書寫文字,畫紅色 當滿足條件D12時,在最低價-0.6位置書寫文字,畫紅色 當滿足條件D13時,在最低價-0.6位置書寫文字,畫紅色 當滿足條件DATACOUNT-BARPOS+1=7時,在最高價*1.025位置書寫文字, 畫白色 當滿足條件DATACOUNT-BARPOS+1=11時,在最高價*1.025位置書寫文字, 畫白色 當滿足條件DATACOUNT-BARPOS+1=18時,在最高價*1.025位置書寫文字, 畫白色 當滿足條件DATACOUNT-BARPOS+1=29時,在最高價*1.025位置書寫文字, 畫白色 當滿足條件DATACOUNT-BARPOS+1=47時,在最高價*1.025位置書寫文字, 畫白色 當滿足條件DATACOUNT-BARPOS+1=76時,在最高價*1.025位置書寫文字, 畫白色 當滿足條件DATACOUNT-BARPOS+1=123時,在最高價*1.025位置書寫文字, 畫白色 當滿足條件DATACOUNT-BARPOS+1=199時,在最高價*1.025位置書寫文字, 畫白色 當滿足條件DATACOUNT-BARPOS+1=322時,在最高價*1.025位置書寫文字, 畫白色 當滿足條件DATACOUNT-BARPOS+1=521時,在最高價*1.025位置書寫文字, 畫白色 當滿足條件DATACOUNT-BARPOS+1=843時,在最高價*1.025位置書寫文字, 畫白色 當滿足條件DATACOUNT-BARPOS+1=1364時,在最高價*1.025位置書寫文字, 畫白色 當滿足條件DATACOUNT-BARPOS+1=2207時,在最高價*1.025位置書寫文字, 畫白色 當滿足條件DATACOUNT-BARPOS+1=3571時,在最高價*1.025位置書寫文字, 畫白色 //當滿足條件1時,在橫軸0.01縱軸0.9位置書寫文字,畫棕色 半分位賦值:(開盤價+收盤價)/2 昨半分位賦值:1日前的半分位 當滿足條件是否最后一個周期時,在昨半分位和昨半分位位置之間畫柱狀線,寬度為10,0不為0則畫空心柱.,畫白色 當滿足條件是否最后一個周期時,在昨半分位位置書寫數字 當滿足條件是否最后一個周期時,在昨半分位位置書寫文字,畫深灰色 NB賦值:80 MB賦值:3 MA5X賦值:收盤價的5日簡單移動平均 MA13X賦值:收盤價的13日簡單移動平均 高賦值:MB日前的NB日內最高價的最高值 低賦值:MB日前的NB日內最低價的最低值 H19賦值:高-(高-低)*0.191 H38賦值:高-(高-低)*0.382 H中賦值:高-(高-低)*0.5 H61賦值:高-(高-低)*0.618 H80賦值:高-(高-低)*0.809 輸出一:日期日后的高,POINTDOT,畫白色 輸出二:日期日后的H19,POINTDOT,畫黃色 輸出三:日期日后的H38,POINTDOT,畫洋紅色 輸出四:日期日后的H中,POINTDOT,畫紅色 輸出五:日期日后的H61,POINTDOT,畫洋紅色 輸出六:日期日后的H80,POINTDOT,畫黃色 輸出七:日期日后的低,POINTDOT,畫白色 當滿足條件是否最后一個周期時,在一位置書寫文字,畫白色 當滿足條件是否最后一個周期時,在二位置書寫文字,畫黃色 當滿足條件是否最后一個周期時,在三位置書寫文字,畫洋紅色 當滿足條件是否最后一個周期時,在四位置書寫文字,畫紅色 當滿足條件是否最后一個周期時,在五位置書寫文字,畫洋紅色 當滿足條件是否最后一個周期時,在六位置書寫文字,畫黃色 當滿足條件是否最后一個周期時,在七位置書寫文字,畫白色

源碼：

A:=REF(C,1)>REF(C,4);
AB:=C<REF(C,4);
AA:=A AND AB;
LS0:=BARSLAST(AA);
LS11:=IF(1,LS0=1,AA);
LS21:=IF(1,LLV(C,1)<REF(C,4),1);
A1:=LS11 AND LS21;
LS12:=IF(2,LS0=2,AA);
LS22:=IF(2,LLV(C,2)<REF(C,4),1);
A2:=LS12 AND LS22;
LS13:=IF(3,LS0=3,AA);
LS23:=IF(3,LLV(C,3)<REF(C,4),1);
A3:=LS13 AND LS23;
LS14:=IF(4,LS0=4,AA);
LS24:=IF(4,LLV(C,4)<REF(C,4),1);
A4:=LS14 AND LS24;
LS15:=IF(5,LS0=5,AA);
LS25:=IF(5,LLV(C,5)<REF(C,4),1);
A5:=LS15 AND LS25;
LS16:=IF(6,LS0=6,AA);
LS26:=IF(6,LLV(C,6)<REF(C,4),1);
A6:=LS16 AND LS26;
LS17:=IF(7,LS0=7,AA);
LS27:=IF(7,LLV(C,7)<REF(C,4),1);
A7:=LS17 AND LS27;
LS18:=IF(8,LS0=8,AA);
LS28:=IF(8,LLV(C,8)<REF(C,4),1);
A8:=LS18 AND LS28;
LS19:=IF(9,LS0=9,AA);
LS29:=IF(9,LLV(C,9)<REF(C,4),1);
A9:=LS19 AND LS29;
DRAWTEXT(A1,L-0.3,'1'),COLORGREEN;
DRAWTEXT(A2,L-0.3,'2'),COLORGREEN;
DRAWTEXT(A3,L-0.3,'3'),COLORGREEN;
DRAWTEXT(A4,L-0.3,'4'),COLORGREEN;
DRAWTEXT(A5,L-0.3,'5'),COLORGREEN;
DRAWTEXT(A6,L-0.3,'6'),COLORGREEN;
DRAWTEXT(A7,L-0.3,'7'),COLORGREEN;
DRAWTEXT(A8,L-0.3,'8'),COLORGREEN;
DRAWTEXT(A9,L-0.3,'9'),COLORGREEN;
{TD13次倒數}
B:=C<=REF(L,2);
LSP:=BARSLAST(A9);
LS11A:=IF(1,LSP=1,B);
LS21A:=IF(1,LLV(C,1)<REF(L,2),1);
D1:=LS11A AND LS21A;
LS12A:=IF(2,LSP=2,B);
LS22A:=IF(2,LLV(C,2)<REF(L,2),1);
D2:=LS12A AND LS22A;
LS13A:=IF(3,LSP=3,B);
LS23A:=IF(3,LLV(C,3)<REF(L,2),1);
D3:=LS13A AND LS23A;
LS14A:=IF(4,LSP=4,B);
LS24A:=IF(4,LLV(C,4)<REF(L,2),1);
D4:=LS14A AND LS24A;
LS15A:=IF(5,LSP=5,B);
LS25A:=IF(5,LLV(C,5)<REF(L,2),1);
D5:=LS15A AND LS25A;
LS16A:=IF(6,LSP=6,B);
LS26A:=IF(6,LLV(C,6)<REF(L,2),1);
D6:=LS16A AND LS26A;
LS17A:=IF(7,LSP=7,B);
LS27A:=IF(7,LLV(C,7)<REF(L,2),1);
D7:=LS17A AND LS27A;
LS18A:=IF(8,LSP=8,B);
LS28A:=IF(8,LLV(C,8)<REF(L,2),1);
D8:=LS18A AND LS28A;
LS19A:=IF(9,LSP=9,B);
LS29A:=IF(9,LLV(C,9)<REF(L,2),1);
D9:=LS19A AND LS29A;
LS10A:=IF(10,LSP=10,B);
LS20A:=IF(10,LLV(C,10)<REF(L,2),1);
D10:=LS10A AND LS20A;
LS110A:=IF(11,LSP=11,B);
LS210A:=IF(11,LLV(C,11)<REF(L,2),1);
D11:=LS110A AND LS210A;
LS120A:=IF(12,LSP=12,B);
LS220A:=IF(12,LLV(C,12)<REF(L,2),1);
D12:=LS120A AND LS220A;
LS130A:=IF(13,LSP=13,B);
LS230A:=IF(13,LLV(C,13)<REF(L,2),1);
D13:=LS130A AND LS230A;
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(DATACOUNT-BARPOS+1=7,HIGH*1.025,'7'), COLORWHITE;
DRAWTEXT(DATACOUNT-BARPOS+1=11,HIGH*1.025,'11'), COLORWHITE;
DRAWTEXT(DATACOUNT-BARPOS+1=18,HIGH*1.025,'18'), COLORWHITE;
DRAWTEXT(DATACOUNT-BARPOS+1=29,HIGH*1.025,'29'), COLORWHITE;
DRAWTEXT(DATACOUNT-BARPOS+1=47,HIGH*1.025,'47'), COLORWHITE;
DRAWTEXT(DATACOUNT-BARPOS+1=76,HIGH*1.025,'76'), COLORWHITE;
DRAWTEXT(DATACOUNT-BARPOS+1=123,HIGH*1.025,'123'), COLORWHITE;
DRAWTEXT(DATACOUNT-BARPOS+1=199,HIGH*1.025,'199'), COLORWHITE;
DRAWTEXT(DATACOUNT-BARPOS+1=322,HIGH*1.025,'322'), COLORWHITE;
DRAWTEXT(DATACOUNT-BARPOS+1=521,HIGH*1.025,'521'), COLORWHITE;
DRAWTEXT(DATACOUNT-BARPOS+1=843,HIGH*1.025,'843'), COLORWHITE;
DRAWTEXT(DATACOUNT-BARPOS+1=1364,HIGH*1.025,'1364'), COLORWHITE;
DRAWTEXT(DATACOUNT-BARPOS+1=2207,HIGH*1.025,'2207'), COLORWHITE;
DRAWTEXT(DATACOUNT-BARPOS+1=3571,HIGH*1.025,'3571'), COLORWHITE;
//DRAWTEXT_FIX(1,0.01,0.9,0,'綠數字為狄馬克TD準備，紅為TD13倒數，白為盧卡斯螺旋周期'),COLORBROWN;
半分位:=(O+C)/2;
昨半分位:=REF(半分位,1);
STICKLINE(ISLASTBAR,昨半分位,昨半分位,10,0),COLORWHITE;
DRAWNUMBER(ISLASTBAR,昨半分位,昨半分位,2);
DRAWTEXT(ISLASTBAR,昨半分位,' 昨半分位'),COLORGRAY;
{黃金分割}
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;
一:REFX(高,DATE),POINTDOT,COLORWHITE;
二:REFX(H19,DATE),POINTDOT,COLORYELLOW;
三:REFX(H38,DATE),POINTDOT,COLORMAGENTA;
四:REFX(H中,DATE),POINTDOT,COLORRED;
五:REFX(H61,DATE),POINTDOT,COLORMAGENTA;
六:REFX(H80,DATE),POINTDOT,COLORYELLOW;
七:REFX(低,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;{程序化交易 www.kzuj.com.cn }

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】