日周月同图

{月}
MC:=C#MONTH,NODRAW;
 MH:=H#MONTH,NODRAW;
 ML:=L#MONTH,NODRAW;
 MO1:=IF(DAY  MO:=HHV(MO1,DAY),NODRAW;
 STICKLINE(MC>=MO,MH,ML,4,-1)COLOR00009C;
 STICKLINE(MC<=MO,MH,ML,4,-1),COLOR4F2F4F;
 K1:XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1,LINETHICK2,COLORRED;
 K2:EMA(K1,25),LINETHICK2;
 DRAWBAND(K1,RGB(80,0,0),K2,RGB(0,91,0));
 {周}
周O1:=IF(WEEKDAY 周开:HHV(周O1,WEEKDAY)COLORRED,NODRAW;
周高:HHV(H,WEEKDAY)COLORYELLOW,NODRAW;
周低:LLV(L,WEEKDAY)COLOR32CD32,NODRAW;
周收:C#WEEK, COLORFF6EC7,NODRAW;
 STICKLINE(周收>=周开,周收,周高,4,0)COLOR600060;
 STICKLINE(周收>=周开,周低,周收,4,0)COLOR000066;
 STICKLINE(周收<周开,周收,周高,4,0),COLOR9F3333;
 STICKLINE(周收<周开,周开,周低,4,0),COLOR9F3333;
 {日}
AQ:=O#WEEK;
 B:=C#WEEK;
 AAQ:=H#WEEK;
 BB:=L#WEEK;
 IF(AAQ  IF(BB  STICKLINE(WEEKDAY=1,AAQ,BB,0,0),COLORGRAY;
 STICKLINE(WEEKDAY=6-1,AAQ,BB,0,0),COLORGRAY;
中位线1:(AAQ+BB)/2,LINETHICK1,COLORGRAY;
 (XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1+XMA(XMA(H,25),25),DOTLINE,COLORGREEN;
 DRAWKL