大智慧狄马克指标目前比较完整的公式

以下是大智慧狄马克指标目前比较完整的公式源码

大智慧狄马克指标目前比较完整的公式源码：

A:=DRAWTEXT(C REF(L,4),LOW,'*');

LS0:=BARSLAST(A);

LS11:=IF(1,LS0=1,A);

LS21:=IF(1,LLV(L,1) REF(L,1),1);

A1:=LS11ANDLS21;

LS12:=IF(2,LS0=2,A);

LS22:=IF(2,LLV(L,2) REF(L,2),1);

A2:=LS12ANDLS22;

LS13:=IF(3,LS0=3,A);

LS23:=IF(3,LLV(L,3) REF(L,3),1);

A3:=LS13ANDLS23;

LS14:=IF(4,LS0=4,A);

LS24:=IF(4,LLV(L,4) REF(L,4),1);

A4:=LS14ANDLS24;

LS15:=IF(5,LS0=5,A);

LS25:=IF(5,LLV(L,5) REF(L,5),1);

A5:=LS15ANDLS25;

LS16:=IF(6,LS0=6,A);

LS26:=IF(6,LLV(L,6) REF(L,6),1);

A6:=LS16ANDLS26;

LS17:=IF(7,LS0=7,A);

LS27:=IF(7,LLV(L,7) REF(L,7),1);

A7:=LS17ANDLS27;

LS18:=IF(8,LS0=8,A);

LS28:=IF(8,LLV(L,8) REF(L,8),1);

A8:=LS18ANDLS28;

LS19:=IF(9,LS0=9,A);

LS29:=IF(9,LLV(L,9) REF(L,9),1);

A9:=LS19ANDLS29;

DRAWTEXT(A1,L-0.5,'1'),COLORGREEN;

DRAWTEXT(A2,L-0.5,'2'),COLORGREEN;

DRAWTEXT(A3,L-0.5,'3'),COLORGREEN;

DRAWTEXT(A4,L-0.5,'4'),COLORGREEN;

DRAWTEXT(A5,L-0.5,'5'),COLORGREEN;

DRAWTEXT(A6,L-0.5,'6'),COLORGREEN;

DRAWTEXT(A7,L-0.5,'7'),COLORGREEN;

DRAWTEXT(A8,L-0.5,'8'),COLORGREEN;

DRAWTEXT(A9,L-0.5,'9'),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,'绿色数字为狄马克TD准备，白色卢卡斯螺旋周期'),COLORBROWN;

半分位:=(O+C)/2;

昨半分位:=REF(半分位,1);

STICKLINE(ISLASTBAR,昨半分位,昨半分位,10,0),COLORWHITE;

DRAWNUMBER(ISLASTBAR,昨半分位,昨半分位);

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;

一: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;

a:="STSFunc@CALSTSL";

R1:="STSFunc@STS_RISK1";

R2:="STSFunc@STS_RISK2";

S1:="STSFunc@STS_STS1";

S2:="STSFunc@STS_STS2";

TBS:="STSFunc@STS_STSBS";

DN:="STSFunc@STS_STSDN";

UP:="STSFunc@STS_STSUP";

压力位:UP,linethick0,color0000ff,PRECIS2;

支撑位:DN,linethick0,color00ff00,PRECIS2;

警示位:IF(R1 0,ABS(R1),IF(R2 0,ABS(R2),0)),linethick0,colorff00ff,PRECIS2;

{MA5:MA(CLOSE,5),colorFFFFff,PRECIS2;MA10:MA(CLOSE,10),color00FFff,PRECIS2;

MA20:MA(CLOSE,20),colorFF00ff,PRECIS2;MA30:MA(CLOSE,30),color00FF00,PRECIS2;

MA60:MA(CLOSE,60),colorAAAAAA,PRECIS2;MA120:MA(CLOSE,120),colorFF0000,PRECIS2;}

STICKLINE(IF(STRFIND(stkname,'S',1)=0,CLOSE =REF(CLOSE,1)*1.0985ANDCLOSE=HIGH,CLOSE =REF(CLOSE,1)*1.0490ANDCLOSE=HIGH),CLOSE,OPEN,8,0),COLOR00FFFF;

