{涨幅引用}
A:DYNAINFO(14);
{板块涨A}
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}COLORWHITE;
DRAWTEXTREL(80,9,'深证：'+NUMTOSTRN(STKINDI('993124','涨幅引用.A')*100,2)+'%'), {colorb48c33}COLORWHITE;
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;
