以下是通达信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;
630522913.jpg
|