【通达信源码分享】精品指标公式－顶背离MACD指标源码

公式源码：

 

DIF1:=EMA(CLOSE,12) - EMA(CLOSE,26);

 

DEA1:=EMA(DIF1,9);

 

MACD1:=2*(DIF1-DEA1),STICK;

 

MACD2:=EMA(MACD1,3);

 

STICKLINE(MACD1>MACD2 AND MACD1>0,0,MACD1,1,0),COLORRED;

 

STICKLINE(MACD1>MACD2 AND MACD1<0,0,MACD1,1,0),COLORGREEN;

 

STICKLINE(MACD1<MACD2,0,MACD1,1,0),COLORCBCBC0;

 

STICKLINE(MACD1>=0 OR MACD1<=0,0,0,50,1),COLORWHITE;

 

DIF:DIF1,COLOR33FF33;

 

DEA:DEA1,COLORYELLOW;

 

MACD:MACD1,NODRAW,COLORMAGENTA;

 

强:IF(DIF1>=DEA1,DIF1,DRAWNULL),COLORRED,LINETHICK2;

 

A1:=BARSLAST(REF(CROSS(DIF1,DEA1),1));

 

底背离:=REF(CLOSE,A1+1)>CLOSE AND DIF1>REF(DIF1,A1+1) AND CROSS(DIF1,DEA1);

 

STICKLINE(底背离,0,0.03,4,0),COLOR00FF00;

 

底背:DRAWLINE(A1=0,DEA1,底背离,DEA1,0),COLORRED,LINETHICK4;

 

A2:=BARSLAST(REF(CROSS(DEA1,DIF1),1));

 

顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIF1,A2+1)>DIF1 AND CROSS(DEA1,DIF1);

 

顶背:DRAWLINE(A2=0,DEA1,顶背离,DEA1,0),COLORGREEN,LINETHICK4; 

 

DRAWICON(CROSS(DIF,DEA),DIF,1); {DIF上穿DEA做记号};

 

DRAWICON(CROSS(DEA,DIF),DEA,2); {DIF下穿DEA做记号};