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

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

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

当前位置：分析家公式网 → 软件中心 → 股票公式 → 大智慧L2公式 → 板块涨幅紧凑型


分析家公式网23年来提供大量的股票公式，股票软件下载，网站的发展离不开您的支持，谢谢！”

	软件大小：32.0 KB
	更新时间：2009-04-27 12:46:00
	点这里下载 → 软件下载点这里下载 → 下载地址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 STKINDI('991027','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y5,'991027 机 上一页攻守兼备~白刀子进红刀子出 下一页疯狂的鱼的公式源码