通达信MACD终极优化及选股指标公式

DRAWGBK(O>CRGB(404040)RGB(0040)0'01'0); {背景不要可删除}
DIF:100*(EMA(CLOSE12)-EMA(CLOSE26))COLORWHITELINETHICK1;
DEA:EMA(DIF9)COLORYELLOWLINETHICK1;
MACD:(DIF-DEA)*2COLORSTICK;
STICKLINE(MACD>REF(MACD1)AND MACD>00MACD0.20)COLORRED;
STICKLINE(MACD<REF(MACD1)AND MACD>00MACD0.20)COLORYELLOW;
STICKLINE(MACD>REF(MACD1)AND MACD<00MACD0.20)COLORBLUE;
STICKLINE(MACD<REF(MACD1)AND MACD<00MACD0.20)COLORGREEN;
FH1:=REF(MACD1)<REF(MACD2) AND REF(MACD2)<REF(MACD3) AND REF(MACD3)<REF(MACD4);
FH2:=MACD>=0 AND COUNT(MACD>REF(MACD1)1)=1;
FH3:=FH1 AND FH2 AND EMA(C13)>REF(EMA(C13)1);
FH4:=FH1 AND FH2 AND ABS((DIF-DEA)/C)<0.018;
FH5:=FH1 AND FH2 AND MACD<0.10;
二次翻红:(FH3 OR FH4 OR FH5)COLORREDNODRAW;
低买:CROSS(DIFDEA) AND DIF<0COLORFF00FFNODRAW;
加油:CROSS(DIFDEA) AND DIF>0COLORYELLOWNODRAW;
DRAWICON(二次翻红-0.051);
DRAWTEXT(二次翻红-0.15'I翻红')COLORRED;
DRAWTEXT(CROSS(DIFDEA) AND DIF<0DEA-0.02'I低买')COLORFF00FF;
DRAWTEXT(CROSS(DIFDEA) AND DIF>0DEA-0.05'I加油')COLORYELLOW;
XG:二次翻红 OR 低买 OR 加油NODRAW;
YLZC:=IF(CLOSE=INDEXC(INDEXC+INDEXH+INDEXL+INDEXO)/4AMOUNT/(VOL+0.01)/100);
A1:=C>REF(C4);
NT:=BARSLASTCOUNT(A1);
TJ11:=NT=9;
TJ13:=ISLASTBAR AND BETWEEN(NT58);
AY:=(BACKSET(TJ11>09) OR BACKSET(TJ13>0NT))*NT;
DRAWTEXT(AY>0MACD*1.02VAR2STR(AY0))COLORLIRED;
DRAWTEXT(NT=9MACD*1.02'9')COLORGREEN;
B1:=C<REF(C4);
NT0:=BARSLASTCOUNT(B1);
TJ21:=NT0=9 ;
TJ23:=ISLASTBAR AND BETWEEN(NT058);
AY1:=(BACKSET(TJ21>09) OR BACKSET(TJ23>0NT0))*NT0;
DRAWTEXT(AY1>0MACD*0.98VAR2STR(AY10))COLORGREEN;
DRAWTEXT(NT0=9MACD*0.98'9')COLORRED;
DRAWICON(CROSS(DIFDEA)DEA1);
DRAWICON(CROSS(DEADIF)DEA2);
死叉:=CROSS(DEADIF);
N1:=BARSLAST(死叉)NODRAW;{最近一次死叉的位置}
N2:=REF(BARSLAST(死叉)N1+1)NODRAW;{倒数第二次死叉与倒数第一次死叉的区间}
N3:=REF(BARSLAST(死叉)N2+N1+2)NODRAW;{倒数第三次死叉与倒数第二次死叉的区间}
CL1:=LLV(CN1+1)NODRAW;{最近一次死叉后，最低收盘价}
DIFL1:=LLV(DIFN1+1)NODRAW;
CL2:=REF(CL1N1+1)NODRAW;{倒数第二次死叉与倒数第一次死叉之间的最低收盘价}
DIFL2:=REF(DIFL1N1+1)NODRAW;
CL3:=REF(CL2N1+1)NODRAW;{倒数第三次死叉与倒数第二次死叉之间的最低收盘价}
DIFL3:=REF(DIFL2N1+1)NODRAW;
PDIFL2:=IF(DIFL2>0INTPART(LOG(DIFL2))-1INTPART(LOG(-DIFL2))-1);
MDIFL2:=INTPART(DIFL2/POW(10PDIFL2));
PDIFL3:=IF(DIFL3>0INTPART(LOG(DIFL3))-1INTPART(LOG(-DIFL3))-1);
MDIFL3:=INTPART(DIFL3/POW(10PDIFL3));
MDIFB2:=INTPART(DIF/POW(10PDIFL2));
MDIFB3:=INTPART(DIF/POW(10PDIFL3));
直接底背离:=(CL1<CL2 ) AND (MDIFB2>MDIFL2) AND (MACD<0 AND REF(MACD1)<0) AND MDIFB2<=REF(MDIFB21);
隔峰底背离:=(CL1<CL3 AND CL3<CL2 ) AND (MDIFB3>MDIFL3) AND (MACD<0 AND REF(MACD1)<0) AND MDIFB3<=REF(MDIFB31);
底部钝化:直接底背离 OR 隔峰底背离NODRAW;
底背离:((MDIFB2>REF(MDIFB21))*REF(直接底背离1)) OR ((MDIFB3>REF(MDIFB31))*REF(隔峰底背离1))NODRAW;
{DRAWTEXT(TFILTER(B(REF(DIF1)>REF(DIF2) AND DIF<REF(DIF1))1)DIFL2'钝化开始')COLORYELLOW;}
STICKLINE(底部钝化DIFDEA10)COLORRED;
DRAWTEXT(TFILTER(底背离C<REF(CL11)1)DIF*0.98'底部结构形成')COLORMAGENTA;
金叉:=CROSS(DIFDEA);
M1:=BARSLAST(金叉)NODRAW;{最近一次金叉的位置}
M2:=REF(BARSLAST(金叉)M1+1)NODRAW;{倒数第二次金叉与倒数第一次金叉的区间}
M3:=REF(BARSLAST(金叉)M2+M1+2)NODRAW;{倒数第三次金叉与倒数第二次金叉的区间}
CH1:=HHV(CM1+1)NODRAW;{最近一次金叉后，最高收盘价}
DIFH1:=HHV(DIFM1+1)NODRAW;
CH2:=REF(CH1M1+1)NODRAW;{倒数第二次金叉与倒数第一次金叉之间的最高收盘价}
DIFH2:=REF(DIFH1M1+1)NODRAW;
CH3:=REF(CH2M1+1)NODRAW;{倒数第三次金叉与倒数第二次金叉之间的最高收盘价}
DIFH3:=REF(DIFH2M1+1)NODRAW;
PDIFH2:=IF(DIFH2>0INTPART(LOG(DIFH2))-1INTPART(LOG(-DIFH2))-1);
MDIFH2:=INTPART(DIFH2/POW(10PDIFH2));
PDIFH3:=IF(DIFH3>0INTPART(LOG(DIFH3))-1INTPART(LOG(-DIFH3))-1);
MDIFH3:=INTPART(DIFH3/POW(10PDIFH3));
MDIFT2:=INTPART(DIF/POW(10PDIFH2));
MDIFT3:=INTPART(DIF/POW(10PDIFH3));
直接顶背离:=(CH1>CH2 ) AND (MDIFT2<MDIFH2) AND (MACD>0 AND REF(MACD1)>0) AND MDIFT2>=REF(MDIFT21);
隔峰顶背离:=(CH1>CH3 AND CH3>CH2 ) AND (MDIFT3<MDIFH3) AND (MACD>0 AND REF(MACD1)>0) AND MDIFT3>=REF(MDIFT31);
顶部钝化:直接顶背离 OR 隔峰顶背离NODRAW;
顶背离:((MDIFT2<REF(MDIFT21))*REF(直接顶背离1)) OR ((MDIFT3<REF(MDIFT31))*REF(隔峰顶背离1))NODRAW;
{DRAWTEXT(TFILTER(T(REF(DIF1)<REF(DIF2) AND DIF>REF(DIF1))1)DIFH2'钝化开始')COLORYELLOW;}
STICKLINE(顶部钝化DIFDEA10)COLORGREEN;
DRAWTEXT(TFILTER(顶背离C>REF(CH11)1)DIF*1.02'顶部结构形成')COLORMAGENTA;
DRAWICON(CROSS(DIFDEA)DEA36);
DRAWICON(CROSS(DEADIF)DEA37);
MACDDIF:=IF(ABS(MACD)>ABS(DIF)MACDDIF);
DRAWICON(REF(DIF1)>REF(DIF2) AND DIF<REF(DIF1) AND DIF>0 AND DIF>DEAMACDDIF*1.139)COLORGREEN;
DRAWICON(REF(DIF1)<REF(DIF2) AND DIF>REF(DIF1) AND DIF<0 AND DIF<DEAMACDDIF*1.138)COLORRED;

