不用详细介绍!看图就明白!
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;
|