板块监控另类表现手法(大智慧)

板块监控另类表现手法(大智慧)

源码正文：

input:m(1,0,10){XG51};
DRAWGBKLAst(C,STRIP(RGB(65,65,65),RGB(0,0,0),0)){XG51};
保险:=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{XG51};
DRAWTEXT(DISPSTATUS=2 and 电力>m,电力,'﹉﹉电力'+电力+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 电力设备>m,电力设备,'﹉﹉﹉﹉电力设备'+电力设备+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 电器>m,电器,'﹉﹉﹉﹉﹉﹉电器'+电器+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 电子信息>m,电子信息,'﹉﹉﹉﹉﹉﹉﹉﹉电子信息'+电子信息+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 房地产>m,房地产,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉房地产'+房地产+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 纺织服装>m,纺织服装,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉纺织服装'+纺织服装+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 钢铁>m,钢铁,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉钢铁'+钢铁+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 工程建筑>m,工程建筑,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉工程建筑'+工程建筑+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 供水供气>m,供水供气,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉供水供气'+供水供气+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 化工化纤>m,化工化纤,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉化工化纤'+化工化纤+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 机械>m,机械,'﹉机械'+机械+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 计算机>m,计算机,'﹉﹉计算机'+计算机+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 建材>m,建材,'﹉﹉﹉建材'+建材+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 交通设施>m,交通设施,'﹉﹉﹉﹉﹉交通设施'+交通设施+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 教育传媒>m,教育传媒,'﹉﹉﹉﹉﹉﹉﹉教育传媒'+教育传媒+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 旅游酒店>m,旅游酒店,'﹉﹉﹉﹉﹉﹉﹉﹉﹉旅游酒店'+旅游酒店+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 煤炭石油>m,煤炭石油,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉煤炭石油'+煤炭石油+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 酿酒食品>m,酿酒食品,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉酿酒食品'+酿酒食品+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 农林牧渔>m,农林牧渔,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉农林牧渔'+农林牧渔+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 其他行业>m,其他行业,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉其他行业'+其他行业+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 汽车类>m,汽车类,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉汽车类'+汽车类+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 券商>m,券商,'﹉券商'+券商+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 商业联锁>m,商业联锁,'﹉﹉商业联锁'+商业联锁+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 通信>m,通信,'﹉﹉﹉﹉通信'+通信+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 外贸>m,外贸,'﹉﹉﹉﹉﹉﹉外贸'+外贸+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 医药>m,医药,'﹉﹉﹉﹉﹉﹉﹉﹉医药'+医药+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 仪电仪表>m,仪电仪表,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉仪电仪表'+仪电仪表+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 银行类>m,银行类,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉银行类'+银行类+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 有色金属>m,有色金属,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉有色金属'+有色金属+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 运输物流>m,运输物流,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉运输物流'+运输物流+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
DRAWTEXT(DISPSTATUS=2 and 造纸印刷>m,造纸印刷,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉造纸印刷'+造纸印刷+'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,COLORgreen{XG51};
这样得到的图似乎要直观一些（见附图）。

{X_G*5_1_C_N_{}

简化多空线(大智慧)(飞狐)

源码正文：

INPUT:N(10,1,999){XG51};
a:=(3*c+l+o+h)/6{XG51};
b:0{XG51};
for i=0 to 19 do begin
b:=b+(20-i)*ref(a,i){XG51};
end{XG51};
b:=b/210{XG51};
D:ma(b,n){X=G_5_1=C=N={};