另發(fā)個(gè)可用的“板塊漲幅”給大家分享[大智慧公式]
相關(guān)標(biāo)簽:
?
不好意思，前面轉(zhuǎn)發(fā)的“板塊決策 每天前十 板塊監(jiān)控的指標(biāo)”沒注意到參數(shù)不完整無(wú)法使用，給大家造成不便，在此至歉。。。下面另發(fā)個(gè)可用的“板塊漲幅”于以補(bǔ)過(guò)。先將“漲幅引用”引入裝上才可使用的。
{漲幅引用}
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','漲幅引用.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)行 有償收費(fèi) 編寫！(注：由于人數(shù)限制，QQ或微信請(qǐng)選擇方便的一個(gè)聯(lián)系我們就行，加好友時(shí)請(qǐng)簡(jiǎn)單備注下您的需求，否則無(wú)法通過(guò)。謝謝您！)
（怎么收費(fèi)，代編流程等詳情請(qǐng)點(diǎn)擊查閱！）
(注：由于人數(shù)限制，QQ或微信請(qǐng)選擇方便的一個(gè)聯(lián)系我們就行，加好友時(shí)請(qǐng)簡(jiǎn)單備注下您的需求，否則無(wú)法通過(guò)。謝謝您！)
相關(guān)文章
-
沒有相關(guān)內(nèi)容