MACD更新金叉预警副图指标-通达信MACD预警指标公式源码
通达信MACD更新金叉预警副图指标源码：
通达信MACD预警指标公式源码，MACD最近2波最高值延长线提示、MACD顶底结构钝化提示、MACD顶结构形成提示，顶结构消失、顶钝化消失等MACD指标公式源码。
MACD更新指标公式源码：
DIF:EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:EMA(DIF,9);
MACD:(DIF-DEA)*2,COLORSTICK;
STICKLINE(MACD>=0,MACD,0,0,0),COLORLICYAN;
STICKLINE(MACD<0,MACD,0,0,0),COLORLIRED{COLORF00FF0};
{STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,0,0 ),COLORFFFF00;}
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,0,0 ),COLORLIGREEN{COLORFFFF00};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,0,0 ),COLORRED;
{=================================================================================}
N:=0.1; {最近2波最高值延长线}
GSCT:=BARSLAST(CROSS(DEA,DIF));
GJC:=MACD>N AND COUNT(MACD>N,GSCT)=1;
GT1:=BARSLAST(GJC);
GT2:=REF(GT1,GT1+1)+GT1+1;
GA1:=HHVBARS(MACD,GT1+1);
GA2:=REF(HHVBARS(MACD,GT1+1),GT1+1)+GT1+1;
GQG:=REF(MACD,GA2),NODRAW;
GFH1:=BACKSET(ISLASTBAR,GA1+1);
GFH2:=BACKSET(ISLASTBAR,GA2+1);
GTJ1:=NOT(REF(GFH1,1))AND GFH1;
GTJ2:=NOT(REF(GFH2,1))AND GFH2;
GSCQG:=CROSS(MACD,GQG);
GSCQGT:=BARSLAST(GSCQG);
DRAWLINE(GTJ2 AND MACD>N ,MACD,ISLASTBAR AND REF(MACD,GA1)<=GQG,REF(MACD,GA2),1),COLORYELLOW,DOTLINE;
DRAWLINE(GTJ2 AND MACD>N ,MACD,REF(MACD,GA1)>GQG AND COUNT(REF(MACD,GA1)>GQG,GT1+1)=1,REF(MACD,GA2),0),COLORYELLOW,DOTLINE;
DRAWLINE(GTJ1 AND MACD>N,MACD,ISLASTBAR,REF(MACD,GA1),1),COLORWHITE,DOTLINE;
N1:=BARSLAST(CROSS(DEA,DIF));
N2:=REF(BARSLAST(CROSS(DEA,DIF)),N1+1);
M1:=BARSLAST(CROSS(DIF,DEA));
M2:=REF(BARSLAST(CROSS(DIF,DEA)),M1+1);
CL1:=LLV(CLOSE,N1+1),NODRAW;
CL2:=REF(CL1,M1+1),NODRAW;
CL3:=REF(CL2,M1+1),NODRAW;
DIFL1:=LLV(DIF,N1+1),NODRAW;
DIFL2:=REF(DIFL1,M1+1),NODRAW;
DIFL3:=REF(DIFL2,M1+1),NODRAW;
直接底钝化:=CL1<CL2 AND DIFL1>DIFL2 AND REF(MACD,1)<0 AND DIFL2<0,NODRAW;
隔峰底钝化:=CL1<CL3 AND DIFL1<DIFL2 AND DIFL1>DIFL3 AND DIF<DEA AND REF(MACD,1)<0 AND DIFL3<0,NODRAW;
底部钝化:=(直接底钝化 OR 隔峰底钝化) AND REF(MACD,1)<0,NODRAW;
底钝化:=底部钝化 AND REF(底部钝化,1)=0 AND DIF<DEA,NODRAW;
底钝化消失:=(REF(直接底钝化,1) AND DIFL1<DIFL2 AND DIF<DEA) OR (REF(隔峰底钝化,1) AND DIFL1<DIFL3 AND DIF<DEA),NODRAW;
底部结构:=DIF>REF(DIF,1) AND REF(底部钝化,1) AND DIFL1*0.9884<DIF,NODRAW;
底结构形成:=底部结构 AND REF(底部结构,1)=0,NODRAW;
底再次钝化1:=COUNT(底部结构,5) AND 底部钝化 AND DIF<REF(DIF,1)*1.01,NODRAW;
底再次钝化:=底再次钝化1 AND REF(底再次钝化1,1)=0,NODRAW;
M3:=BARSLAST(底结构形成)-1,NODRAW;
M4:=BARSLAST(底钝化 OR 底再次钝化),NODRAW;
M5:=BARSLAST(CROSS(DIF,0)),NODRAW;
M6:=C<REF(CL1,M3) AND C<REF(CL2,M3) AND M3<M4 AND M3<M5,NODRAW;
底结构消失1:=COUNT(M6,M3)=1 AND REF(M6,1)=0 AND M3<M4 AND M3<M5,NODRAW;
底结构消失:=底结构消失1 AND REF(底结构消失1,1)=0 AND REF(底结构消失1,2)=0,NODRAW;
DRAWTEXT(底结构形成,DIF/0.88,'形成'),COLORRED;
DRAWTEXT(底钝化 OR 底再次钝化,DIF/0.80,'预警'),COLORYELLOW;
DRAWTEXT((底结构消失 OR 底钝化消失) AND 底部钝化=0 AND 底再次钝化=0,DIF/0.75,'消失'),COLORGREEN;
CH1:=HHV(CLOSE,M1+1),NODRAW;
CH2:=REF(CH1,N1+1),NODRAW;
CH3:=REF(CH2,N1+1),NODRAW;
DIFH1:=HHV(DIF,M1+1),NODRAW;
DIFH2:=REF(DIFH1,N1+1),NODRAW;
DIFH3:=REF(DIFH2,N1+1),NODRAW;
直接顶钝化:=CH1>CH2 AND DIFH1<DIFH2 AND REF(MACD,1)>0 AND DIFH2>0,NODRAW;
隔峰顶钝化:=CH1>CH3 AND DIFH1>DIFH2 AND DIFH1<DIFH3 AND REF(MACD,1)>0 AND DIFH3>0,NODRAW;
顶部钝化:=(直接顶钝化 OR 隔峰顶钝化) AND REF(MACD,1)>0,NODRAW;
顶钝化:=顶部钝化 AND REF(顶部钝化,1)=0 AND DIF>DEA,NODRAW;
顶钝化消失:=(REF(直接顶钝化,1) AND DIFH1>=DIFH2 AND DIF>DEA) OR (REF(隔峰顶钝化,1) AND DIFH1>=DIFH3 AND DIF>DEA),NODRAW;
顶部结构:=REF(顶部钝化,1) AND DIF<REF(DIF,1) AND DIFH1*0.99>DIF,NODRAW;
顶结构形成:=顶部结构 AND REF(顶部结构,1)=0,NODRAW;
顶再次钝化1:=COUNT(顶部结构,5) AND 顶部钝化 AND DIF*0.99>REF(DIF,1),NODRAW;
顶再次钝化:=顶再次钝化1 AND REF(顶再次钝化1,1)=0,NODRAW;
N3:=BARSLAST(顶结构形成)-1,NODRAW;
N4:=BARSLAST(顶钝化 OR 顶再次钝化),NODRAW;
N5:=BARSLAST(CROSS(0,DIF)),NODRAW;
N6:=C<REF(CH1,N3) AND C<REF(CH2,N3) AND N3<N4 AND N3<N5,NODRAW;
顶结构消失1:=COUNT(N6,N3)=1 AND REF(N6,1)=0 AND N3<N4 AND N3<N5,NODRAW;
顶结构消失:=顶结构消失1 AND REF(顶结构消失1,1)=0 AND REF(顶结构消失1,2)=0,NODRAW;
DRAWTEXT(顶结构形成,DIF*1.15,'形成'),COLORRED;
DRAWTEXT(顶钝化 OR 顶再次钝化,DIF*1.20,'预警'),COLORYELLOW;
DRAWTEXT((顶结构消失 OR 顶钝化消失) AND 顶部钝化=0 AND 顶再次钝化=0,DIF*1.25,'消失'),COLORGREEN;
通达信公式源码测试结果：
此指标在通达信副图中显示效果如下：
本文相关股票软件、指标公式下载地址 ：