STICKLINE(CLOSE =REF(CLOSE,1)*1.07AND(C HORC =REF(C,1)*1.098),CLOSE,OPEN,8,0),COLORFFFFFF;

STICKLINE(STRFIND(stkname,'S',1)=0ANDCLOSE REF(CLOSE,1)*1.05ANDCLOSE REF(CLOSE,1)*1.07,CLOSE,OPEN,8,0),COLORFFD0FF;

STICKLINE(IF(STRFIND(stkname,'S',1)=0,CLOSE REF(CLOSE,1)*0.9015ANDCLOSE=LOW,CLOSE REF(CLOSE,1)*0.9515ANDCLOSE=LOW),CLOSE,OPEN,8,0),COLORFF0000;

流通:=INTPART(FINANCE2(37)/1000*C)/10;

市盈:=INTPART(DYNAINFO(39)*10)/10;

动态市盈:=INTPART(C/FINANCE2(3)*10)/10;

DRAWTEXTABS(1,13,'流通市值:'+流通+'亿'),LINETHICK1,Color00FF00;

DRAWTEXTABS(120,13,'市盈率:'+市盈+'/'+动态市盈+''),LINETHICK1,Colorgreen;

DRAWTEXTREL(1,3,BKNAME),LINETHICK1,COLORAAEEEE;

DRAWLINE(UP 0,UP,UP REF(UP,1)ORC=DYNAINFO(7),REF(ABS(UP),1),0),dotline,color0000ff,LINETHICK1;

DRAWLINE(DN 0,DN,DN REF(DN,1)ORC=DYNAINFO(7),REF(ABS(DN),1),0),dotline,color00ff00,LINETHICK1;

DRAWLINE(UP 0,-UP,UP REF(UP,1)OR

C=DYNAINFO(7),REF(ABS(UP),1),0),color0000ff;

DRAWLINE(DN 0,-DN,DN REF(DN,1)ORC=DYNAINFO(7),REF(ABS(DN),1),0),color00ff00;

DRAWLINE(R1 0,R1,R1 REF(R1,1)ORC=DYNAINFO(7),REF(ABS(R1),1),0),dotline,colorEE88ff;

DRAWLINE(R2 0,R2,R2 REF(R2,1)ORC=DYNAINFO(7),REF(ABS(R2),1),0),dotline,colorEE88ff;

DRAWLINE(R1 0,-R1,R1 REF(R1,1)ORC=DYNAINFO(7),REF(ABS(R1),1),0),colorEE88ff;

DRAWLINE(R2 0,-R2,R2 REF(R2,1)ORC=DYNAINFO(7),REF(ABS(R2),1),0),colorEE88ff;

drawbmp(TBS=1,l*0.96,'STSbuy1.bmp'),align1,valign0;

drawbmp(TBS=-1,h*1.07,'STSsell1.bmp'),align1,valign0;

drawbmp(S2=14,l*0.94,'STSbuy.bmp'),align1,valign0;

drawbmp(S2=-14,h*1.09,'STSsell.bmp'),align1,valign0;

drawtext(S1 0,L,STR(S1)),color00FF00,LINETHICK1,align1,valign0;

drawtext(S1 0,H*1.03,STR(-S1)),color00FF00,LINETHICK1,align1,valign0;

drawtext(S2 0andS2 13,l*0.97,STR(S2)),color0000FF,LINETHICK1,align1,valign0;

drawtext(S2 0andS2 -13,H*1.06,STR(-S2)),color0000FF,LINETHICK1,align1,valign0;

drawtext(S2=13,l*0.97,'+'),color0000FF,LINETHICK1,align1,valign0;

drawtext(S2=14,l*0.97,'13'),color0000FF,LINETHICK1,align1,valign0;

drawtext(S2=-13,h*1.06,'+'),color0000FF,LINETHICK1,align1,valign0;

drawtext(S2=-14,h*1.06,'13'),color0000FF,LINETHICK1,align1,valign0;

