通达信MACD周金（源码副图贴图）

日线情况下，周线MACD、KDJ金叉位置直接显示
 
{MACD周金}
DIF:EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:EMA(DIF,9);
MACD:(DIF-DEA)*2,COLORSTICK;
 

{MACD周值}
周DIF:="MACD.DIF#WEEK";
周DEA:="MACD.DEA#WEEK";
周MACD:=(周DIF-周DEA)*2;
周红:IF(周MACD>0,BARSLAST(CROSS(周MACD,0)),DRAWNULL)+1,COLORYELLOW,NODRAW;

DRAWTEXT(周红=1,0.2,'周金'),COLORYELLOW,DRAWABOVE;
STICKLINE(周红,-0.7,-0.6,1,0),COLORYELLOW;
周K:="KDJ.K#WEEK";
周D:="KDJ.D#WEEK";
DRAWTEXT(CROSS(周K,周D),0,'KDJ周'),COLORYELLOW;