板块涨幅指标 - 分析家公式网

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

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

当前位置：分析家公式网 → 股票公式 → 大智慧L2公式 → 一键转帖：板块涨幅指标

软件名称：[B]板块涨幅指标[/B]
软件类型：国产软件
运行环境：Win9X/2000/XP/2003/
软件语言：简体中文
授权方式：解密版
软件大小：30.0 KB
官方主页：Home Page
更新时间：2009-03-07 22:42:00
软件简介:

好用的板块涨幅指标

1.
名称:涨幅引用

A:DYNAINFO(14);

2.板块涨幅

INPUT:N(12,0,50,1);
x1:=5 ; x2:=155; x3:=305; x4:=455; x5:=605; x6:=1000; y1:=0; y2:=y1+N; y3:=y2+N; y4:=y3+N; y5:=y4+N; y6:=y5+N; y7:=y6+N; y8:=y7+N; y9:=y8+N; y10:=y9+N;
IF STKINDI('1a0001','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(30,0,'上证指数：' +NUMTOSTRN(STKINDI('1a0001','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('1a0001','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(30,0,'上证指数：' +NUMTOSTRN(STKINDI('1a0001','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
{IF STKINDI('993124','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(78,0,'深证：' +NUMTOSTRN(STKINDI('993124','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993124','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(78,0,'深证：' +NUMTOSTRN(STKINDI('993124','涨幅引用.A')*100,2)+'%'),colorb48c33;end;}
IF STKINDI('991036','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x1,y2,'991036 券商：' +NUMTOSTRN(STKINDI('991036','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991036','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x1,y2,'991036 券商：' +NUMTOSTRN(STKINDI('991036','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991017','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x1,y3,'991017 银行类：' +NUMTOSTRN(STKINDI('991017','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991017','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x1,y3,'991017 银行类：' +NUMTOSTRN(STKINDI('991017','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991028','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x1,y4,'991028 医药：' +NUMTOSTRN(STKINDI('991028','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991028','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x1,y4,'991028 医药：' +NUMTOSTRN(STKINDI('991028','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991007','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x1,y5,'991007 房地产：' +NUMTOSTRN(STKINDI('991007','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991007','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x1,y5,'991007 房地产：' +NUMTOSTRN(STKINDI('991007','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991024','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x1,y6,'991024 建材：' +NUMTOSTRN(STKINDI('991024','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991024','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x1,y6,'991024 建材：' +NUMTOSTRN(STKINDI('991024','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991021','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x1,y7,'991021 农林牧渔：' +NUMTOSTRN(STKINDI('991021','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991021','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x1,y7,'991021 农林牧渔：' +NUMTOSTRN(STKINDI('991021','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('993128','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x1,y8,'993128 农业龙头：' +NUMTOSTRN(STKINDI('993128','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('993128','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x1,y8,'993128 农业龙头：' +NUMTOSTRN(STKINDI('993128','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('993795','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x5,y3,'993795 中字头：' +NUMTOSTRN(STKINDI('993795','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('993795','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x5,y3,'993795 中字头：' +NUMTOSTRN(STKINDI('993795','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991018','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x2,y1,'991018 旅游酒店：' +NUMTOSTRN(STKINDI('991018','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991018','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x2,y1,'991018 旅游酒店：' +NUMTOSTRN(STKINDI('991018','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991023','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x2,y2,'991023 商业连锁：' +NUMTOSTRN(STKINDI('991023','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991023','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x2,y2,'991023 商业连锁：' +NUMTOSTRN(STKINDI('991023','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991020','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x2,y3,'991020 酿酒食品：' +NUMTOSTRN(STKINDI('991020','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991020','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x2,y3,'991020 酿酒食品：' +NUMTOSTRN(STKINDI('991020','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991008','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x2,y4,'991008 纺织服装：' +NUMTOSTRN(STKINDI('991008','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991008','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x2,y4,'991008 纺织服装：' +NUMTOSTRN(STKINDI('991008','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991006','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x2,y5,'991006 电子信息：' +NUMTOSTRN(STKINDI('991006','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991006','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x2,y5,'991006 电子信息：' +NUMTOSTRN(STKINDI('991006','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991004','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x2,y6,'991004 计算机：' +NUMTOSTRN(STKINDI('991004','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991004','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x2,y6,'991004 计算机：' +NUMTOSTRN(STKINDI('991004','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991026','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x2,y7,'991026 汽车类：' +NUMTOSTRN(STKINDI('991026','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991026','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x2,y7,'991026 汽车类：' +NUMTOSTRN(STKINDI('991026','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991014','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x2,y8,'991014 电器：' +NUMTOSTRN(STKINDI('991014','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991014','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x2,y8,'991014 电器：' +NUMTOSTRN(STKINDI('991014','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('993745','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x3,y1,'993745 稀缺zi源：' +NUMTOSTRN(STKINDI('993745','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('993745','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x3,y1,'993745 稀缺zi源：' +NUMTOSTRN(STKINDI('993745','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991019','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x3,y2,'991019 煤炭石油：' +NUMTOSTRN(STKINDI('991019','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991019','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x3,y2,'991019 煤炭石油：' +NUMTOSTRN(STKINDI('991019','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991009','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x3,y3,'991009 钢铁：' +NUMTOSTRN(STKINDI('991009','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991009','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x3,y3,'991009 钢铁：' +NUMTOSTRN(STKINDI('991009','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991034','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x3,y4,'991034 有色金属：' +NUMTOSTRN(STKINDI('991034','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991034','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x3,y4,'991034 有色金属：' +NUMTOSTRN(STKINDI('991034','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991027','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x3,y5,'991027 机械：' +NUMTOSTRN(STKINDI('991027','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKI
[url=http://www.70822.com/soft/sort013/sort03/down-7119.html]板块涨幅指标[/url]