另發個可用的“板塊漲幅”給大家分享

作者：大智慧來源：cxh99.com 發布時間：2023年12月04日

相關標簽:

不好意思，前面轉發的“板塊決策每天前十板塊監控的指標”沒注意到參數不完整無法使用，給大家造成不便，在此至歉。。。
下面另發個可用的“板塊漲幅”于以補過。先將“漲幅引用”引入裝上才可使用的。

{漲幅引用}
A:DYNAINFO(14);

{板塊漲A}
x1:=15 ; x2:=180; x3:=350; x4:=520; x5:=680; x6:=850;y1:=9; y2:=120; y3:=250; y4:=380; y5:=510; y6:=640; y7:=770; y8:=900;
DRAWTEXTREL(5,9,'上證：'+NUMTOSTRN(STKINDI('1a0001','漲幅引用.A')*100,2)+'%'),{colorb48c33}COLORWHITE;
DRAWTEXTREL(80,9,'深證：'+NUMTOSTRN(STKINDI('993124','漲幅引用.A')*100,2)+'%'),{colorb48c33}COLORWHITE;
IF STKINDI('991036','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y2,'券商：' +NUMTOSTRN(STKINDI('991036','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991036','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y2,'券商：' +NUMTOSTRN(STKINDI('991036','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991028','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y3,'醫藥：' +NUMTOSTRN(STKINDI('991028','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991028','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y3,'醫藥：' +NUMTOSTRN(STKINDI('991028','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991017','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y4,'銀hang類：' +NUMTOSTRN(STKINDI('991017','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991017','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y4,'銀hang類：' +NUMTOSTRN(STKINDI('991017','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991007','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y5,'房地產：' +NUMTOSTRN(STKINDI('991007','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991007','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y5,'房地產：' +NUMTOSTRN(STKINDI('991007','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991034','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y6,'有色金屬：' +NUMTOSTRN(STKINDI('991034','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991034','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y6,'有色金屬：' +NUMTOSTRN(STKINDI('991034','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991021','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y7,'農林牧漁：' +NUMTOSTRN(STKINDI('991021','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991021','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y7,'農林牧漁：' +NUMTOSTRN(STKINDI('991021','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991035','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y8,'造紙印刷：' +NUMTOSTRN(STKINDI('991035','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991035','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y8,'造紙印刷：' +NUMTOSTRN(STKINDI('991035','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991018','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y1,'旅游酒店：' +NUMTOSTRN(STKINDI('991018','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991018','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y1,'旅游酒店：' +NUMTOSTRN(STKINDI('991018','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991023','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y2,'商業連鎖：' +NUMTOSTRN(STKINDI('991023','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991023','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y2,'商業連鎖：' +NUMTOSTRN(STKINDI('991023','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991020','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y3,'釀酒食品：' +NUMTOSTRN(STKINDI('991020','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991020','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y3,'釀酒食品：' +NUMTOSTRN(STKINDI('991020','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991008','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y4,'紡織服裝：' +NUMTOSTRN(STKINDI('991008','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991008','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y4,'紡織服裝：' +NUMTOSTRN(STKINDI('991008','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991006','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y5,'電子信息：' +NUMTOSTRN(STKINDI('991006','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991006','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y5,'電子信息：' +NUMTOSTRN(STKINDI('991006','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991004','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y6,'計算機：' +NUMTOSTRN(STKINDI('991004','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991004','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y6,'計算機：' +NUMTOSTRN(STKINDI('991004','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991026','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y7,'汽車類：' +NUMTOSTRN(STKINDI('991026','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991026','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y7,'汽車類：' +NUMTOSTRN(STKINDI('991026','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991014','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y8,'電器：' +NUMTOSTRN(STKINDI('991014','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991014','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y8,'電器：' +NUMTOSTRN(STKINDI('991014','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993745','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y1,'稀缺zi源：' +NUMTOSTRN(STKINDI('993745','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993745','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y1,'稀缺zi源：' +NUMTOSTRN(STKINDI('993745','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991019','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y2,'煤炭石油：' +NUMTOSTRN(STKINDI('991019','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991019','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y2,'煤炭石油：' +NUMTOSTRN(STKINDI('991019','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991009','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y3,'鋼鐵：' +NUMTOSTRN(STKINDI('991009','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991009','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y3,'鋼鐵：' +NUMTOSTRN(STKINDI('991009','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991024','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y4,'建材：' +NUMTOSTRN(STKINDI('991024','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991024','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y4,'建材：' +NUMTOSTRN(STKINDI('991024','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991027','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y5,'機械：' +NUMTOSTRN(STKINDI('991027','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991027','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y5,'機械：' +NUMTOSTRN(STKINDI('991027','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991011','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y6,'化工化纖：' +NUMTOSTRN(STKINDI('991011','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991011','漲幅引用.A')*10

公式導入教程: 【通達信公式源碼導入方法教程】【同花順公式源碼導入方法教程】【大智慧新一代公式源碼導入方法教程】