好用的板块涨幅指标
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 |