%>
TODAY:=DYNAINFO(7)=CLOSE and DYNAINFO(10)=AMOUNT and (ORDER(1)=0 and ORDER(2)=0);
小单买:=IF(TODAY,(1-"DDEDATA@BIGORDER"(1,1)),(1-BIGORDER(1,1)));
小单卖:=IF(TODAY,(1-"DDEDATA@BIGORDER"(2,1)),(1-BIGORDER(2,1)));
中单买:=IF(TODAY,("DDEDATA@BIGORDER"(1,1)-"DDEDATA@BIGORDER"(1,2)), (BIGORDER(1,1)-BIGORDER(1,2)));
中单卖:=IF(TODAY,("DDEDATA@BIGORDER"(2,1)-"DDEDATA@BIGORDER"(2,2)), (BIGORDER(2,1)-BIGORDER(2,2)));
大单买:=IF(TODAY,("DDEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(1,3)), (BIGORDER(1,2)-BIGORDER(1,3)));
大单卖:=IF(TODAY,("DDEDATA@BIGORDER"(2,2)-"DDEDATA@BIGORDER"(2,3)), (BIGORDER(2,2)-BIGORDER(2,3)));
特单买:=IF(TODAY,"DDEDATA@BIGORDER"(1,3),BIGORDER(1,3));
特单卖:=IF(TODAY,"DDEDATA@BIGORDER"(2,3),BIGORDER(2,3));
主单买:=IF(TODAY,("DDEDATA@BIGORDER"(1,2)),BIGORDER(1,2));
主单卖:=IF(TODAY,("DDEDATA@BIGORDER"(2,2)),BIGORDER(2,2));
HS:=vol/capital;
DD1:= 主单买-主单卖;
DT1:=HS*DD1*100;
DJG:=DD1*AMOUNT/10000;
机净:DJG,linethick0,COLORRED;
机构:=50+Sum(DT1,0);
DD2:= 特单买-特单卖;
DT2:=HS*DD2*100;
DFR:=DD2*AMOUNT/10000;
法净:DFR,linethick0,color0099ff;
法人:=25+Sum(DT2,0);
DD3:= 大单买-大单卖;
DT3:=HS*DD3*100;
DDH:=DD3*AMOUNT/10000;
大净:DDH,linethick0,colorffaa66;
大户:=25+Sum(DT3,0);
DD4:= 中单买-中单卖;
DT4:=HS*DD4*100;
DZH:=DD4*AMOUNT/10000;
中净:DZH,linethick0,color003399;
中户:=25+Sum(DT4,0);
DD5:= 小单买-小单卖;
DT5:=HS*DD5*100;
DSH:=DD5*AMOUNT/10000;
散净:DSH,linethick0,colorgreen;
散户:=25+Sum(DT5,0);
机1:=sum(DT1*10000,0);
机2:=INTPART(机1);
机构数:机2,linethick0,Color8000FF;
散1:=sum(DT5*10000,0);
散2:=INTPART(散1);
散户数:散2,linethick0,ColorABFF46;
散中和:(散户+中户),Color9DFFFF,linethick2;
大法和:(大户+法人),colorCyan,linethick2;
SZ:=(散中和-ref(散中和,1))*10;
DFJ:=(大法和-ref(大法和,1))*10;
S3:=ref(散户,3);
Z3:=ref(中户,3);
D3:=ref(大户,3);
F3:=ref(法人,3);
J3:=ref(机构,3);
S5:=ref(散户,5);
Z5:=ref(中户,5);
D5:=ref(大户,5);
F5:=ref(法人,5);
J5:=ref(机构,5);
S10:=ref(散户,10);
Z10:=ref(中户,10);
D10:=ref(大户,10);
F10:=ref(法人,10);
J10:=ref(机构,10);
S20:=ref(散户,20);
Z20:=ref(中户,20);
D20:=ref(大户,20);
F20:=ref(法人,20);
J20:=ref(机构,20);
S30:=ref(散户,30);
S60:=ref(散户,60);
S90:=ref(散户,90);
S120:=ref(散户,120);
Z30:=ref(中户,30);
Z60:=ref(中户,60);
Z90:=ref(中户,90);
Z120:=ref(中户,120);
D30:=ref(大户,30);
D60:=ref(大户,60);
D90:=ref(大户,90);
D120:=ref(大户,120);
F30:=ref(法人,30);
F60:=ref(法人,60);
F90:=ref(法人,90);
F120:=ref(法人,120);
J30:=ref(机构,30);
J60:=ref(机构,60);
J90:=ref(机构,90);
J120:=ref(机构,120);
散户数60:=ref(散户数,60);
散户数3:=ref(散户数,3);
散户数5:=ref(散户数,5);
散户数10:=ref(散户数,10);
散户数20:=ref(散户数,20);
散户数30:=ref(散户数,30);
散户数90:=ref(散户数,90);
散户数120:=ref(散户数,120);
机构数3:=ref(机构数,3);
机构数5:=ref(机构数,5);
机构数10:=ref(机构数,10);
机构数20:=ref(机构数,20);
机构数30:=ref(机构数,30);
机构数60:=ref(机构数,60);
机构数90:=ref(机构数,90);
机构数120:=ref(机构数,120);
DRAWTEXTABS(70,5,'散户持仓(%)'),color00ff00;
DRAWTEXTABS(150,5,'中户持仓(%)'),color003399;
DRAWTEXTABS(230,5,'大户持仓(%)'),colorffaa66;
DRAWTEXTABS(310,5,'法人持仓(%)'),color0099ff;
DRAWTEXTABS(390,5,'机构持仓(%)'),colorred;
DRAWTEXTABS(10,5,'分 类'),COLORFFFFCC;
DRAWTEXTABS(10,25,'壹 日'),colorddffff;
DRAWTEXTABS(10,45,'叁 日'),colorddffff;
DRAWTEXTABS(10,65,'伍 日'),colorddffff;
DRAWTEXTABS(10,85,'拾 日'),colorddffff;
DRAWTEXTABS(10,105,'廿 日'),colorddffff;
DRAWTEXTABS(10,125,'叁 拾'),colorddffff;
DRAWTEXTABS(10,145,'陆 拾'),colorddffff;
DRAWTEXTABS(10,165,'玖 拾'),colorddffff;
DRAWTEXTABS(10,185,'佰 廿'),colorddffff;
DRAWTEXTABS(80,25,NUMTOSTRN(散户,2)), color00ff00;
DRAWTEXTABS(160,25,NUMTOSTRN(中户,2)), color003399;
DRAWTEXTABS(240,25,NUMTOSTRN(大户,2)), colorffaa66;
DRAWTEXTABS(320,25,NUMTOSTRN(法人,2)), color0099ff;
DRAWTEXTABS(400,25,NUMTOSTRN(机构,2)), colorred;
DRAWTEXTABS(80,45,NUMTOSTRN(S3,2)), color00ff00;
DRAWTEXTABS(160,45,NUMTOSTRN(Z3,2)), color003399;
DRAWTEXTABS(240,45,NUMTOSTRN(D3,2)), colorffaa66;
DRAWTEXTABS(320,45,NUMTOSTRN(F3,2)), color0099ff;
DRAWTEXTABS(400,45,NUMTOSTRN(J3,2)), colorred;
DRAWTEXTABS(80,65,NUMTOSTRN(S5,2)), color00ff00;
DRAWTEXTABS(160,65,NUMTOSTRN(Z5,2)), color003399;
DRAWTEXTABS(240,65,NUMTOSTRN(D5,2)), colorffaa66;
DRAWTEXTABS(320,65,NUMTOSTRN(F5,2)), color0099ff;
DRAWTEXTABS(400,65,NUMTOSTRN(J5,2)), colorred;
DRAWTEXTABS(80,85,NUMTOSTRN(S10,2)), color00ff00;
DRAWTEXTABS(160,85,NUMTOSTRN(Z10,2)), color003399;
DRAWTEXTABS(240,85,NUMTOSTRN(D10,2)), colorffaa66;
DRAWTEXTABS(320,85,NUMTOSTRN(F10,2)), color0099ff;
DRAWTEXTABS(400,85,NUMTOSTRN(J10,2)), colorred;
DRAWTEXTABS(80,105,NUMTOSTRN(S20,2)), color00ff00;
DRAWTEXTABS(160,105,NUMTOSTRN(Z20,2)), color003399;
DRAWTEXTABS(240,105,NUMTOSTRN(D20,2)), colorffaa66;
DRAWTEXTABS(320,105,NUMTOSTRN(F20,2)), color0099ff;
DRAWTEXTABS(400,105,NUMTOSTRN(J20,2)), colorred;
DRAWTEXTABS(80,125,NUMTOSTRN(S30,2)), color00ff00;
DRAWTEXTABS(160,125,NUMTOSTRN(Z30,2)), color003399;
DRAWTEXTABS(240,125,NUMTOSTRN(D30,2)), colorffaa66;
DRAWTEXTABS(320,125,NUMTOSTRN(F30,2)), color0099ff;
DRAWTEXTABS(400,125,NUMTOSTRN(J30,2)), colorred;
DRAWTEXTABS(80,145,NUMTOSTRN(S60,2)), color00ff00;
DRAWTEXTABS(160,145,NUMTOSTRN(Z60,2)), color003399;
DRAWTEXTABS(240,145,NUMTOSTRN(D60,2)), colorffaa66;
DRAWTEXTABS(320,145,NUMTOSTRN(F60,2)), color0099ff;
DRAWTEXTABS(400,145,NUMTOSTRN(J60,2)), colorred;
DRAWTEXTABS(80,165,NUMTOSTRN(S90,2)), color00ff00;
DRAWTEXTABS(160,165,NUMTOSTRN(Z90,2)), color003399;
DRAWTEXTABS(240,165,NUMTOSTRN(D90,2)), colorffaa66;
DRAWTEXTABS(320,165,NUMTOSTRN(F90,2)), color0099ff;
DRAWTEXTABS(400,165,NUMTOSTRN(J90,2)),colorred;
DRAWTEXTABS(80,185,NUMTOSTRN(S120,2)), color00ff00;
DRAWTEXTABS(160,185,NUMTOSTRN(Z120,2)), color003399;
DRAWTEXTABS(240,185,NUMTOSTRN(D120,2)), colorffaa66;
DRAWTEXTABS(320,185,NUMTOSTRN(F120,2)), color0099ff;
DRAWTEXTABS(400,185,NUMTOSTRN(J120,2)),colorred;
DRAWTEXTABS(500,5,'散中持仓和:'+NUMTOSTRN(散中和,2)+'(%)'),Color9DFFFF;
DRAWTEXTABS(680,5,'大法持仓和:'+NUMTOSTRN(大法和,2)+'(%)'),colorCyan;
DRAWTEXTABS(500,25,'散户户数:'+NUMTOSTRN(散户数,3)),ColorABFF46;
DRAWTEXTABS(500,45,'散户户数:'+NUMTOSTRN(散户数3,3)),ColorABFF46;
DRAWTEXTABS(500,65,'散户户数:'+NUMTOSTRN(散户数5,3)),ColorABFF46;
DRAWTEXTABS(500,85,'散户户数:'+NUMTOSTRN(散户数10,3)),ColorABFF46;
DRAWTEXTABS(500,105,'散户户数:'+NUMTOSTRN(散户数20,3)),ColorABFF46;
DRAWTEXTABS(500,125,'散户户数:'+NUMTOSTRN(散户数30,3)),ColorABFF46;
DRAWTEXTABS(500,145,'散户户数:'+NUMTOSTRN(散户数60,3)),ColorABFF46;
DRAWTEXTABS(500,165,'散户户数:'+NUMTOSTRN(散户数90,3)),ColorABFF46;
DRAWTEXTABS(500,185,'散户户数:'+NUMTOSTRN(散户数120,3)),ColorABFF46;
DRAWTEXTABS(680,25,'机构户数:'+NUMTOSTRN(机构数,3)),Color8000FF;
DRAWTEXTABS(680,45,'机构户数:'+NUMTOSTRN(机构数3,3)),Color8000FF;
DRAWTEXTABS(680,65,'机构户数:'+NUMTOSTRN(机构数5,3)),Color8000FF;
DRAWTEXTABS(680,85,'机构户数:'+NUMTOSTRN(机构数10,3)),Color8000FF;
DRAWTEXTABS(680,105,'机构户数:'+NUMTOSTRN(机构数20,3)),Color8000FF;
DRAWTEXTABS(680,125,'机构户数:'+NUMTOSTRN(机构数30,3)),Color8000FF;
DRAWTEXTABS(680,145,'机构户数:'+NUMTOSTRN(机构数60,3)),Color8000FF;
DRAWTEXTABS(680,165,'机构户数:'+NUMTOSTRN(机构数90,3)),Color8000FF;
DRAWTEXTABS(680,185,'机构户数:'+NUMTOSTRN(机构数120,3)),Color8000FF;
{股票教程网-http://bkqg.net承接通达信软件和公式破解,普通加密破解,完全加密破解,导入密码破解,时间限制破解,公式编写,可按您的要求写公式指标,价格按难度不同报价,有需要可以找我们}