通达信MACD不是很完整但非常实用不哗众取宠

强弱界: 0,COLORWHITE;

rn

DIF:=EMA(CLOSE,9)-EMA(CLOSE,18);

rn

DEA:EMA(DIF,5),COLORYELLOW,LINETHICK2;

rn

SDIF:IF(DEA,DIF,0),COLORRED,LINETHICK2;

rn

D:=BACKSET(DIF<REF(DIF,1),2);
rn RDIF:IF(D ,DIF,0),COLORCYAN,LINETHICK2;

rn

rn顶部:HHV(EMA(DIF,5),20),COLORGREEN,LINETHICK2;
rn底部:LLV(EMA(DIF,5) ,20), COLORMAGENTA,LINETHICK2;
rn {买入提示}
rnDRAWTEXT(CROSS(SDIF,0),0,’上穿0轴’),COLORYELLOW;
rn DRAWTEXT(CROSS(SDIF,底部),底部,’上穿底部’),COLORGREEN;
rn DRAWTEXT(CROSS(SDIF,顶部),顶部,’全仓买’),COLORFF8800;

rn

DRAWICON(CROSS(DEA,SDIF),DEA,6);
rn DRAWICON(CROSS(SDIF,强弱界),SDIF,23);
rn DRAWICON(CROSS(RDIF,强弱界),RDIF,26);
rn DRAWICON(CROSS(SDIF,顶部),SDIF,9);

rn

DRAWICON(FILTER(DEA>底部 AND REF(DEA,1)=底部,5),底部,5);
rn DRAWICON(FILTER(SDIF=RDIF AND REF(SDIF,1)=RDIF,0),RDIF,27);

rn

MH1:=MAX(DEA,顶部);
rnML1:=MIN(DEA,顶部);
rnXG1:ML1=MH1, COLORRED,LINETHICK1;
rn DRAWTEXT(ISLASTBAR,XG1,’全仓’), COLORRED;

rn

MH2:=MAX(SDIF,RDIF);
rn ML2:=MIN(SDIF,RDIF);
rn XG2:ML2=MH2,COLORBLUE ,LINETHICK2;
rn DRAWTEXT(ISLASTBAR,XG2,’做空’),COLORCYAN ;

rn