通达信狄马克TD序列指数主图指标源码
TD准备:=IF(REF(C,1)>REF(C,4),1,0);
TD0:=BARSLAST(TD准备);
A:=IF(BARSSINCEN(LAST(C<REF(C,4),9,0),9),1,DRAWNULL);
F:=IF(BARSLASTCOUNT(C<REF(C,4))>=9,1, A);
G:=A+F;
TD11:=IF(1,TD0=1,0);
{TD21:=IF(1,LLV(C,1)<REF(C,4),0);}
TD21:=IF(1,G,DRAWNULL);
A1:=TD11 AND TD21;
TD12:=IF(2,TD0=2,0);
{TD22:=IF(2,LLV(C,2)<REF(C,4),0);}
TD22:=IF(2,G,DRAWNULL);
A2:=TD12 AND TD22;
TD13:=IF(3,TD0=3,0);
{TD23:=IF(3,LLV(C,3)<REF(C,4),0);}
TD23:=IF(3,G,DRAWNULL);
A3:=TD13 AND TD23;
TD14:=IF(4,TD0=4,0);
{TD24:=IF(4,LLV(C,4)<REF(C,4),0);}
TD24:=IF(4,G,DRAWNULL);
A4:=TD14 AND TD24;
TD15:=IF(5,TD0=5,0);
{TD25:=IF(5,LLV(C,5)<REF(C,4),0);}
TD25:=IF(5,G,DRAWNULL);
A5:=TD15 AND TD25;
TD16:=IF(6,TD0=6,0);
{TD26:=IF(6,LLV(C,6)<REF(C,4),0);}
TD26:=IF(6,G,DRAWNULL);
A6:=TD16 AND TD26;
TD17:=IF(7,TD0=7,0);
{TD27:=IF(7,LLV(C,7)<REF(C,4),0);}
TD27:=IF(7,G,DRAWNULL);
A7:=TD17 AND TD27;
TD18:=IF(8,TD0=8,0);
{TD28:=IF(8,LLV(C,8)<REF(C,4),0);}
TD28:=IF(8,G,DRAWNULL);
A8:=TD18 AND TD28;
TD19:=IF(9,TD0=9,0);
{TD29:=IF(9,LLV(C,9)<REF(C,4),0);}
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<REF(C,2),13,0),1,DRAWNULL);
TD11A:=IF(1,TDP=1,TDP);
TD21A:=IF(1,LLV(C,1)<REF(L,2),DRAWNULL);
{TD21A:=IF(1,B,DRAWNULL);}
D1:=TD11A AND TD21A;
TD12A:=IF(2,TDP=2,TDP);
TD22A:=IF(2,LLV(C,2)<REF(L,2),DRAWNULL);
{TD22A:=IF(2,B,DRAWNULL);}
D2:=TD12A AND TD22A;
TD13A:=IF(3,TDP=3,TDP);
TD23A:=IF(3,LLV(C,3)<REF(L,2),DRAWNULL);
{TD23A:=IF(3,B,DRAWNULL);}
D3:=TD13A AND TD23A;
TD14A:=IF(4,TDP=4,TDP);
TD24A:=IF(4,LLV(C,4)<REF(L,2),DRAWNULL);
{TD24A:=IF(4,B,DRAWNULL);}
D4:=TD14A AND TD24A;
TD15A:=IF(5,TDP=5,TDP);
TD25A:=IF(5,LLV(C,5)<REF(L,2),DRAWNULL);
{TD25A:=IF(5,B,DRAWNULL);}
D5:=TD15A AND TD25A;
TD16A:=IF(6,TDP=6,TDP);
TD26A:=IF(6,LLV(C,6)<REF(L,2),DRAWNULL);
{TD26A:=IF(6,B,DRAWNULL);}
D6:=TD16A AND TD26A;
TD17A:=IF(7,TDP=7,TDP);
TD27A:=IF(7,LLV(C,7)<REF(L,2),DRAWNULL);
{TD27A:=IF(7,B,DRAWNULL);}
D7:=TD17A AND TD27A;
TD18A:=IF(8,TDP=8,TDP);
TD28A:=IF(8,LLV(C,8)<REF(L,2),DRAWNULL);
{TD28A:=IF(8,B,DRAWNULL);}
D8:=TD18A AND TD28A;
TD19A:=IF(9,TDP=9,TDP);
TD29A:=IF(9,LLV(C,9)<REF(L,2),DRAWNULL);
{TD29A:=IF(9,B,DRAWNULL);}
D9:=TD19A AND TD29A;
TD10A:=IF(10,TDP=10,TDP);
TD20A:=IF(10,LLV(C,10)<REF(L,2),DRAWNULL);
{TD20A:=IF(10,B,DRAWNULL);}
D10:=TD10A AND TD20A;
TD110A:=IF(11,TDP=11,TDP);
TD210A:=IF(11,LLV(C,11)<REF(L,2),DRAWNULL);
{TD210A:=IF(11,B,DRAWNULL);}
D11:=TD110A AND TD210A;
TD120A:=IF(12,TDP=12,TDP);
TD220A:=IF(12,LLV(C,12)<REF(L,2),DRAWNULL);
{TD220A:=IF(12,B,DRAWNULL);}
D12:=TD120A AND TD220A;
TD130A:=IF(13,TDP=13,TDP);
TD230A:=IF(13,LLV(C,13)<REF(L,2),DRAWNULL);
{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;
来函数检测结果如下：
该公式没有未来函数
解密、定制、编写公式指标请联系QQ或微信同号：88652583
置顶指标
相关指标公式
TD准备赋值:如果1日前的收盘价>4日前的收盘价,返回1,否则返回0
TD0赋值:上次TD准备距今天数
A赋值:如果在9周期内首次从前9日到前0日持续收盘价<4日前的收盘价距今天数,返回1,否则返回无效数
F赋值:如果条件连续成立次数>=9,返回1,否则返回A
G赋值:A+F
TD11赋值:如果1,返回TD0=1,否则返回0
TD21赋值:如果1,返回G,否则返回无效数
A1赋值:TD11 AND TD21
TD12赋值:如果2,返回TD0=2,否则返回0
TD22赋值:如果2,返回G,否则返回无效数
A2赋值:TD12 AND TD22
TD13赋值:如果3,返回TD0=3,否则返回0
TD23赋值:如果3,返回G,否则返回无效数
A3赋值:TD13 AND TD23
TD14赋值:如果4,返回TD0=4,否则返回0
TD24赋值:如果4,返回G,否则返回无效数
A4赋值:TD14 AND TD24
TD15赋值:如果5,返回TD0=5,否则返回0
TD25赋值:如果5,返回G,否则返回无效数
A5赋值:TD15 AND TD25
TD16赋值:如果6,返回TD0=6,否则返回0
TD26赋值:如果6,返回G,否则返回无效数
A6赋值:TD16 AND TD26
TD17赋值:如果7,返回TD0=7,否则返回0
TD27赋值:如果7,返回G,否则返回无效数
A7赋值:TD17 AND TD27
TD18赋值:如果8,返回TD0=8,否则返回0
TD28赋值:如果8,返回G,否则返回无效数
A8赋值:TD18 AND TD28
TD19赋值:如果9,返回TD0=9,否则返回0
TD29赋值:如果9,返回G,否则返回无效数
A9赋值:TD19 AND TD29
当满足条件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位置书写文字,画黄色
TDP赋值:上次A9距今天数
B赋值:如果从前13日到前0日持续收盘价<2日前的收盘价,返回1,否则返回无效数
TD11A赋值:如果1,返回TDP=1,否则返回TDP
TD21A赋值:如果1,返回1日内收盘价的最低值<2日前的最低价,否则返回无效数
D1赋值:TD11A AND TD21A
TD12A赋值:如果2,返回TDP=2,否则返回TDP
TD22A赋值:如果2,返回2日内收盘价的最低值<2日前的最低价,否则返回无效数
D2赋值:TD12A AND TD22A
TD13A赋值:如果3,返回TDP=3,否则返回TDP
TD23A赋值:如果3,返回3日内收盘价的最低值<2日前的最低价,否则返回无效数
D3赋值:TD13A AND TD23A
TD14A赋值:如果4,返回TDP=4,否则返回TDP
TD24A赋值:如果4,返回4日内收盘价的最低值<2日前的最低价,否则返回无效数
D4赋值:TD14A AND TD24A
TD15A赋值:如果5,返回TDP=5,否则返回TDP
TD25A赋值:如果5,返回5日内收盘价的最低值<2日前的最低价,否则返回无效数
D5赋值:TD15A AND TD25A
TD16A赋值:如果6,返回TDP=6,否则返回TDP
TD26A赋值:如果6,返回6日内收盘价的最低值<2日前的最低价,否则返回无效数
D6赋值:TD16A AND TD26A
TD17A赋值:如果7,返回TDP=7,否则返回TDP
TD27A赋值:如果7,返回7日内收盘价的最低值<2日前的最低价,否则返回无效数
D7赋值:TD17A AND TD27A
TD18A赋值:如果8,返回TDP=8,否则返回TDP
TD28A赋值:如果8,返回8日内收盘价的最低值<2日前的最低价,否则返回无效数
D8赋值:TD18A AND TD28A
TD19A赋值:如果9,返回TDP=9,否则返回TDP
TD29A赋值:如果9,返回9日内收盘价的最低值<2日前的最低价,否则返回无效数
D9赋值:TD19A AND TD29A
TD10A赋值:如果10,返回TDP=10,否则返回TDP
TD20A赋值:如果10,返回10日内收盘价的最低值<2日前的最低价,否则返回无效数
D10赋值:TD10A AND TD20A
TD110A赋值:如果11,返回TDP=11,否则返回TDP
TD210A赋值:如果11,返回11日内收盘价的最低值<2日前的最低价,否则返回无效数
D11赋值:TD110A AND TD210A
TD120A赋值:如果12,返回TDP=12,否则返回TDP
TD220A赋值:如果12,返回12日内收盘价的最低值<2日前的最低价,否则返回无效数
D12赋值:TD120A AND TD220A
TD130A赋值:如果13,返回TDP=13,否则返回TDP
TD230A赋值:如果13,返回13日内收盘价的最低值<2日前的最低价,否则返回无效数
D13赋值:TD130A AND TD230A
当满足条件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位置书写文字,画红色
当满足条件到最后交易的周期=3时,在最高价*1.02位置书写文字, 画绿色
当满足条件到最后交易的周期=5时,在最高价*1.02位置书写文字, 画绿色
当满足条件到最后交易的周期=8时,在最高价*1.02位置书写文字, 画绿色
当满足条件到最后交易的周期=13时,在最高价*1.02位置书写文字, 画绿色
当满足条件到最后交易的周期=21时,在最高价*1.02位置书写文字, 画绿色
当满足条件到最后交易的周期=34时,在最高价*1.02位置书写文字, 画绿色
当满足条件到最后交易的周期=55时,在最高价*1.02位置书写文字, 画绿色
当满足条件到最后交易的周期=89时,在最高价*1.02位置书写文字, 画绿色
当满足条件到最后交易的周期=144时,在最高价*1.02位置书写文字, 画绿色
当满足条件到最后交易的周期=233时,在最高价*1.02位置书写文字, 画绿色
当满足条件到最后交易的周期=377时,在最高价*1.02位置书写文字, 画绿色
当满足条件到最后交易的周期=610时,在最高价*1.02位置书写文字, 画绿色
当满足条件到最后交易的周期=987时,在最高价*1.02位置书写文字, 画绿色
当满足条件到最后交易的周期=1597时,在最高价*1.02位置书写文字, 画绿色
当满足条件到最后交易的周期=2584时,在最高价*1.02位置书写文字, 画绿色
当满足条件到最后交易的周期=4181时,在最高价*1.02位置书写文字, 画绿色
当满足条件到最后交易的周期=7时,在最高价*1.025位置书写文字, 画白色
当满足条件到最后交易的周期=11时,在最高价*1.025位置书写文字, 画白色
当满足条件到最后交易的周期=18时,在最高价*1.025位置书写文字, 画白色
当满足条件到最后交易的周期=29时,在最高价*1.025位置书写文字, 画白色
当满足条件到最后交易的周期=47时,在最高价*1.025位置书写文字, 画白色
当满足条件到最后交易的周期=76时,在最高价*1.025位置书写文字, 画白色
当满足条件到最后交易的周期=123时,在最高价*1.025位置书写文字, 画白色
当满足条件到最后交易的周期=199时,在最高价*1.025位置书写文字, 画白色
当满足条件到最后交易的周期=322时,在最高价*1.025位置书写文字, 画白色
当满足条件到最后交易的周期=521时,在最高价*1.025位置书写文字, 画白色
当满足条件到最后交易的周期=843时,在最高价*1.025位置书写文字, 画白色
当满足条件到最后交易的周期=1364时,在最高价*1.025位置书写文字, 画白色
当满足条件到最后交易的周期=2207时,在最高价*1.025位置书写文字, 画白色
当满足条件到最后交易的周期=3571时,在最高价*1.025位置书写文字, 画白色
当满足条件1时,在横轴0.01纵轴0.9位置书写文字,画棕色
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,画白色
当满足条件是否最后一个周期时,在一位置书写文字,画白色
当满足条件是否最后一个周期时,在二位置书写文字,画黄色
当满足条件是否最后一个周期时,在三位置书写文字,画洋红色
当满足条件是否最后一个周期时,在四位置书写文字,画红色
当满足条件是否最后一个周期时,在五位置书写文字,画洋红色
当满足条件是否最后一个周期时,在六位置书写文字,画黄色
当满足条件是否最后一个周期时,在七位置书写文字,画白色
