5大权重板块主流资金监控
根据赢富TopView 公式 主流资金 此公式以按照板块统计上证所TOPVIEW数据。TOPVIEWBLOCK(N,S,M,P),对板块S的成分股进行统计，取得M期之前的第N号TOPVIEW数据，N取值请参考上表,M可以省略表示0。
赢富系统已经于2009年1月1日期正式关闭。
现在以DDE数据 做个5大权重板块主流资金监控
引用数据公式 公式名称一定要是 QZBBD 否则对应公式无显示 （动手能力强者除外）
{QZBBD-权重板块资金监控引用-亿元}
ZB:="ddx.ddx"=0;{判断是否有正版数据}
{分类条件}
主单买:=IF(ZB,"DDEDATA@BIGORDER"(1,2),bigorder(1,2));
主单卖:=IF(ZB,"DDEDATA@BIGORDER"(2,2),bigorder(2,2));
{计算}
主净:=主单买-主单卖;
BBD:(主净)*amount/100000000,LINETHICK0;
{权重资金}
银hang类:=STKINDI('991017','QZBBD.BBD');
房地产:=STKINDI('991007','QZBBD.BBD');
钢铁:=STKINDI('991009','QZBBD.BBD');
电力:=STKINDI('991003','QZBBD.BBD');
煤炭石油:=STKINDI('991019','QZBBD.BBD');
上证:=STKINDI('SH000001','QZBBD.BBD');
深成:=STKINDI('SZ399001','QZBBD.BBD');
drawmovetext(1,'上证'+numtostr(上证)+'亿'),COLORFFFFFF;
drawmovetext(2,'深成'+numtostr(深成)+'亿'),COLORFFFFFF;
drawmovetext(3,'银hang类'+numtostr(银hang类)+'亿'),COLORFFFFFF;
drawmovetext(4,'房地产'+numtostr(房地产)+'亿'),COLORFFFFFF;
drawmovetext(5,'钢铁'+numtostr(钢铁)+'亿'),COLORFFFFFF;
drawmovetext(6,'电力'+numtostr(电力)+'亿'),COLORFFFFFF;
drawmovetext(7,'煤炭石油'+numtostr(煤炭石油)+'亿'),COLORFFFFFF;
A轴:=0;
B轴:=20;
C轴:=40;
D轴:=60;
E轴:=80;
STICKLINE(煤炭石油>0,煤炭石油+A轴,A轴,5,0),Color000055,LAYER0;
STICKLINE(煤炭石油>0,煤炭石油+A轴,A轴,4,0),Color000077,LAYER0;
STICKLINE(煤炭石油>0,煤炭石油+A轴,A轴,3,0),Color000099,LAYER0;
STICKLINE(煤炭石油>0,煤炭石油+A轴,A轴,2,0),Color0000CC,LAYER0;
STICKLINE(煤炭石油>0,煤炭石油+A轴,A轴,1,0),Color0000FF,LAYER0;
STICKLINE(煤炭石油<0,煤炭石油+A轴,A轴,5,0),Color005500,LAYER0;
STICKLINE(煤炭石油<0,煤炭石油+A轴,A轴,4,0),Color007700,LAYER0;
STICKLINE(煤炭石油<0,煤炭石油+A轴,A轴,3,0),Color009900,LAYER0;
STICKLINE(煤炭石油<0,煤炭石油+A轴,A轴,2,0),Color00CC00,LAYER0;
STICKLINE(煤炭石油<0,煤炭石油+A轴,A轴,1,0),Color00FF00,LAYER0;
STICKLINE(电力>0,电力+B轴,B轴,5,0),Color000055,LAYER0;
STICKLINE(电力>0,电力+B轴,B轴,4,0),Color000077,LAYER0;
STICKLINE(电力>0,电力+B轴,B轴,3,0),Color000099,LAYER0;
STICKLINE(电力>0,电力+B轴,B轴,2,0),Color0000CC,LAYER0;
STICKLINE(电力>0,电力+B轴,B轴,1,0),Color0000FF,LAYER0;
STICKLINE(电力<0,电力+B轴,B轴,5,0),Color555555,LAYER0;
STICKLINE(电力<0,电力+B轴,B轴,4,0),Color777777,LAYER0;
STICKLINE(电力<0,电力+B轴,B轴,3,0),Color999999,LAYER0;
STICKLINE(电力<0,电力+B轴,B轴,2,0),ColorCCCCCC,LAYER0;
STICKLINE(电力<0,电力+B轴,B轴,1,0),ColorFFFFFF,LAYER0;
STICKLINE(钢铁>0,钢铁+C轴,C轴,5,0),Color000055,LAYER0;
STICKLINE(钢铁>0,钢铁+C轴,C轴,4,0),Color000077,LAYER0;
STICKLINE(钢铁>0,钢铁+C轴,C轴,3,0),Color000099,LAYER0;
STICKLINE(钢铁>0,钢铁+C轴,C轴,2,0),Color0000CC,LAYER0;
STICKLINE(钢铁>0,钢铁+C轴,C轴,1,0),Color0000FF,LAYER0;
STICKLINE(钢铁<0,钢铁+C轴,C轴,5,0),colorF1111F,LAYER0;
STICKLINE(钢铁<0,钢铁+C轴,C轴,4,0),colorF3333F,LAYER0;
STICKLINE(钢铁<0,钢铁+C轴,C轴,3,0),colorF5555F,LAYER0;
STICKLINE(钢铁<0,钢铁+C轴,C轴,2,0),colorF7777F,LAYER0;
STICKLINE(钢铁<0,钢铁+C轴,C轴,1,0),colorF9999F,LAYER0;
STICKLINE(房地产>0,房地产+D轴,D轴,5,0),Color000055,LAYER0;
STICKLINE(房地产>0,房地产+D轴,D轴,4,0),Color000077,LAYER0;
STICKLINE(房地产>0,房地产+D轴,D轴,3,0),Color000099,LAYER0;
STICKLINE(房地产>0,房地产+D轴,D轴,2,0),Color0000CC,LAYER0;
STICKLINE(房地产>0,房地产+D轴,D轴,1,0),Color0000FF,LAYER0;
STICKLINE(房地产<0,房地产+D轴,D轴,5,0),COLORFFFF55,LAYER0;
STICKLINE(房地产<0,房地产+D轴,D轴,4,0),COLORFFFF77,LAYER0;
STICKLINE(房地产<0,房地产+D轴,D轴,3,0),COLORFFFF99,LAYER0;
STICKLINE(房地产<0,房地产+D轴,D轴,2,0),COLORFFFFCC,LAYER0;
STICKLINE(房地产<0,房地产+D轴,D轴,1,0),COLORFFFFFF,LAYER0;
STICKLINE(银hang类>0,银hang类+E轴,E轴,5,0),Color000055,LAYER0;
STICKLINE(银hang类>0,银hang类+E轴,E轴,4,0),Color000077,LAYER0;
STICKLINE(银hang类>0,银hang类+E轴,E轴,3,0),Color000099,LAYER0;
STICKLINE(银hang类>0,银hang类+E轴,E轴,2,0),Color0000CC,LAYER0;
STICKLINE(银hang类>0,银hang类+E轴,E轴,1,0),Color0000FF,LAYER0;
STICKLINE(银hang类<0,银hang类+E轴,E轴,5,0),COLOR005555,LAYER0;
STICKLINE(银hang类<0,银hang类+E轴,E轴,4,0),COLOR007777,LAYER0;
STICKLINE(银hang类<0,银hang类+E轴,E轴,3,0),COLOR009999,LAYER0;
STICKLINE(银hang类<0,银hang类+E轴,E轴,2,0),COLOR00CCCC,LAYER0;
STICKLINE(银hang类<0,银hang类+E轴,E轴,1,0),COLOR00FFFF,LAYER0;
DRAWTEXT(DISPSTATUS=1,85,'银hang类'),Color00FFFF,LAYER0;
DRAWTEXT(DISPSTATUS=1,65,'房地产'),Color00FFFF,LAYER0;
DRAWTEXT(DISPSTATUS=1,45,'钢铁'),Color00FFFF,LAYER0;
DRAWTEXT(DISPSTATUS=1,25,'电力'),Color00FFFF,LAYER0;
DRAWTEXT(DISPSTATUS=1,05,'煤炭石油'),Color00FFFF,LAYER0;
FNC格式 公式引入
TPT模板 放到 X:\dzh2\userdata\IndiTemp里即可
|
