【大智慧L2】板块涨幅排名（源码）-大智慧公式-公式网

【大智慧L2】板块涨幅排名（源码）
相关简介：今天无意间在网上看到涨幅排名的源码，觉得不错，贴出来大家看看可以加到行情里据此排序希望老师们改进让他更完美如果侵犯了了网友的版权，站内短信请告知我，谢谢 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')*
文章来源：公式网发布时间：2010-08-06浏览次数：下载次数：0

今天无意间在网上看到涨幅排名的源码，觉得不错，贴出来大家看看
可以加到行情里据此排序
希望老师们改进让他更完美

如果侵犯了了网友的版权，站内短信请告知我，谢谢

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,'9

上一篇：强势整理大智慧里（源码、无未来）下一篇：顺势而为（原码，有图）

☞公式网提供公式解密、改选股服务联系点击查看详情（有偿服务,非诚勿扰）...

☞公式网公式指标安装帮助说明，新手必读，好好学习天天向上！...

☞公式网注册、登录、下载问题说明，如遇问题请查阅。...

　☟问题反馈 ☞┄┄┄┄┄┄┄┄┄┄→收藏资源:

上传会员:

公式网

文件大小:

Bytes

上传时间:

2010-08-06

下载积分:

下载地址: 点击下载

免责声明:

请仔细阅读并同意后才能下载

本附件为用户分享上传，公式网没有对文件进行验证，不能保证下载资源的准确性、安全性和完整性，也不保证下载资源能正常安装和使用，且下载后扣除的积分无法退还，除非您充分理解并完全接受本声明，否则您无权下载。
本站对提供下载的软件、指标、资料等不拥有任何权利，其版权归该下载资源的合法拥有者所有。本附件仅供学习和研究使用，不得用于商业或者非法用途，如有侵犯您的版权，请参看《公式网侵权处理流程》《公式网免责声明条款》。
点击下载无反应时，更换主流浏览器重新登录操作，如360浏览器、Edge浏览器、谷歌浏览器，个别浏览器有不兼容现象。

勾选以下表示您已经阅读并同意以上声明才能下载本文件，扣除积分无法退还！

√ 我已阅读所有条款规定， 请点我同意 所有条款内容！我自愿下载！ ←

提示：如下载失败，请点关闭刷新此页面或提交问题反馈给管理员→

关闭

金钻指标

通达信公式

大智慧公式

同花顺公式

东财通公式

操盘手公式

文华财经公式

飞狐公式

公式解答

其他公式

股票软件

股票池