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

作者：大智慧來源：cxh99.com 發(fā)布時(shí)間：2023年09月16日

相關(guān)標(biāo)簽:

本公式半年前來自論壇那位大師（時(shí)間長忘記了）的“板塊漲幅”公式理念，當(dāng)時(shí)只有四十板塊羅列，呵呵現(xiàn)在要過百個(gè)板塊才能算全呢，五、一放假有時(shí)間整理一下大智慧最新的行業(yè)、概念板塊(整理、取舍板塊編輯公式太費(fèi)時(shí)，可能是本人操作慢吧？足足花了一天多)，本人認(rèn)為常用并有參考價(jià)值的做全景公式，由于公式源碼太多，本想放在一個(gè)指標(biāo)內(nèi)顯示，試過幾次，最多也不能超過48只板塊代碼否則公式無法通過，由于本次所選擇的板塊有90個(gè)（地域板塊不在此列），只有分A、B兩個(gè)指標(biāo)顯示了，兩個(gè)指標(biāo)放在一起也能包攬板塊漲跌的全景了，這樣減少切換板塊排序的麻煩，在K線狀態(tài)可以監(jiān)控板塊漲跌，源碼開放可由使用者喜愛自由修改。注：如果你的大智慧不能正常顯示，可能是未有漲幅引用公式，可用這一句另建一個(gè)“漲幅引用”的公式，公式源碼：{漲幅引用}
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,'醫(yī) 藥： ' +NUMTOSTRN(STKINDI('991028','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991028','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y3,'醫(yī) 藥： ' +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,'房地產(chǎn)： ' +NUMTOSTRN(STKINDI('991007','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991007','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y5,'房地產(chǎn)： ' +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,'農(nóng)林牧漁： ' +NUMTOSTRN(STKINDI('991021','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991021','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y7,'農(nóng)林牧漁： ' +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,'商業(yè)連鎖： ' +NUMTOSTRN(STKINDI('991023','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991023','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y2,'商業(yè)連鎖： ' +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,'計(jì)算機(jī)： ' +NUMTOSTRN(STKINDI('991004','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991004','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y6,'計(jì)算機(jī)： ' +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,'機(jī) 械： ' +NUMTOSTRN(STKINDI('991027','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991027','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y5,'機(jī) 械： ' +NUMTOSTRN(STKINDI('991027','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991011

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