TODAY:="ddx.ddx"=0;{判断是否有正版数据}
特大买入:=if(TODAY,"DDEDATA@BIGORDER"(1,3),BIGORDER(1,3));
特大卖出:=if(TODAY,"DDEDATA@BIGORDER"(2,3),BIGORDER(2,3));
DD:=(特大买入-特大卖出);
HS:=vol/capital;
DT:=HS*DD*100;
特大户 := (DT * capital) * DYNAINFO(11)/10000;
DRAWMOVETEXT(1,'当日资金流入 特大：'+NUMTOSTRN(特大户,0)+'万元'),colorred;
HS1:=vol/capital;
大买入:=if(TODAY,"DDEDATA@BIGORDER"(1,2),BIGORDER(1,2));
大卖出:=if(TODAY,"DDEDATA@BIGORDER"(2,2),BIGORDER(2,2));
DD1:=大买入-大卖出-DD;
DT1:=HS1*DD1*100;
大户 :=(DT1 * capital) * DYNAINFO(11)/10000;
中户买入:=if(TODAY,"DDEDATA@BIGORDER"(1,1),BIGORDER(1,1));
中户卖出:=if(TODAY,"DDEDATA@BIGORDER"(2,1),BIGORDER(2,1));
HS2:=vol/capital;
dd2:=(中户买入-中户卖出)-(大买入-大卖出);
DT2:=HS2*DD2*100;
中户 :=(DT2 * capital) * DYNAINFO(11)/10000;
HS3:=vol/capital;
S买入:=if(TODAY,"DDEDATA@BIGORDER"(1,1),BIGORDER(1,1));
S卖出:=if(TODAY,"DDEDATA@BIGORDER"(2,1),BIGORDER(2,1));
dd3:=-(S买入-S卖出);
DT3:=HS3*DD3*100;
小股民 :=(DT3 * capital) * DYNAINFO(11)/10000;
HS4:=vol/capital;
ZL买入:=if(TODAY,"DDEDATA@BIGORDER"(1,2),BIGORDER(1,2));
ZL卖出:=if(TODAY,"DDEDATA@BIGORDER"(2,2),BIGORDER(2,2));
dd4:=ZL买入-ZL卖出;
DT4:=HS4*DD4*100;
主力 :=(DT4 * capital) * DYNAINFO(11)/10000;
主力买入手数 :=(capital*DT4);
S1X:=10;
S1Y:=15;
DRAWMOVETEXT(1,'当日资金流入 特大：'+NUMTOSTRN(特大户,0)+'万元'),colorred;
DRAWTEXTABS(S1X,S1Y*1,'特大资金进出');
DRAWTEXTABS(S1X,S1Y*3,'3日流入：'+NUMTOSTRN(sum (特大户,3),0)+'万元'),colorred;
DRAWTEXTABS(S1X,S1Y*4,'5日流入：'+NUMTOSTRN(sum (特大户,5),0)+'万元'),colorred;
DRAWTEXTABS(S1X,S1Y*5,'10日流入：'+NUMTOSTRN(sum (特大户,10),0)+'万元'),colorred;
DRAWTEXTABS(S1X,S1Y*6,'20日流入：'+NUMTOSTRN(sum (特大户,20),0)+'万元'),colorred;
DRAWTEXTABS(S1X,S1Y*7,'30日流入：'+NUMTOSTRN(sum (特大户,30),0)+'万元'),colorred;
DRAWTEXTABS(S1X,S1Y*8,'60日流入：'+NUMTOSTRN(sum (特大户,60),0)+'万元'),colorred;
DRAWTEXTABS(S1X,S1Y*2,'1日流入：'+NUMTOSTRN(sum (特大户,1),0)+'万元'),colorred;
s2x:=s1x+130;
s2y:=15;
DRAWMOVETEXT(1,'大户：'+NUMTOSTRN(大户,0)+'万元'),colorred;
DRAWTEXTABS(s2X,S2Y*1,'大户资金进出');
DRAWTEXTABS(S2X,S2Y*2,'1日流入：'+NUMTOSTRN(sum (大户,1),0)+'万元'),colorred;
DRAWTEXTABS(S2X,S2Y*3,'3日流入：'+NUMTOSTRN(sum (大户,3),0)+'万元'),colorred;
DRAWTEXTABS(S2X,S2Y*4,'5日流入：'+NUMTOSTRN(sum (大户,5),0)+'万元'),colorred;
DRAWTEXTABS(S2X,S2Y*5,'10日流入：'+NUMTOSTRN(sum (大户,10),0)+'万元'),colorred;
DRAWTEXTABS(S2X,S2Y*6,'20日流入：'+NUMTOSTRN(sum (大户,20),0)+'万元'),colorred;
DRAWTEXTABS(S2X,S2Y*7,'30日流入：'+NUMTOSTRN(sum (大户,30),0)+'万元'),colorred;
DRAWTEXTABS(S2X,S2Y*8,'60日流入：'+NUMTOSTRN(sum (大户,60),0)+'万元'),colorred;
s3x:=s2x+130;
s3y:=15;
DRAWMOVETEXT(1,'中户：'+NUMTOSTRN(中户,0)+'万元'),colorgreen;
DRAWTEXTABS(S3X,S3Y*1,'中户资金进出');
DRAWTEXTABS(S3X,S3Y*2,'1日流入：'+NUMTOSTRN(sum (中户,1),0)+'万元'),colorgreen;
DRAWTEXTABS(S3X,S3Y*3,'3日流入：'+NUMTOSTRN(sum (中户,3),0)+'万元'),colorgreen;
DRAWTEXTABS(S3X,S3Y*4,'5日流入：'+NUMTOSTRN(sum (中户,5),0)+'万元'),colorgreen;
DRAWTEXTABS(S3X,S3Y*5,'10日流入：'+NUMTOSTRN(sum (中户,10),0)+'万元'),colorgreen;
DRAWTEXTABS(S3X,S3Y*6,'20日流入：'+NUMTOSTRN(sum (中户,20),0)+'万元'),colorgreen;
DRAWTEXTABS(S3X,S3Y*7,'30日流入：'+NUMTOSTRN(sum (中户,30),0)+'万元'),colorgreen;
DRAWTEXTABS(S3X,S3Y*8,'60日流入：'+NUMTOSTRN(sum (中户,60),0)+'万元'),colorgreen;
s4x:=s3x+130;
s4y:=15;
DRAWMOVETEXT(1,'小股民：'+NUMTOSTRN(小股民,0)+'万元'),colorgreen;
DRAWTEXTABS(S4X,S4Y*1,'小股民资金进出');
DRAWTEXTABS(S4X,S4Y*2,'1日流入：'+NUMTOSTRN(sum (小股民,1),0)+'万元'),colorgreen;
DRAWTEXTABS(S4X,S4Y*3,'3日流入：'+NUMTOSTRN(sum (小股民,3),0)+'万元'),colorgreen;
DRAWTEXTABS(S4X,S4Y*4,'5日流入：'+NUMTOSTRN(sum (小股民,5),0)+'万元'),colorgreen;
DRAWTEXTABS(S4X,S4Y*5,'10日流入：'+NUMTOSTRN(sum (小股民,10),0)+'万元'),colorgreen;
DRAWTEXTABS(S4X,S4Y*6,'20日流入：'+NUMTOSTRN(sum (小股民,20),0)+'万元'),colorgreen;
DRAWTEXTABS(S4X,S4Y*7,'30日流入：'+NUMTOSTRN(sum (小股民,30),0)+'万元'),colorgreen;
DRAWTEXTABS(S4X,S3Y*8,'60日流入：'+NUMTOSTRN(sum (小股民,60),0)+'万元'),colorgreen;
s5x:=s4x+130;
s5y:=15;
DRAWMOVETEXT(1,'主力：'+NUMTOSTRN(主力,0)+'万元'+ ' 占流通盘：'+主力买入手数/CAPITAL+'%'+' 占成交量：'+主力买入手数/vol+'%'),colorred;
DRAWTEXTABS(S5X,S5Y*1,'主力资金进出 (特大户+大户)');
DRAWTEXTABS(S5X,S5Y*2,'1日流入：'+NUMTOSTRN(sum (主力,1),0)+'万元' + ' 占流通盘：'+sum(主力买入手数,1)/CAPITAL+'%'+' 占成交量：'+sum(主力买入手数,1)/sum(vol,1)+'%'),colorred;
DRAWTEXTABS(S5X,S5Y*3,'3日流入：'+NUMTOSTRN(sum (主力,3),0)+'万元' + ' 占流通盘：'+sum(主力买入手数,3)/CAPITAL+'%'+' 占成交量：'+sum(主力买入手数,3)/sum(vol,3)+'%'),colorred;
DRAWTEXTABS(S5X,S5Y*4,'5日流入：'+NUMTOSTRN(sum (主力,5),0)+'万元'+ ' 占流通盘：'+sum(主力买入手数,5)/CAPITAL+'%'+' 占成交量：'+sum(主力买入手数,5)/sum(vol,5)+'%'),colorred;
DRAWTEXTABS(S5X,S5Y*5,'10日流入：'+NUMTOSTRN(sum (主力,10),0)+'万元'+ ' 占流通盘：'+sum(主力买入手数,10)/CAPITAL+'%'+' 占成交量：'+sum(主力买入手数,10)/sum(vol,10)+'%'),colorred;
DRAWTEXTABS(S5X,S5Y*6,'20日流入：'+NUMTOSTRN(sum (主力,20),0)+'万元'+ ' 占流通盘：'+sum(主力买入手数,20)/CAPITAL+'%'+' 占成交量：'+sum(主力买入手数,20)/sum(vol,20)+'%'),colorred;
DRAWTEXTABS(S5X,S5Y*7,'30日流入：'+NUMTOSTRN(sum (主力,30),0)+'万元'+ ' 占流通盘：'+sum(主力买入手数,30)/CAPITAL+'%'+' 占成交量：'+sum(主力买入手数,30)/sum(vol,30)+'%'),colorred;
DRAWTEXTABS(S5X,S5Y*8,'60日流入：'+NUMTOSTRN(sum (主力,60),0)+'万元'+ ' 占流通盘：'+sum(主力买入手数,60)/CAPITAL+'%'+' 占成交量：'+sum(主力买入手数,60)/sum(vol,60)+'%'),colorred;
