板块涨幅排名（源码）

指标功能：[B]国产软件[/B]
指标类型：简体中文
所需积分：0
推荐星级：

授权方式：共享版
公式大小：28.0 KB
更新时间：2010-08-08 10:33:00
公式简介:

A:DYNAINFO(14);

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

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

IF STKINDI('993745','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y1,'993745 稀缺资源：' +NUMTOSTRN(STKINDI('993745','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993745','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y1,'993745 稀缺资源：' +NUMTOSTRN(STKINDI('993745','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991019','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y2,'991019 煤炭石油：' +NUMTOSTRN(STKINDI('991019','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991019','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y2,'991019 煤炭石油：' +NUMTOSTRN(STKINDI('991019','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991009','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y3,'991009 钢铁：' +NUMTOSTRN(STKINDI('991009','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991009','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y3,'991009 钢铁：' +NUMTOSTRN(STKINDI('991009','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991024','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y4,'991024 建材：' +NUMTOSTRN(STKINDI('991024','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991024','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y4,'991024 建材：' +NUMTOSTRN(STKINDI('991024','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991027','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y5,'991027 机械：' +NUMTOSTRN(STKINDI('991027','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991027','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y5,'991027 机械：' +NUMTOSTRN(STKINDI('991027','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991011','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y6,'991011 化工化纤：' +NUMTOSTRN(STKINDI('991011','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991011','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y6,'991011 化工化纤：' +NUMTOSTRN(STKINDI('991011','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991002','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y7,'991002 工程建筑：' +NUMTOSTRN(STKINDI('991002','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991002','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y7,'991002 工程建筑：' +NUMTOSTRN(STKINDI('991002','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991037','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y8,'991037 电力设备：' +NUMTOSTRN(STKINDI('991037','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991037','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y8,'991037 电力设备：' +NUMTOSTRN(STKINDI('991037','引用涨幅.A')*100,2)+'%'),colorb48c33;end;

IF STKINDI('991032','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y1,'991032 教育传媒：' +NUMTOSTRN(STKINDI('991032','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991032','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y1,'991032 教育传媒：' +NUMTOSTRN(STKINDI('991032','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991010','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y2,'991010 供水供气：' +NUMTOSTRN(STKINDI('991010','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991010','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y2,'991010 供水供气：' +NUMTOSTRN(STKINDI('991010','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991033','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y3,'991033 仪电仪表：' +NUMTOSTRN(STKINDI('991033','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991033','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y3,'991033 仪电仪表：' +NUMTOSTRN(STKINDI('991033','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991136','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y4,'991136 运输物流：' +NUMTOSTRN(STKINDI('991136','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991136','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y4,'991136 运输物流：' +NUMTOSTRN(STKINDI('991136','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991016','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y5,'991016 交通设施：' +NUMTOSTRN(STKINDI('991016','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991016','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y5,'991016 交通设施：' +NUMTOSTRN(STKINDI('991016','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991031','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y6,'991031 外贸：' +NUMTOSTRN(STKINDI('991031','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991031','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y6,'991031 外贸：' +NUMTOSTRN(STKINDI('991031','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991003','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y7,'991003 电力：' +NUMTOSTRN(STKINDI('991003','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991003','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y7,'991003 电力：' +NUMTOSTRN(STKINDI('991003','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991135','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y8,'991135 通信：' +NUMTOSTRN(STKINDI('991135','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991135','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y8,'991135 通信：' +NUMTOSTRN(STKINDI('991135','引用涨幅.A')*100,2)+'%'),colorb48c33;end;

IF STKINDI('993685','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y1,'993685 3 G：' +NUMTOSTRN(STKINDI('993685','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993685','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y1,'993685 3 G：' +NUMTOSTRN(STKINDI('993685','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993695','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y2,'993695 创投：' +NUMTOSTRN(STKINDI('993695','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993695','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y2,'993695 创投：' +NUMTOSTRN(STKINDI('993695','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993095','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y3,'993095 奥运：' +NUMTOSTRN(STKINDI('993095','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993095','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y3,'993095 奥运：' +NUMTOSTRN(STKINDI('993095','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993585','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y4,'993585 新能源：' +NUMTOSTRN(STKINDI('993585','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993585','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y4,'993585 新能源：' +NUMTOSTRN(STKINDI('993585','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993091','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y5,'993091 新上海：' +NUMTOSTRN(STKINDI('993091','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993091','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y5,'993091 新上海：' +NUMTOSTRN(STKINDI('993091','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993128','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y6,'993128 农业龙头：' +NUMTOSTRN(STKINDI('993128','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993128','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y6,'993128 农业龙头：' +NUMTOSTRN(STKINDI('993128','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993645','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y7,'993645 节能环保：' +NUMTOSTRN(STKINDI('993645','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993645','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y7,'993645 节能环保：' +NUMTOSTRN(STKINDI('993645','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993665','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y8,'993665 航天军工：' +NUMTOSTRN(STKINDI('993665','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993665','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y8,'993665 航天军工：' +NUMTOSTRN(STKINDI('993665','引用涨幅.A')*100,2)+'%'),colorb48c33;end;

[url=http://www.goodgupiao.com/gupiaogongshi/9021.html][B]板块涨幅排名（源码）[/B][/url]