大智慧领涨行业板块副图公式
-
相关简介:大智慧领涨行业板块副图公式 NPUT: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,'
-
文章来源:股海网作者:股海网发布时间:2014-07-12浏览次数:
大智慧领涨行业板块副图公式
NPUT: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 稀缺资源:' +NUMTOSTRN(STKINDI('993745','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('993745','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x3,y1,'993745 稀缺资源:' +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 机 械:' +NUMTOSTRN(STKINDI('991027','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991011','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x3,y6,'991011 化工化纤:' +NUMTOSTRN(STKINDI('991011','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991011','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x3,y6,'991011 化工化纤:' +NUMTOSTRN(STKINDI('991011','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991003','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x3,y7,'991003 电 力:' +NUMTOSTRN(STKINDI('991003','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991003','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x3,y7,'991003 电 力:' +NUMTOSTRN(STKINDI('991003','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991037','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x3,y8,'991037 电力设备:' +NUMTOSTRN(STKINDI('991037','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991037','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x3,y8,'991037 电力设备:' +NUMTOSTRN(STKINDI('991037','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991032','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x4,y1,'991032 教育传媒:' +NUMTOSTRN(STKINDI('991032','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991032','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x4,y1,'991032 教育传媒:' +NUMTOSTRN(STKINDI('991032','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991010','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x4,y2,'991010 供水供气:' +NUMTOSTRN(STKINDI('991010','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991010','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x4,y2,'991010 供水供气:' +NUMTOSTRN(STKINDI('991010','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991033','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x4,y3,'991033 仪电仪表:' +NUMTOSTRN(STKINDI('991033','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991033','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x4,y3,'991033 仪电仪表:' +NUMTOSTRN(STKINDI('991033','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991136','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x4,y4,'991136 运输物流:' +NUMTOSTRN(STKINDI('991136','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991136','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x4,y4,'991136 运输物流:' +NUMTOSTRN(STKINDI('991136','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991016','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x4,y5,'991016 交通设施:' +NUMTOSTRN(STKINDI('991016','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991016','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x4,y5,'991016 交通设施:' +NUMTOSTRN(STKINDI('991016','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991031','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x4,y6,'991031 外 贸:' +NUMTOSTRN(STKINDI('991031','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991031','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x4,y6,'991031 外 贸:' +NUMTOSTRN(STKINDI('991031','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991002','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x4,y7,'991002 工程建筑:' +NUMTOSTRN(STKINDI('991002','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991002','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x4,y7,'991002 工程建筑:' +NUMTOSTRN(STKINDI('991002','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('993695','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x4,y8,'993695 创 投:' +NUMTOSTRN(STKINDI('993695','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('993695','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x4,y8,'993695 创 投:' +NUMTOSTRN(STKINDI('993695','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('993685','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x5,y1,'993685 3 G:' +NUMTOSTRN(STKINDI('993685','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('993685','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x5,y1,'993685 3 G:' +NUMTOSTRN(STKINDI('993685','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991135','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x5,y2,'991135 通 信:' +NUMTOSTRN(STKINDI('991135','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991135','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x5,y2,'991135 通 信:' +NUMTOSTRN(STKINDI('991135','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('993585','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x5,y4,'993585 新 能 源:' +NUMTOSTRN(STKINDI('993585','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('993585','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x5,y4,'993585 新 能 源:' +NUMTOSTRN(STKINDI('993585','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('993091','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x5,y5,'993091 新 上 海:' +NUMTOSTRN(STKINDI('993091','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('993091','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x5,y5,'993091 新 上 海:' +NUMTOSTRN(STKINDI('993091','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('991035','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x5,y6,'991035 造纸印刷:' +NUMTOSTRN(STKINDI('991035','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('991035','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x5,y6,'991035 造纸印刷:' +NUMTOSTRN(STKINDI('991035','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('993645','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x5,y7,'993645 节能环保:' +NUMTOSTRN(STKINDI('993645','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('993645','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x5,y7,'993645 节能环保:' +NUMTOSTRN(STKINDI('993645','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('993665','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x5,y8,'993665 航天军工:' +NUMTOSTRN(STKINDI('993665','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('993665','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x5,y8,'993665 航天军工:' +NUMTOSTRN(STKINDI('993665','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('993139','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x1,y9,'993139 大 盘:' +NUMTOSTRN(STKINDI('993139','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('993139','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x1,y9,'993139 大 盘:' +NUMTOSTRN(STKINDI('993139','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('993140','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x2,y9,'993140 中 盘:' +NUMTOSTRN(STKINDI('993140','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('993140','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x2,y9,'993140 中 盘:' +NUMTOSTRN(STKINDI('993140','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('993141','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x3,y9,'993141 小 盘:' +NUMTOSTRN(STKINDI('993141','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('993141','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x3,y9,'993141 小 盘:' +NUMTOSTRN(STKINDI('993141','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('993142','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x4,y9,'993142 高 价:' +NUMTOSTRN(STKINDI('993142','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('993142','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x4,y9,'993142 高 价:' +NUMTOSTRN(STKINDI('993142','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('993143','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x5,y9,'993143 中 价:' +NUMTOSTRN(STKINDI('993143','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('993143','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x5,y9,'993143 中 价:' +NUMTOSTRN(STKINDI('993143','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('993144','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x1,y10,'993144 低 价:' +NUMTOSTRN(STKINDI('993144','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('993144','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x1,y10,'993144 低 价:' +NUMTOSTRN(STKINDI('993144','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('993605','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x2,y10,'993605 股权投资:' +NUMTOSTRN(STKINDI('993605','涨幅引用.A')*100,2)+'%'),Colorred;end;
IF STKINDI('993605','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x2,y10,'993605 股权投资:' +NUMTOSTRN(STKINDI('993605','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('993386','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x3,y10,'993386 预 增:' +NUMTOSTRN(STKINDI('993143','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('993386','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x3,y10,'993386 预 增:' +NUMTOSTRN(STKINDI('993143','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('993385','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x4,y10,'993385 预 减:' +NUMTOSTRN(STKINDI('993144','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('993385','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x4,y10,'993385 预 减:' +NUMTOSTRN(STKINDI('993144','涨幅引用.A')*100,2)+'%'),colorgreen;end;
IF STKINDI('993095','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(x5,y10,'993095 奥 运:' +NUMTOSTRN(STKINDI('993095','涨幅引用.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('993095','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(x5,y10,'993095 奥 运:' +NUMTOSTRN(STKINDI('993095','涨幅引用.A')*100,2)+'%'),colorgreen;end;