另發(fā)個可用的“板塊漲幅”給大家分享[大智慧公式]

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

?

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

{漲幅引用}
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ī)：' +NUMTOSTRN(STKINDI('991004','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991004','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y6,'計算機(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','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y6,'化工化纖：' +NUMTOSTRN(STKINDI('991011','漲幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991011','漲幅引用.A')*10

?

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

?

 

有思路，想編寫各種指標(biāo)公式，交易模型，選股公式，還原公式的朋友

可聯(lián)系技術(shù)人員 QQ: 262069696  或微信：cxhjy888 進(jìn)行 有償收費 編寫！(注：由于人數(shù)限制，QQ或微信請選擇方便的一個聯(lián)系我們就行，加好友時請簡單備注下您的需求，否則無法通過。謝謝您！)

（怎么收費，代編流程等詳情請點擊查閱！）

(注：由于人數(shù)限制，QQ或微信請選擇方便的一個聯(lián)系我們就行，加好友時請簡單備注下您的需求，否則無法通過。謝謝您！)