大盘幅图——DZH源码

刚来此，发个大盘K线图。希望大家喜欢
{显示成员}
ZSC:=IF(INBLOCK('大盘'),"SH000001$CLOSE",0);
ZSO:=IF(INBLOCK('大盘'),"SH000001$OPEN",0);
ZSH:=IF(INBLOCK('大盘'),"SH000001$HIGH",0);
ZSL:=IF(INBLOCK('大盘'),"SH000001$LOW",0);
{全显}
ZSC:=IF(STRCMP(MARKETLABEL, '大盘')=0,"SH000001$CLOSE","SH000001$CLOSE");
ZSO:=IF(STRCMP(MARKETLABEL, '大盘')=0,"SH000001$OPEN","SH000001$OPEN");
ZSH:=IF(STRCMP(MARKETLABEL, '大盘')=0,"SH000001$HIGH","SH000001$HIGH");
ZSL:=IF(STRCMP(MARKETLABEL, '大盘')=0,"SH000001$LOW","SH000001$LOW");
STICKLINE(ZSC>=ZSO,ZSO,ZSC,7,1),COLORRED;
STICKLINE(ZSO>ZSC,ZSC,ZSO,7,0),COLORGREEN;
STICKLINE(ZSC>=ZSO,ZSC,ZSH,0,1 ),COLORRED;
STICKLINE(ZSC>=ZSO,ZSO,ZSL,0,1),COLORRED;
STICKLINE(ZSO>ZSC,ZSC,ZSL,0,0),COLORGREEN;
STICKLINE(ZSO>ZSC,ZSO,ZSH,0,0),COLORGREEN;
收盘:ZSC,LINETHICK0,COLORFFFFFF,PRECIS2;
开盘:ZSO,LINETHICK0,COLOR00FFFF,PRECIS2;
最高:ZSH,LINETHICK0,COLOR0000FF,PRECIS2;
最低:ZSL,LINETHICK0,COLOR00FF00,PRECIS2;
涨跌:收盘-REF(收盘,1),LINETHICK0,PRECIS2,COLORFFFF00;
涨幅:SUM(收盘/REF(收盘,1)*100-100,1),LINETHICK0,PRECIS2,COLORFF00FF;
DRAWTEXTABS(10,5,'大盘'),COLORYELLOW,LINETHICK3;
ma30:MA(收盘,30),COLOR00FF00,PRECIS2;