新版板塊漲幅全景公式（含公式、源碼）

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

相關標簽:

本公式半年前來自論壇那位大師（時間長忘記了）的“板塊漲幅”公式理念，當時只有四十板塊羅列，呵呵現在要過百個板塊才能算全呢，五、一放假有時間整理一下大智慧最新的行業、概念板塊(整理、取舍板塊編輯公式太費時，可能是本人操作慢吧？足足花了一天多)，本人認為常用并有參考價值的做全景公式，由于公式源碼太多，本想放在一個指標內顯示，試過幾次，最多也不能超過48只板塊代碼否則公式無法通過，由于本次所選擇的板塊有90個（地域板塊不在此列），只有分A、B兩個指標顯示了，兩個指標放在一起也能包攬板塊漲跌的全景了，這樣減少切換板塊排序的麻煩，在K線狀態可以監控板塊漲跌，源碼開放可由使用者喜愛自由修改。注：如果你的大智慧不能正常顯示，可能是未有漲幅引用公式，可用這一句另建一個“漲幅引用”的公式，公式源碼：{漲幅引用}
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

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