以下是通达信周k线叠加周MACD源码
{}
DRAWGBK(O>=0,RGB(0,1,0),RGB(30,31,30),0,'0',0);
{}
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;
{}
DIFZ:=EMA(周收,12)-EMA(周收,26);
DEAZ:=EMA(DIFZ,9);
MACDZ:=4*(DIFZ-DEAZ);
{}
中轴:REFDATE(HHV(周高,52),DATE),COLORGRAY;
{}
DRAWBAND(DIFZ*2+中轴,RGB(255,128,0),EMA(DIFZ*2+中轴,9),RGB(0,128,192));
{}
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;
{}
DRAWKLINE(周高,周开,周低,周收);
{}
MA5周:MA(周收,5)COLORWHITE;
MA10周:MA(周收,10)COLORYELLOW;
MA20周:MA(周收,20)COLORMAGENTA;
MA60周:MA(周收,60)COLORGREEN;
