资金详细流入流通盘比公式-(源码 配图) 大智慧
本帖隐藏的内容需要回复才可以浏览
S1X:=10;
S1Y:=15;
HS:=vol/capital;
DD:=BIGORDER(1,3)-BIGORDER(2,3);
DT:=HS*DD*100;
特大户 := (DT * capital) * DYNAINFO(11)/10000;
DRAWMOVETEXT(1,'当日资金流入 特大:'+NUMTOSTRN(特大户,0)+'万元'),colorred;
DRAWTEXTABS(S1X,S1Y*1,'特大资金进出');
DRAWTEXTABS(S1X,S1Y*2,'3日流入:'+NUMTOSTRN(sum (特大户,3),0)+'万元'),colorred;
DRAWTEXTABS(S1X,S1Y*3,'5日流入:'+NUMTOSTRN(sum (特大户,5),0)+'万元'),colorred;
DRAWTEXTABS(S1X,S1Y*4,'10日流入:'+NUMTOSTRN(sum (特大户,10),0)+'万元'),colorred;
DRAWTEXTABS(S1X,S1Y*5,'20日流入:'+NUMTOSTRN(sum (特大户,20),0)+'万元'),colorred;
DRAWTEXTABS(S1X,S1Y*6,'30日流入:'+NUMTOSTRN(sum (特大户,30),0)+'万元'),colorred;
DRAWTEXTABS(S1X,S1Y*7,'60日流入:'+NUMTOSTRN(sum (特大户,60),0)+'万元'),colorred;
HS1:=vol/capital;
DD1:=(BIGORDER(1,2)-BIGORDER(2,2))-(BIGORDER(1,3)-BIGORDER(2,3));
DT1:=HS1*DD1*100;
大户 := (DT1 * capital) * DYNAINFO(11)/10000;
s2x:=s1x+130;
s2y:=15;
DRAWMOVETEXT(1,'大户:'+NUMTOSTRN(大户,0)+'万元'),colorred;
DRAWTEXTABS(s2X,S2Y*1,'大户资金进出');
DRAWTEXTABS(S2X,S2Y*2,'3日流入:'+NUMTOSTRN(sum (大户,3),0)+'万元'),colorred;
DRAWTEXTABS(S2X,S2Y*3,'5日流入:'+NUMTOSTRN(sum (大户,5),0)+'万元'),colorred;
DRAWTEXTABS(S2X,S2Y*4,'10日流入:'+NUMTOSTRN(sum (大户,10),0)+'万元'),colorred;
DRAWTEXTABS(S2X,S2Y*5,'20日流入:'+NUMTOSTRN(sum (大户,20),0)+'万元'),colorred;
DRAWTEXTABS(S2X,S2Y*6,'30日流入:'+NUMTOSTRN(sum (大户,30),0)+'万元'),colorred;
DRAWTEXTABS(S2X,S2Y*7,'60日流入:'+NUMTOSTRN(sum (大户,60),0)+'万元'),colorred;
HS2:=vol/capital;
dd2:=(BIGORDER(1,1)-BIGORDER(2,1))-(BIGORDER(1,2)-BIGORDER(2,2));
DT2:=HS2*DD2*100;
中户 := (DT2 * capital) * DYNAINFO(11)/10000;
s3x:=s2x+130;
s3y:=15;
DRAWMOVETEXT(1,'中户:'+NUMTOSTRN(中户,0)+'万元'),colorgreen;
DRAWTEXTABS(S3X,S3Y*1,'中户资金进出');
DRAWTEXTABS(S3X,S3Y*2,'3日流入:'+NUMTOSTRN(sum (中户,3),0)+'万元'),colorgreen;
DRAWTEXTABS(S3X,S3Y*3,'5日流入:'+NUMTOSTRN(sum (中户,5),0)+'万元'),colorgreen;
DRAWTEXTABS(S3X,S3Y*4,'10日流入:'+NUMTOSTRN(sum (中户,10),0)+'万元'),colorgreen;
DRAWTEXTABS(S3X,S3Y*5,'20日流入:'+NUMTOSTRN(sum (中户,20),0)+'万元'),colorgreen;
DRAWTEXTABS(S3X,S3Y*6,'30日流入:'+NUMTOSTRN(sum (中户,30),0)+'万元'),colorgreen;
DRAWTEXTABS(S3X,S3Y*7,'60日流入:'+NUMTOSTRN(sum (中户,60),0)+'万元'),colorgreen;
HS3:=vol/capital;
dd3:=-(BIGORDER(1,1)-BIGORDER(2,1));
DT3:=HS3*DD3*100;
散户 := (DT3 * capital) * DYNAINFO(11)/10000;
s4x:=s3x+130;
s4y:=15;
DRAWMOVETEXT(1,'散户:'+NUMTOSTRN(散户,0)+'万元'),colorgreen;
DRAWTEXTABS(S4X,S4Y*1,'散户资金进出');
DRAWTEXTABS(S4X,S4Y*2,'3日流入:'+NUMTOSTRN(sum (散户,3),0)+'万元'),colorgreen;
DRAWTEXTABS(S4X,S4Y*3,'5日流入:'+NUMTOSTRN(sum (散户,5),0)+'万元'),colorgreen;
DRAWTEXTABS(S4X,S4Y*4,'10日流入:'+NUMTOSTRN(sum (散户,10),0)+'万元'),colorgreen;
DRAWTEXTABS(S4X,S4Y*5,'20日流入:'+NUMTOSTRN(sum (散户,20),0)+'万元'),colorgreen;
DRAWTEXTABS(S4X,S4Y*6,'30日流入:'+NUMTOSTRN(sum (散户,30),0)+'万元'),colorgreen;
DRAWTEXTABS(S4X,S3Y*7,'60日流入:'+NUMTOSTRN(sum (散户,60),0)+'万元'),colorgreen;
HS4:=vol/capital;
dd4:=BIGORDER(1,2)-BIGORDER(2,2);
DT4:=HS4*DD4*100;
主力 := (DT4 * capital) * DYNAINFO(11)/10000;
主力买入手数 := (capital*DT4);
s5x:=s4x+130;
s5y:=15;
DRAWMOVETEXT(1,'主力:'+NUMTOSTRN(主力,0)+'万元'+ ' 占流通盘:'+主力买入手数/CAPITAL+'%'+' 占成交量:'+主力买入手数/vol+'%'),colorred;
DRAWTEXTABS(S5X,S5Y*1,'主力资金进出 (特大户+大户)');
DRAWTEXTABS(S5X,S5Y*2,'3日流入:'+NUMTOSTRN(sum (主力,3),0)+'万元' + ' 占流通盘:'+sum(主力买入手数,3)/CAPITAL+'%'+' 占成交量:'+sum(主力买入手数,3)/sum(vol,3)+'%'),colorred;
DRAWTEXTABS(S5X,S5Y*3,'5日流入:'+NUMTOSTRN(sum (主力,5),0)+'万元'+ ' 占流通盘:'+sum(主力买入手数,5)/CAPITAL+'%'+' 占成交量:'+sum(主力买入手数,5)/sum(vol,5)+'%'),colorred;
DRAWTEXTABS(S5X,S5Y*4,'10日流入:'+NUMTOSTRN(sum (主力,10),0)+'万元'+ ' 占流通盘:'+sum(主力买入手数,10)/CAPITAL+'%'+' 占成交量:'+sum(主力买入手数,10)/sum(vol,10)+'%'),colorred;
DRAWTEXTABS(S5X,S5Y*5,'20日流入:'+NUMTOSTRN(sum (主力,20),0)+'万元'+ ' 占流通盘:'+sum(主力买入手数,20)/CAPITAL+'%'+' 占成交量:'+sum(主力买入手数,20)/sum(vol,20)+'%'),colorred;
DRAWTEXTABS(S5X,S5Y*6,'30日流入:'+NUMTOSTRN(sum (主力,30),0)+'万元'+ ' 占流通盘:'+sum(主力买入手数,30)/CAPITAL+'%'+' 占成交量:'+sum(主力买入手数,30)/sum(vol,30)+'%'),colorred;
DRAWTEXTABS(S5X,S5Y*7,'60日流入:'+NUMTOSTRN(sum (主力,60),0)+'万元'+ ' 占流通盘:'+sum(主力买入手数,60)/CAPITAL+'%'+' 占成交量:'+sum(主力买入手数,60)/sum(vol,60)+'%'),colorred;
下载 (38.72 KB)
2010-6-27 15:09 下载 (52.95 KB)
2010-6-27 15:09 |