千均大队长以前发了一个“板块监控”指标，觉得很好，但不太符合我的看盘习惯，于是对其主要指标进行了优化、更改，代码如下：
input:m(1,0,10);{调整此值，仅显示涨幅前几名的板块，以便观察}
DRAWGBKLAST(C,STRIP(RGB(65,65,65),RGB(0,0,0),0));
保险:=STKINDI('991255','引用线.板块涨幅)*100;
电力:=STKINDI('991003','引用线.板块涨幅)*100;
电力设备:=STKINDI('991037','引用线.板块涨幅)*100;
电器:=STKINDI('991014','引用线.板块涨幅)*100;
电子信息:=STKINDI('991006','引用线.板块涨幅)*100;
房地产:=STKINDI('991007','引用线.板块涨幅)*100;
纺织服装:=STKINDI('991008','引用线.板块涨幅)*100;
钢铁:=STKINDI('991009','引用线.板块涨幅)*100;
工程建筑:=STKINDI('991002','引用线.板块涨幅)*100;
供水供气:=STKINDI('991010','引用线.板块涨幅)*100;
化工化纤:=STKINDI('991011','引用线.板块涨幅)*100;
机械:=STKINDI('991027','引用线.板块涨幅)*100;
计算机:=STKINDI('991004','引用线.板块涨幅)*100;
建材:=STKINDI('991024','引用线.板块涨幅)*100;
交通设施:=STKINDI('991016','引用线.板块涨幅)*100;
教育传媒:=STKINDI('991032','引用线.板块涨幅)*100;
旅游酒店:=STKINDI('991018','引用线.板块涨幅)*100;
煤炭石油:=STKINDI('991019','引用线.板块涨幅)*100;
酿酒食品:=STKINDI('991020','引用线.板块涨幅)*100;
农林牧渔:=STKINDI('991021','引用线.板块涨幅)*100;
其他行业:=STKINDI('991025','引用线.板块涨幅)*100;
汽车类:=STKINDI('991026','引用线.板块涨幅)*100;
券商:=STKINDI('991036','引用线.板块涨幅)*100;
商业联锁:=STKINDI('991023','引用线.板块涨幅)*100;
通信:=STKINDI('991135','引用线.板块涨幅)*100;
外贸:=STKINDI('991031','引用线.板块涨幅)*100;
医药:=STKINDI('991028','引用线.板块涨幅)*100;
仪电仪表:=STKINDI('991033','引用线.板块涨幅)*100;
银行类:=STKINDI('991017','引用线.板块涨幅)*100;
有色金属:=STKINDI('991034','引用线.板块涨幅)*100;
运输物流:=STKINDI('991136','引用线.板块涨幅)*100;
造纸印刷:=STKINDI('991035','引用线.板块涨幅)*100;
DRAWTEXT(DISPSTATUS=2 and 保险>m,保险,'﹉保险'+保险+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 电力>m,电力,'﹉﹉电力'+电力+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 电力设备>m,电力设备,'﹉﹉﹉﹉电力设备'+电力设备+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 电器>m,电器,'﹉﹉﹉﹉﹉﹉电器'+电器+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 电子信息>m,电子信息,'﹉﹉﹉﹉﹉﹉﹉﹉电子信息'+电子信息+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 房地产>m,房地产,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉房地产'+房地产+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 纺织服装>m,纺织服装,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉纺织服装'+纺织服装+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 钢铁>m,钢铁,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉钢铁'+钢铁+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 工程建筑>m,工程建筑,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉工程建筑'+工程建筑+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 供水供气>m,供水供气,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉供水供气'+供水供气+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 化工化纤>m,化工化纤,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉化工化纤'+化工化纤+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 机械>m,机械,'﹉机械'+机械+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 计算机>m,计算机,'﹉﹉计算机'+计算机+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 建材>m,建材,'﹉﹉﹉建材'+建材+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 交通设施>m,交通设施,'﹉﹉﹉﹉﹉交通设施'+交通设施+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 教育传媒>m,教育传媒,'﹉﹉﹉﹉﹉﹉﹉教育传媒'+教育传媒+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 旅游酒店>m,旅游酒店,'﹉﹉﹉﹉﹉﹉﹉﹉﹉旅游酒店'+旅游酒店+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 煤炭石油>m,煤炭石油,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉煤炭石油'+煤炭石油+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 酿酒食品>m,酿酒食品,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉酿酒食品'+酿酒食品+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 农林牧渔>m,农林牧渔,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉农林牧渔'+农林牧渔+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 其他行业>m,其他行业,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉其他行业'+其他行业+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 汽车类>m,汽车类,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉汽车类'+汽车类+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 券商>m,券商,'﹉券商'+券商+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 商业联锁>m,商业联锁,'﹉﹉商业联锁'+商业联锁+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 通信>m,通信,'﹉﹉﹉﹉通信'+通信+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 外贸>m,外贸,'﹉﹉﹉﹉﹉﹉外贸'+外贸+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 医药>m,医药,'﹉﹉﹉﹉﹉﹉﹉﹉医药'+医药+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 仪电仪表>m,仪电仪表,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉仪电仪表'+仪电仪表+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 银行类>m,银行类,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉银行类'+银行类+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 有色金属>m,有色金属,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉有色金属'+有色金属+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 运输物流>m,运输物流,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉运输物流'+运输物流+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
DRAWTEXT(DISPSTATUS=2 and 造纸印刷>m,造纸印刷,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉造纸印刷'+造纸印刷+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen;
这样得到的图似乎要直观一些（见附图）。
如果觉得改得可以，尽管拿去用，如果不符合诸君的习惯，请不要骂娘。同时，希望千均大队长不要见怪才好。
仅提供源码{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
