相關標簽:

?

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;{http://www.kzuj.com.cn}
DRAWTEXTABS(S3X,S3Y*1,'中戶資金進出');
DRAWTEXTABS(S3X,S3Y*2,'3日流入：'+NUMTOSTRN(sum (中戶,3),0)+'萬元'),COLORGREEN;{http://www.kzuj.com.cn}
DRAWTEXTABS(S3X,S3Y*3,'5日流入：'+NUMTOSTRN(sum (中戶,5),0)+'萬元'),COLORGREEN;{http://www.kzuj.com.cn}
DRAWTEXTABS(S3X,S3Y*4,'10日流入：'+NUMTOSTRN(sum (中戶,10),0)+'萬元'),COLORGREEN;{http://www.kzuj.com.cn}
DRAWTEXTABS(S3X,S3Y*5,'20日流入：'+NUMTOSTRN(sum (中戶,20),0)+'萬元'),COLORGREEN;{http://www.kzuj.com.cn}
DRAWTEXTABS(S3X,S3Y*6,'30日流入：'+NUMTOSTRN(sum (中戶,30),0)+'萬元'),COLORGREEN;{http://www.kzuj.com.cn}
DRAWTEXTABS(S3X,S3Y*7,'60日流入：'+NUMTOSTRN(sum (中戶,60),0)+'萬元'),COLORGREEN;{http://www.kzuj.com.cn}



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;{http://www.kzuj.com.cn}
DRAWTEXTABS(S4X,S4Y*1,'小股民資金進出');
DRAWTEXTABS(S4X,S4Y*2,'3日流入：'+NUMTOSTRN(sum (小股民,3),0)+'萬元'),COLORGREEN;{http://www.kzuj.com.cn}
DRAWTEXTABS(S4X,S4Y*3,'5日流入：'+NUMTOSTRN(sum (小股民,5),0)+'萬元'),COLORGREEN;{http://www.kzuj.com.cn}
DRAWTEXTABS(S4X,S4Y*4,'10日流入：'+NUMTOSTRN(sum (小股民,10),0)+'萬元'),COLORGREEN;{http://www.kzuj.com.cn}
DRAWTEXTABS(S4X,S4Y*5,'20日流入：'+NUMTOSTRN(sum (小股民,20),0)+'萬元'),COLORGREEN;{http://www.kzuj.com.cn}
DRAWTEXTABS(S4X,S4Y*6,'30日流入：'+NUMTOSTRN(sum (小股民,30),0)+'萬元'),COLORGREEN;{http://www.kzuj.com.cn}
DRAWTEXTABS(S4X,S3Y*7,'60日流入：'+NUMTOSTRN(sum (小股民,60),0)+'萬元'),COLORGREEN;{http://www.kzuj.com.cn}

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;
DRAWTEXTABS(10,0,STKNAME+' 流通盤：'+CAPITAL/1000000+'億 流通市值：'+CAPITAL*c/1000000+'億元'+' 所屬板塊：'+BKNAME);
{控盤度:SUM(主力,0)/CAPITAL*100;};{程序化交易 www.kzuj.com.cn }

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?