{
低9选股:
B1:=C<REF(C4);
NT0:=BARSLASTCOUNT(B1);
低九:NT0=9;

MACD买点选股:
DIF:=100*(EMA(CLOSE12)-EMA(CLOSE26));
DEA:=EMA(DIF9);
买点:REF(DIF1)<REF(DIF2) AND DIF>REF(DIF1) AND DIF<0 AND DIF<DEA;

MACD低买选股:
DIF:=100*(EMA(CLOSE12)-EMA(CLOSE26));
DEA:=EMA(DIF9);
低买:CROSS(DIFDEA) AND DIF<0;

MACD加油选股:
DIF:=100*(EMA(CLOSE12)-EMA(CLOSE26));
DEA:=EMA(DIF9);
加油:CROSS(DIFDEA) AND DIF>0;

MACD翻红选股:
DIF:=100*(EMA(CLOSE12)-EMA(CLOSE26));
DEA:=EMA(DIF9);
MACD:=(DIF-DEA)*2;
FH1:=REF(MACD1)<REF(MACD2) AND REF(MACD2)<REF(MACD3) AND REF(MACD3)<REF(MACD4);
FH2:=MACD>=0 AND COUNT(MACD>REF(MACD1)1)=1;
FH3:=FH1 AND FH2 AND EMA(C13)>REF(EMA(C13)1);
FH4:=FH1 AND FH2 AND ABS((DIF-DEA)/C)<0.018;
FH5:=FH1 AND FH2 AND MACD<0.10;
翻红:(FH3 OR FH4 OR FH5);

}