板块涨幅紧凑型 - 分析家公式网

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

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

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

软件名称：[B]板块涨幅紧凑型[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：解密版
软件大小：32.0 KB
官方主页：Home Page
更新时间：2009-04-27 12:46:00
软件简介:

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 STKINDI('991027','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y5,'991027 机
[url=http://www.70822.com/soft/sort013/sort03/down-8700.html]板块涨幅紧凑型[/url]