大智慧板块涨幅副图指标

源码

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;