新版板块涨幅全景公式（含源码）

分析家公式网,提供指标公式,股票软件用户登录 |

首页 ┆ 软件中心 ┆ 备用域名gspt.com ┆ 公式教程 ┆ 软件分类

当前位置：分析家公式网 → 股票公式 → 大智慧L2公式 → 一键转帖：新版板块涨幅全景公式（含源码）

软件名称：[B]新版板块涨幅全景公式（含源码）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：59.0 KB
官方主页：Home Page
更新时间：2010-05-04 03:41:18
软件简介:

本公式半年前来自论坛那位大师（时间长忘记了）的“板块涨幅”公式理念，当时只有四十板块罗列，呵呵现在要过百个板块才能算全呢，五、一放假有时间整理一下大智慧最新的行业、概念板块(整理、取舍板块编辑公式太费时，可能是本人操作慢吧？足足花了一天多)，本人认为常用并有参考价值的做全景公式，由于公式源码太多，本想放在一个指标内显示，试过几次，最多也不能超过48只板块代码否则公式无法通过，由于本次所选择的板块有90个（地域板块不在此列），只有分A、B两个指标显示了，两个指标放在一起也能包揽板块涨跌的全景了，这样减少切换板块排序的麻烦，在K线状态可以监控板块涨跌，源码开放可由使用者喜爱自由修改。

注：如果你的大智慧不能正常显示，可能是未有涨幅引用公式，可用这一句另建一个“涨幅引用”的公式，公式源码：

{涨幅引用}
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,'银hang类： ' +NUMTOSTRN(STKINDI('991017','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991017','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y4,'银hang类： ' +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,'稀缺zi源： ' +NUMTOSTRN(STKINDI('993745','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993745','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y1,'稀缺zi源： ' +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
[url=http://www.70822.com/soft/sort013/sort03/down-19709.html]新版板块涨幅全景公式（含源码）[/url]