大智慧板块涨幅副图指标

源码

x1:=15 ; x2:=180; x3:=350; x4:=520; x5:=680; x6:=850;  y1:=9; y2:=120; y3:=250; y4:=380; y5:=510; y6:=640; y7:=770; y8:=900;
DRAWTEXTREL(5,9,'上证：'+NUMTOSTRN(STKINDI('1a0001','涨幅引用.A')*100,2)+'%'),colorb48c33;
DRAWTEXTREL(80,9,'深：'+NUMTOSTRN(STKINDI('993124','涨幅引用.A')*100,2)+'%'),colorb48c33;
IF STKINDI('991036','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y2,'券  商：  ' +NUMTOSTRN(STKINDI('991036','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991036','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y2,'券  商：  ' +NUMTOSTRN(STKINDI('991036','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991028','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y3,'医  药：  ' +NUMTOSTRN(STKINDI('991028','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991028','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y3,'医  药：  ' +NUMTOSTRN(STKINDI('991028','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991017','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y4,'银行类：  ' +NUMTOSTRN(STKINDI('991017','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991017','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y4,'银行类：  ' +NUMTOSTRN(STKINDI('991017','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991007','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y5,'房地产：  ' +NUMTOSTRN(STKINDI('991007','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991007','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y5,'房地产：  ' +NUMTOSTRN(STKINDI('991007','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991034','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y6,'有色金属：  ' +NUMTOSTRN(STKINDI('991034','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991034','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y6,'有色金属：  ' +NUMTOSTRN(STKINDI('991034','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991021','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y7,'农林牧渔：  ' +NUMTOSTRN(STKINDI('991021','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991021','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y7,'农林牧渔：  ' +NUMTOSTRN(STKINDI('991021','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991035','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y8,'造纸印刷：  ' +NUMTOSTRN(STKINDI('991035','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991035','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y8,'造纸印刷：  ' +NUMTOSTRN(STKINDI('991035','涨幅引用.A')*100,2)+'%'),colorb48c33;end;

IF STKINDI('991018','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y1,'旅游酒店：  ' +NUMTOSTRN(STKINDI('991018','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991018','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y1,'旅游酒店：  ' +NUMTOSTRN(STKINDI('991018','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991023','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y2,'商业连锁：  ' +NUMTOSTRN(STKINDI('991023','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991023','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y2,'商业连锁：  ' +NUMTOSTRN(STKINDI('991023','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991020','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y3,'酿酒食品：  ' +NUMTOSTRN(STKINDI('991020','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991020','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y3,'酿酒食品：  ' +NUMTOSTRN(STKINDI('991020','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991008','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y4,'纺织服装：  ' +NUMTOSTRN(STKINDI('991008','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991008','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y4,'纺织服装：  ' +NUMTOSTRN(STKINDI('991008','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991006','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y5,'电子信息：  ' +NUMTOSTRN(STKINDI('991006','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991006','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y5,'电子信息：  ' +NUMTOSTRN(STKINDI('991006','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991004','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y6,'计算机：  ' +NUMTOSTRN(STKINDI('991004','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991004','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y6,'计算机：  ' +NUMTOSTRN(STKINDI('991004','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991026','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y7,'汽车类：  ' +NUMTOSTRN(STKINDI('991026','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991026','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y7,'汽车类：  ' +NUMTOSTRN(STKINDI('991026','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991014','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y8,'电  器：  ' +NUMTOSTRN(STKINDI('991014','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991014','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y8,'电  器：  ' +NUMTOSTRN(STKINDI('991014','涨幅引用.A')*100,2)+'%'),colorb48c33;end;

IF STKINDI('993745','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y1,'稀缺资源：  ' +NUMTOSTRN(STKINDI('993745','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993745','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y1,'稀缺资源：  ' +NUMTOSTRN(STKINDI('993745','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991019','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y2,'煤炭石油：  ' +NUMTOSTRN(STKINDI('991019','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991019','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y2,'煤炭石油：  ' +NUMTOSTRN(STKINDI('991019','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991009','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y3,'钢  铁：  ' +NUMTOSTRN(STKINDI('991009','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991009','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y3,'钢  铁：  ' +NUMTOSTRN(STKINDI('991009','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991024','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y4,'建  材：  ' +NUMTOSTRN(STKINDI('991024','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991024','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y4,'建  材：  ' +NUMTOSTRN(STKINDI('991024','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991027','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y5,'机  械：  ' +NUMTOSTRN(STKINDI('991027','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991027','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y5,'机  械：  ' +NUMTOSTRN(STKINDI('991027','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991011','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y6,'化工化纤：  ' +NUMTOSTRN(STKINDI('991011','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991011','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y6,'化工化纤：  ' +NUMTOSTRN(STKINDI('991011','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991002','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y7,'工程建筑：  ' +NUMTOSTRN(STKINDI('991002','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991002','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y7,'工程建筑：  ' +NUMTOSTRN(STKINDI('991002','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991037','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y8,'电力设备：  ' +NUMTOSTRN(STKINDI('991037','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991037','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y8,'电力设备：  ' +NUMTOSTRN(STKINDI('991037','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991032','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y1,'教育传媒：  ' +NUMTOSTRN(STKINDI('991032','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991032','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y1,'教育传媒：  ' +NUMTOSTRN(STKINDI('991032','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991010','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y2,'供水供气：  ' +NUMTOSTRN(STKINDI('991010','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991010','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y2,'供水供气：  ' +NUMTOSTRN(STKINDI('991010','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991033','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y3,'仪电仪表：  ' +NUMTOSTRN(STKINDI('991033','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991033','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y3,'仪电仪表：  ' +NUMTOSTRN(STKINDI('991033','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991136','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y4,'运输物流：  ' +NUMTOSTRN(STKINDI('991136','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991136','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y4,'运输物流：  ' +NUMTOSTRN(STKINDI('991136','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991016','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y5,'交通设施：  ' +NUMTOSTRN(STKINDI('991016','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991016','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y5,'交通设施：  ' +NUMTOSTRN(STKINDI('991016','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991031','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y6,'外  贸：  ' +NUMTOSTRN(STKINDI('991031','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991031','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y6,'外  贸：  ' +NUMTOSTRN(STKINDI('991031','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991003','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y7,'电  力：  ' +NUMTOSTRN(STKINDI('991003','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991003','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y7,'电  力：  ' +NUMTOSTRN(STKINDI('991003','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991135','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y8,'通  信：  ' +NUMTOSTRN(STKINDI('991135','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991135','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y8,'通  信：  ' +NUMTOSTRN(STKINDI('991135','涨幅引用.A')*100,2)+'%'),colorb48c33;end;