[通达信指标]共振MACD附图公式

{友情提示：周线出现的信号，周5收盘后，才能确定信号}

N:=12;

M:=26;

CHEB3:=9;

CHEB4:EMA(CLOSE,N)-EMA(CLOSE,M),NODRAW;

CHEB5:EMA(CHEB4,CHEB3),NODRAW;

CHEB6:(CHEB4-CHEB5)*2,COLORSTICK;

CHEB7:IF(BARSLAST(CHEB6<0),BARSLAST(CHEB6<0),0),NODRAW,COLORRED;

CHEB8:IF(BARSLAST(CHEB6>0),BARSLAST(CHEB6>0),0),NODRAW,COLORGREEN;

CHEB9:=”MACD.DIF#WEEK”;

CHEB10:=”MACD.DEA#WEEK”;

CHEB11:=(CHEB9-CHEB10)*2;

CHEB12:IF(CHEB11>0,BARSLAST(CROSS(CHEB11,0)),DRAWNULL)+1,COLORYELLOW,NODRAW;

CHEB13:IF(CHEB11<0,BARSLAST(CROSS(0,CHEB11)),DRAWNULL)+1,COLORCYAN,NODRAW;

STICKLINE(CHEB6>REF(CHEB6,1) AND CHEB6>0,0,CHEB6,1,0),COLORRED;

STICKLINE(CHEB6<REF(CHEB6,1) AND CHEB6>0,0,CHEB6,1,-1),COLORRED;

STICKLINE(CHEB6>REF(CHEB6,1) AND CHEB6<0,0,CHEB6,1,0),COLORGREEN;

STICKLINE(CHEB6<REF(CHEB6,1) AND CHEB6<0,0,CHEB6,1,-1),COLORGREEN;

CHEB14:=REF(CHEB6,BARSLAST(CHEB12=1));

STICKLINE(CHEB6>CHEB14 AND CHEB14>0,CHEB14,CHEB14,1,0),COLORWHITE;

DRAWBAND(CHEB5,RGB(250,250,0),CHEB5,RGB(0,0,0));

DRAWBAND(IF(CHEB4>CHEB5,CHEB4,DRAWNULL),RGB(250,0,0),CHEB4,RGB(0,0,0));

DRAWBAND(IF(CHEB12<1,CHEB5,DRAWNULL),RGB(0,250,0),CHEB5,RGB(0,0,0));

DRAWTEXT(CHEB12=1,0,’MACD周多’),COLORYELLOW,DRAWABOVE;

CHEB15:=CROSS(CHEB4,CHEB5) AND CHEB4<-0.1;

CHEB16:=COUNT(CROSS(CHEB4,CHEB5),BARSLAST(CHEB5>=0));

CHEB17:=CROSS(CHEB4,CHEB5) AND CHEB5<0 AND COUNT(CHEB16=2,21)=1;

DRAWTEXT(CHEB17,CHEB5*0.2,’二金’),COLORWHITE;

CHEB18:=CROSS(CHEB4,CHEB5) AND CHEB5<0 AND COUNT(CHEB16=3,60)=1;

DRAWTEXT(CHEB18,CHEB5*0.2,’三金’),COLORLIMAGENTA;

CHEB19:=CROSS(CHEB4,CHEB5) AND CHEB5<0 AND COUNT(CHEB16=4,90)=1;

DRAWTEXT(CHEB19,CHEB5*0.2,’四金’),COLORYELLOW;

CHEB20:=CROSS(CHEB4,CHEB5) AND CHEB5<0 AND COUNT(CHEB16=5,120)=1;

DRAWTEXT(CHEB20,CHEB5*0.2,’五金’),COLORBROWN;

CHEB21:=CROSS(CHEB4,CHEB5) AND CHEB5<0 AND COUNT(CHEB16=6,150)=1;

DRAWTEXT(CHEB21,CHEB5*0.2,’六金’),COLORBLUE;

CHEB22:=BARSLAST(REF(CROSS(CHEB4,CHEB5),1));

CHEB23:=REF(CLOSE,CHEB22+1)>CLOSE AND CHEB4>REF(CHEB4,CHEB22+1) AND CROSS(CHEB4,CHEB5);

DRAWTEXT(CHEB23,CHEB4*0.5,’底背’),COLORRED;

CHEB24:=BARSLAST(REF(CROSS(CHEB5,CHEB4),1));

CHEB25:=REF(CLOSE,CHEB24+1)<CLOSE AND REF(CHEB4,CHEB24+1)>CHEB4 AND CROSS(CHEB5,CHEB4);

DRAWTEXT(CHEB25,CHEB4*1.12,’顶背’),COLORGREEN;

CHEB26:= CHEB5-CHEB4;

CHEB27:=IF(CHEB6<0,SUM(CHEB6,BARSLAST(CHEB26<0)),0);

CHEB28:=IF(CHEB6>0,SUM(CHEB6,BARSLAST(CHEB26>0)),0);

CHEB29:=LLV(L,BARSLAST(CHEB26<0));

CHEB30:=HHV(H,BARSLAST(CHEB26>0));

CHEB31:=IF (CHEB6<0,BARSLAST(CROSS(CHEB4,CHEB5)),0);

CHEB32:=REF(CHEB27,CHEB31+1);

CHEB33:=REF(CHEB29,CHEB31+1);

CHEB34:=IF((CHEB27<0 AND ABS(CHEB27)<ABS(CHEB32) AND CHEB29<CHEB33 ),1,0);

CHEB35:= CHEB6<0 AND REF(CHEB6,1)<0 AND C<CHEB33 AND ABS(CHEB27)<ABS(CHEB32) AND ABS(CHEB6)<ABS(REF(CHEB6,1));

CHEB36:= IF (CROSS(CHEB4,CHEB5),REF(CHEB34,1),0);

DRAWTEXT(CHEB36,CHEB5*0.8,’积底背’),COLORFF80FF;

CHEB37:=IF (CHEB6>0,BARSLAST(CROSS(CHEB5,CHEB4)),0);

CHEB38:=REF(CHEB28,CHEB37+1);

CHEB39:=REF(CHEB30,CHEB37+1);

CHEB40:=IF((CHEB28>0 AND CHEB28<CHEB38 AND CHEB30>CHEB39 ),1,0);

CHEB41:= CHEB6>0 AND REF(CHEB6,1)>0 AND C>CHEB39 AND ABS(CHEB28)<ABS(CHEB38) AND ABS(CHEB6)<ABS(REF(CHEB6,1));

CHEB42:= IF (CROSS(CHEB5,CHEB4),REF(CHEB40,1),0);

DRAWTEXT(CHEB42,CHEB5*0.8,’积顶背’),COLORCYAN;

CHEB43:=”KDJ.K#WEEK”;

CHEB44:=”KDJ.D#WEEK”;

DRAWTEXT(CROSS(CHEB43,CHEB44),0,’KD周金叉’),COLORYELLOW;