l2板块涨幅排名可排序
今天无意间在网上看到涨幅排名的源码,觉得不错,贴出来大家看看
可以加到行情里据此排序
希望老师们改进让他更完美
如果侵犯了了网友的版权,站内短信请告知我,谢谢
先建立第一个公式,名称是:引用涨幅
a:dynainfo(14);
第二个公式:名称是:板块涨幅排名{只能是4个汉字,大智慧真垃圾}
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,'9936853 g:' +numtostrn(stkindi('993685','引用涨幅.a')*100,2)+'%'),color7711ee;end;
if stkindi('993685','引用涨幅.a')*100<0 then begin drawtextrel(x5,y1,'9936853 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;
上一指标公式:只买红柱-这段时间短线用的上的有未来有图没加密公式下载 大智慧只买红柱
下一指标公式:双向主动成交量副图公式下载 大智慧源码双向
☉ 好公式网发布的指标公式主要用于软件技术面分析,仅供参考,勿用于实际操作,据此操作风险自负!
☉ 解压密码:www.goodgongshi.com 就是好公式网域名,希望大家看清楚,切勿输错。
☉ tnc和tni格式指标公式,仅可以用通达信软件引入使用,例如可以用通达信软件引入使用指标公式;
☉ tne格式指标公式,仅可以用通达信软件公式编辑器5.0版导入,高版本兼容低版本;
☉ fnc格式指标公式,可以用大智慧软件新一代高速行情分析系统股票软件使用,少部分可以用分析家软件引入使用;
☉ alg格式指标公式,仅仅可以用飞狐交易师软件引入使用;exp格式指标公式,仅可以用大智慧经典版软件引入使用;
☉ hxf格式指标公式,仅可以用同花顺软件引入使用。
☉ 如果您发现下载软件链接错误,请联系管理员报告错误。
☉ 好公式网欢迎各位网友帮忙宣传转发本站网址,有您的支持,我们会做得更好!
☉ 本文L2板块涨幅排名可排序公式下载 大智慧板块大智慧仅供学习研究。