板块涨幅公式（副图可看）（全部建立方可显示）


公式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;