通达信不错的主图，不知是哪位老师的，放出源码

VAR1:=(2*CLOSE+HIGH+LOW)/4;
D:=EMA(VAR1,99)*0.91;
深海:D*0.9,LINETHICK2,COLORGREEN ;
海平面:EMA(VAR1,93),LINETHICK2,COLORYELLOW;
DRAWBAND(海平面,RGB(66,44,22),深海,RGB(33,33,22));
DRAWKLINE(H,O,L,C);
D, LINETHICK2,COLORGREEN ;

D1:=YEAR AND MONTH AND DAY;
AA1:=STRCAT(CON2STR(YEAR,0),'年');
AA2:=STRCAT(CON2STR(MONTH,0),'月');
AA3:=STRCAT(CON2STR(DAY,0),'日');
AA4:=STRCAT('【',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五',IF(WEEKDAY=6,'六','日')))))));
AA:=STRCAT(STRCAT(STRCAT(AA1,AA2),STRCAT(AA3,AA4)),'】');
DRAWTEXT_FIX(D1,0,1,0,AA);

ZJS:=IF(CODELIKE('600'),"999999$ADVANCE","399001$ADVANCE");
DJS:=IF(CODELIKE('600'),"999999$INDEXDEC","399001$INDEXDEC");
AA11:=STRCAT(STRCAT(STRCAT('〖','跌家数'),'〗'),CON2STR(DJS,0));
AA22:=STRCAT(STRCAT(STRCAT(STRCAT('〖','涨家数'),'〗'),CON2STR(ZJS,0)),AA11);
DRAWTEXT_FIX(D1,0.5,1,0,AA22),COLORGREEN;