b:="LTFunc5@FORLT2";s1:="LTFunc5@LT_S1";

p0:="LTFunc5@LT_P0";p1:="LTFunc5@LT_P1";

hs:="LTFunc5@LT_HS";ls:="LTFunc5@LT_LS";

upp:="LTFunc5@LT_UPP";udd:="LTFunc5@LT_UDD";

d2:="Lxddx.ddx"/ema(abs("Lxddx.ddx"),60)+8;

d3:=min("Lxddx.ddx"/ema(abs("Lxddx.ddx"),60),10);

fb:=if(s1=0,hs,ls);

tr0:=ifs(p1=1,'明日 '+numtostrn(udd,2)+',出现S点','明日 '+numtostrn(upp,2)+',出现B点');

tr1:=ifs(s1=1,'明日 '+numtostrn(ls,2)+',短线卖出','明日 '+numtostrn(hs,2)+',短线买入');

tr2:=ifs(p1=1,ifs(cross(p1,0),'B点','持股待涨'),ifs(cross(1,p1),'S点','持币观望'));

tr3:=ifs(s1=0,'向下','向上');

tr4:='能量级别:'+numtostrn(d3,1)+'级';

{hs;ls;hhs;lls;us;ds;s1;p1;p0;upp;udd;}

d1:=ema(abs("ddx.ddx"),60);

{ddx绝对值60日指数平滑移动平均}d2:=max("ddx.ddx"/d1+7.5,7.5);

d3:=min("ddx.ddx"/d1,10);

{能量级别:当日ddx与60日平均值的比值,最高10.0}

fb:=if(s1=0,hs,ls);

tr0:=ifs(p1=1,'明日收盘价 '+numtostrn(udd,2)+',出现S点n','若明日收盘价 '+numtostrn(upp,2)+',出现B点n');

tr1:=ifs(s1=1,'明日收盘价 '+numtostrn(ls,2)+',短线卖出机会','若明日收盘价 '+numtostrn(hs,2)+'短线买入机会');

tr2:=ifs(p1=1,ifs(cross(p1,0),'B点','持股'),ifs(cross(1,p1),'S点','持币'));tr3:=ifs(s1=0,'向下,','向上,');

tr4:='3.能量级别:'+numtostrn(d3,1)+'级';

bs:=' *t=0092F7* *c=FFFFFF* *p=95* '+datestr(date)+'点决策系统提示n'+' *t=E7FFFF* *c=000000* *p=95* '+'1.BS点:'+tr2+','+tr0+' *t=E7FFFF* *c=000000* *p=95* '+'2.短线:'+tr3+tr1+'n'+' *t=E7FFFF* *c=000000* *p=95* '+tr4;drawflagtext(1,fb,bs);

{1120,0415新版用代码}

drawbmp(p1=1andref(p1,1)=0,l,'buy1.bmp'),align1,valign0;drawbmp(p1=0andref(p1,1)=1,h,'sell1.bmp'),align1,valign2;

drawbmp(s1=1andref(s1,1)=0and(p1+ref(p1,1)) 1,l,'bs.bmp'),align1,valign0;drawbmp(s1=0andref(s1,1)=1and(p1+ref(p1,1)) 1,h,'ss.bmp'),align1,valign2;

