通达信周k线叠加周MACD源码

{www.qill.cn}
 DRAWGBK(O>=0,RGB(0,1,0),RGB(30,31,30),0,'0',0);
 {www.qill.cn}
 MON:=WEEKOFYEAR!=REF(WEEKOFYEAR,1);
 MC2:=IF(MON,C#WEEK,DRAWNULL);
 ML2:=IF(MON,L#WEEK,DRAWNULL);
 MO2:=IF(MON,O#WEEK,DRAWNULL);
 MH2:=IF(MON,H#WEEK,DRAWNULL);
周开:ALIGNRIGHT(MO2),NODRAW,COLORGRAY;
周收:ALIGNRIGHT(MC2),NODRAW,COLORGRAY;
周高:ALIGNRIGHT(MH2),NODRAW,COLORGRAY;
周低:ALIGNRIGHT(ML2),NODRAW,COLORGRAY;
 {www.qill.cn}
 DIFZ:=EMA(周收,12)-EMA(周收,26);
 DEAZ:=EMA(DIFZ,9);
 MACDZ:=4*(DIFZ-DEAZ);
 {www.qill.cn}
中轴:REFDATE(HHV(周高,52),DATE),COLORGRAY;
 {www.qill.cn}
 DRAWBAND(DIFZ*2+中轴,RGB(255,128,0),EMA(DIFZ*2+中轴,9),RGB(0,128,192));
 {www.qill.cn}
 STICKLINE((中轴+MACDZ)>中轴 AND (中轴+MACDZ)>REF(中轴+MACDZ,1),中轴,中轴+MACDZ,0.8,0),COLOR000096;
 STICKLINE((中轴+MACDZ)>中轴 AND (中轴+MACDZ)<=REF(中轴+MACDZ,1),中轴,中轴+MACDZ,0.8,0),COLOR009600;
 STICKLINE((中轴+MACDZ)<=中轴 AND (中轴+MACDZ)<=REF(中轴+MACDZ,1),中轴,中轴+MACDZ,0.8,0),COLOR009600;
 STICKLINE((中轴+MACDZ)<=中轴 AND (中轴+MACDZ)>REF(中轴+MACDZ,1),中轴,中轴+MACDZ,0.8,0),COLOR000096;
 {www.qill.cn}
 DRAWKLINE(周高,周开,周低,周收);
 {www.qill.cn}
MA5周:MA(周收,5)COLORWHITE;
 MA10周:MA(周收,10)COLORYELLOW;
 MA20周:MA(周收,20)COLORMAGENTA;
 MA60周:MA(周收,60)COLORGREEN;