[通达信指标]MACD三重背离提示公式源码

DIF:EMA(CLOSE,12)-EMA(CLOSE,26);

DEA:EMA(DIF,9);

MACD:(DIF-DEA)*2,COLORSTICK;

JCCOUNT:=COUNT(CROSS(DIF,DEA),BARSLAST(DEA>=0));

ECJC:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;

DRAWTEXT(ECJC,DEA*1.25,’零下二金’),COLORWHITE;

A1:=BARSLAST(REF(CROSS(DIF,DEA),1));

DIBEIILI:=REF(CLOSE,A1+1)>CLOSE AND DIF>REF(DIF,A1+1) AND CROSS(DIF,DEA);

DRAWTEXT(DIBEIILI,DIF*0.5,’底背’),COLORRED;

A2:=BARSLAST(REF(CROSS(DEA,DIF),1));

DINGBEI:=REF(CLOSE,A2+1)<CLOSE AND REF(DIF,A2+1)>DIF AND CROSS(DEA,DIF);

DRAWTEXT(DINGBEI,DIF*1.12,’顶背’),COLORGREEN;

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9));

K:=SMA(RSV,9,3),NODRAW;

D:=SMA(K,9,3),NODRAW;

J:=3*K-2*D,NODRAW;

JCGZ:=CROSS(DIF,DEA) AND CROSS(K,D) AND CROSS(J,D);

DRAWTEXT(JCGZ,DEA*1.12,’金叉共振’),COLORYELLOW;

SCGZ:=CROSS(DEA,DIF) AND CROSS(D,K) AND CROSS(D,J);

DRAWTEXT(SCGZ,DEA*1.12,’死叉共振’),COLORWHITE;

MACDHH:=HHV(MACD,5);

C1:=BARSLAST(REF(CROSS(DEA,DIF),1));

E:=REF(C,C1+1)>C AND DEA>0 AND REF(MACDHH,C1+1)<MACDHH AND CROSS(DEA,DIF) ;

DRAWTEXT(E>0,-0.5,’柱顶背’),COLORCYAN;

F:=REF(C,A1+1)>C AND DEA<0 AND REF(MACDHH,A1+1)<MACDHH AND CROSS(DIF,DEA);

DRAWTEXT(F>0,0.5,’柱底背’),COLORLIRED;

JC:= DEA-DIF;

LVMJSUM:=IF(MACD<0,SUM(MACD,BARSLAST(JC<0)),0);

HZMJSUM:=IF(MACD>0,SUM(MACD,BARSLAST(JC>0)),0);

BCLL:=LLV(L,BARSLAST(JC<0));

BCHH:=HHV(H,BARSLAST(JC>0));

X1:=IF(MACD<0,BARSLAST(CROSS(DIF,DEA)),0);

REFLZMJ:=REF(LVMJSUM,X1+1);

REFLL:=REF(BCLL,X1+1);

Y1:=IF((LVMJSUM<0 AND ABS(LVMJSUM)<ABS(REFLZMJ) AND BCLL<REFLL ),1,0);

RS1:= MACD<0 AND REF(MACD,1)<0 AND C<REFLL

AND ABS(LVMJSUM)<ABS(REFLZMJ) AND ABS(MACD)<ABS(REF(MACD,1));

LLBL:= IF (CROSS(DIF,DEA),REF(Y1,1),0);

DRAWTEXT(LLBL,DEA*0.8,’积底背’),COLORFF80FF;

X2:=IF (MACD>0,BARSLAST(CROSS(DEA,DIF)),0);

REFHZMJ:=REF(HZMJSUM,X2+1);

REFHH:=REF(BCHH,X2+1);

Y2:=IF((HZMJSUM>0 AND HZMJSUM<REFHZMJ AND BCHH>REFHH ),1,0);

RS2:= MACD>0 AND REF(MACD,1)>0 AND C>REFHH AND ABS(HZMJSUM)<ABS(REFHZMJ) AND ABS(MACD)<ABS(REF(MACD,1));

HHBL:= IF (CROSS(DEA,DIF),REF(Y2,1),0);

DRAWTEXT(HHBL,DEA*0.8,’积顶背’),COLORCYAN;