{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:=TD11ANDTD21;

TD12:=IF(2,TD0=2,0);

{TD22:=IF(2,LLV(C,2) REF(C,4),0);}

TD22:=IF(2,G,DRAWNULL);

A2:=TD12ANDTD22;

TD13:=IF(3,TD0=3,0);

{TD23:=IF(3,LLV(C,3) REF(C,4),0);}

TD23:=IF(3,G,DRAWNULL);

A3:=TD13ANDTD23;

TD14:=IF(4,TD0=4,0);

{TD24:=IF(4,LLV(C,4) REF(C,4),0);}

TD24:=IF(4,G,DRAWNULL);

A4:=TD14ANDTD24;

TD15:=IF(5,TD0=5,0);

{TD25:=IF(5,LLV(C,5) REF(C,4),0);}

TD25:=IF(5,G,DRAWNULL);

A5:=TD15ANDTD25;

TD16:=IF(6,TD0=6,0);

{TD26:=IF(6,LLV(C,6) REF(C,4),0);}

TD26:=IF(6,G,DRAWNULL);

A6:=TD16ANDTD26;

TD17:=IF(7,TD0=7,0);

{TD27:=IF(7,LLV(C,7) REF(C,4),0);}

TD27:=IF(7,G,DRAWNULL);

A7:=TD17ANDTD27;

TD18:=IF(8,TD0=8,0);

{TD28:=IF(8,LLV(C,8) REF(C,4),0);}

TD28:=IF(8,G,DRAWNULL);

A8:=TD18ANDTD28;

TD19:=IF(9,TD0=9,0);

{TD29:=IF(9,LLV(C,9) REF(C,4),0);}

TD29:=IF(9,G,DRAWNULL);

A9:=TD19ANDTD29;

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:=TD11AANDTD21A;

TD12A:=IF(2,TDP=2,TDP);

TD22A:=IF(2,LLV(C,2) REF(L,2),DRAWNULL);

{TD22A:=IF(2,B,DRAWNULL);}

D2:=TD12AANDTD22A;

TD13A:=IF(3,TDP=3,TDP);

TD23A:=IF(3,LLV(C,3) REF(L,2),DRAWNULL);

{TD23A:=IF(3,B,DRAWNULL);}

D3:=TD13AANDTD23A;

TD14A:=IF(4,TDP=4,TDP);

TD24A:=IF(4,LLV(C,4) REF(L,2),DRAWNULL);

{TD24A:=IF(4,B,DRAWNULL);}

D4:=TD14AANDTD24A;

TD15A:=IF(5,TDP=5,TDP);

TD25A:=IF(5,LLV(C,5) REF(L,2),DRAWNULL);

{TD25A:=IF(5,B,DRAWNULL);}

D5:=TD15AANDTD25A;

TD16A:=IF(6,TDP=6,TDP);

TD26A:=IF(6,LLV(C,6) REF(L,2),DRAWNULL);

{TD26A:=IF(6,B,DRAWNULL);}

D6:=TD16AANDTD26A;

TD17A:=IF(7,TDP=7,TDP);

TD27A:=IF(7,LLV(C,7) REF(L,2),DRAWNULL);

{TD27A:=IF(7,B,DRAWNULL);}

D7:=TD17AANDTD27A;

TD18A:=IF(8,TDP=8,TDP);

TD28A:=IF(8,LLV(C,8) REF(L,2),DRAWNULL);

{TD28A:=IF(8,B,DRAWNULL);}

D8:=TD18AANDTD28A;

TD19A:=IF(9,TDP=9,TDP);

TD29A:=IF(9,LLV(C,9) REF(L,2),DRAWNULL);

{TD29A:=IF(9,B,DRAWNULL);}

D9:=TD19AANDTD29A;

TD10A:=IF(10,TDP=10,TDP);

TD20A:=IF(10,LLV(C,10) REF(L,2),DRAWNULL);

{TD20A:=IF(10,B,DRAWNULL);}

D10:=TD10AANDTD20A;

TD110A:=IF(11,TDP=11,TDP);

TD210A:=IF(11,LLV(C,11) REF(L,2),DRAWNULL);

{TD210A:=IF(11,B,DRAWNULL);}

D11:=TD110AANDTD210A;

TD120A:=IF(12,TDP=12,TDP);

TD220A:=IF(12,LLV(C,12) REF(L,2),DRAWNULL);

{TD220A:=IF(12,B,DRAWNULL);}

D12:=TD120AANDTD220A;

TD130A:=IF(13,TDP=13,TDP);

TD230A:=IF(13,LLV(C,13) REF(L,2),DRAWNULL);

{TD230A:=IF(13,B,DRAWNULL);}

D13:=TD130AANDTD230A;

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;

{卢卡斯螺旋周期，《超级短线新武器》一书有具体的实战案例}