机构宝藏系列



{特大}
{TODAY:="ddx.ddx"=0;}{判断是否有正版数据}
TODAY:=DYNAINFO(7)=CLOSE and DYNAINFO(10)=AMOUNT and (ORDER(1)=0 and ORDER(2)=0);
HS:=vol/capital;
DD:=IF(TODAY,("DDEDATA@BIGORDER"(1,3)-"DDEDATA@BIGORDER"(2,3)),(BIGORDER(1,3)-BIGORDER(2,3)));
DT:=HS*DD*100;
机构持仓: 50+Sum(DT,0),linethick2;
当日增减度: DT, linethick0;
STICKLINE(DT>0,机构持仓,机构持仓+DT,5,0),COLORRed;
STICKLine(DT<0,机构持仓+DT,机构持仓,5,0),COLORGreen;
当日成交 := (DT * capital) * DYNAINFO(11)/10000;
买入手数 := (capital*DT)/100;
if (当日成交>=0) then
begin
Str1:= '净买入：'+ NUMTOSTRN(当日成交,0)+'万元,';
Str2 := '净买入：'+ NUMTOSTRN(买入手数,0)+'手,';
Str3 := '当日增减度：' + NUMTOSTRN(DT,3);
end;
if 当日成交<0 then
begin
Str1:= '净卖出：'+ NUMTOSTRN(当日成交,0)+'万元,';
Str2 := '净卖出：'+ NUMTOSTRN(买入手数,0)+'手,';
Str3 := '当日增减度：' + NUMTOSTRN(DT,3);
end;
DRAWFLAGTEXT(DT>=0,机构持仓,Str1+str2+str3),COLORRED;
DRAWFLAGTEXT(DT<0,机构持仓,Str1+str2+str3),COLORGREEN;
DRAWTEXTABS(0,0,'机构宝藏-机构单'),Color0000FF;

{大户}
{TODAY:="ddx.ddx"=0;}{判断是否有正版数据}
TODAY:=DYNAINFO(7)=CLOSE and DYNAINFO(10)=AMOUNT and (ORDER(1)=0 and ORDER(2)=0);
HS:=vol/capital;
DD:=IF(TODAY,("DDEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(2,2))-("DDEDATA@BIGORDER"(1,3)-"DDEDATA@BIGORDER"(2,3)),(BIGORDER(1,2)-BIGORDER(2,2))-(BIGORDER(1,3)-BIGORDER(2,3)));
DT:=HS*DD*100;
大户持仓: 50+Sum(DT,0),linethick2;
当日增减度:DT, linethick0;
STICKLINE(DT>0,大户持仓,大户持仓+DT,5,0),COLORRed;
STICKLine(DT<0,大户持仓+DT,大户持仓,5,0),COLORGreen;
当日成交 := (DT * capital) * DYNAINFO(11)/10000;
买入手数 := (capital*DT)/100;
if (当日成交>=0) then
begin
Str1:= '净买入：'+ NUMTOSTRN(当日成交,0)+'万元,';
Str2 := '净买入：'+ NUMTOSTRN(买入手数,0)+'手,';
Str3 := '当日增减度：' + NUMTOSTRN(DT,3);
end;
if 当日成交<0 then
begin
Str1:= '净卖出：'+ NUMTOSTRN(当日成交,0)+'万元,';
Str2 := '净卖出：'+ NUMTOSTRN(买入手数,0)+'手,';
Str3 := '当日增减度：' + NUMTOSTRN(DT,3);
end;
DRAWFLAGTEXT(DT>=0,大户持仓,Str1+str2+str3),COLORRED;
DRAWFLAGTEXT(DT<0,大户持仓,Str1+str2+str3),COLORGREEN;
DRAWTEXTABS(0,0,'机构宝藏-大户单'),Color0000FF;

{中户}
{TODAY:="ddx.ddx"=0;}{判断是否有正版数据}
TODAY:=DYNAINFO(7)=CLOSE and DYNAINFO(10)=AMOUNT and (ORDER(1)=0 and ORDER(2)=0);
HS:=vol/capital;
DD:=IF(TODAY,("DDEDATA@BIGORDER"(1,1)-"DDEDATA@BIGORDER"(2,1))-("DDEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(2,2)),(BIGORDER(1,1)-BIGORDER(2,1))-(BIGORDER(1,2)-BIGORDER(2,2)));
DT:=HS*DD*100;
中户持仓: 50+Sum(DT,0),linethick2;
当日增减度: DT, linethick0;
STICKLINE(DT>0,中户持仓,中户持仓+DT,5,0),COLORRed;
STICKLine(DT<0,中户持仓+DT,中户持仓,5,0),COLORGreen;
当日成交 := (DT * capital) * DYNAINFO(11)/10000;
买入手数 := (capital*DT)/100;
if (当日成交>=0) then
begin
Str1:= '净买入：'+ NUMTOSTRN(当日成交,0)+'万元,';
Str2 := '净买入：'+ NUMTOSTRN(买入手数,0)+'手,';
Str3 := '当日增减度：' + NUMTOSTRN(DT,3);
end;
if 当日成交<0 then
begin
Str1:= '净卖出：'+ NUMTOSTRN(当日成交,0)+'万元,';
Str2 := '净卖出：'+ NUMTOSTRN(买入手数,0)+'手,';
Str3 := '当日增减度：' + NUMTOSTRN(DT,3);
end;
DRAWFLAGTEXT(DT>=0,中户持仓,Str1+str2+str3),COLORRED;
DRAWFLAGTEXT(DT<0,中户持仓,Str1+str2+str3),COLORGREEN;
DRAWTEXTABS(0,0,'机构宝藏-中户单'),Color0000FF;

{散户}
{TODAY:="ddx.ddx"=0;}{判断是否有正版数据}
TODAY:=DYNAINFO(7)=CLOSE and DYNAINFO(10)=AMOUNT and (ORDER(1)=0 and ORDER(2)=0);
HS:=vol/capital;
DD:=IF(TODAY,-("DDEDATA@BIGORDER"(1,1)-"DDEDATA@BIGORDER"(2,1)),(-(BIGORDER(1,1)-BIGORDER(2,1))));
DT:=HS*DD*100;
散户持仓: 50+Sum(DT,0),linethick2;
当日增减度: DT, linethick0;
STICKLINE(DT>0,散户持仓,散户持仓+DT,5,0),COLORRed;
STICKLine(DT<0,散户持仓+DT,散户持仓,5,0),COLORGreen;

当日成交 := (DT * capital) * DYNAINFO(11)/10000;
买入手数 := (capital*DT)/100;
if (当日成交>=0) then
begin
Str1:= '净买入：'+ NUMTOSTRN(当日成交,0)+'万元,';
Str2 := '净买入：'+ NUMTOSTRN(买入手数,0)+'手,';
Str3 := '当日增减度：' + NUMTOSTRN(DT,3);
end;
if 当日成交<0 then
begin
Str1:= '净卖出：'+ NUMTOSTRN(当日成交,0)+'万元,';
Str2 := '净卖出：'+ NUMTOSTRN(买入手数,0)+'手,';
Str3 := '当日增减度：' + NUMTOSTRN(DT,3);
end;
DRAWFLAGTEXT(DT>=0,散户持仓,Str1+str2+str3),COLORRED;
DRAWFLAGTEXT(DT<0,散户持仓,Str1+str2+str3),COLORGREEN;
DRAWTEXTABS(0,0,'机构宝藏-散户单'),Color0000FF;

{主力资金流}
{TODAY:="ddx.ddx"=0;}{判断是否有正版数据}
TODAY:=DYNAINFO(7)=CLOSE and DYNAINFO(10)=AMOUNT and (ORDER(1)=0 and ORDER(2)=0);
DRAWTEXTABS(0,0,'机构宝藏-主资金流'),colorWhite,linethick2;
一日资金流入:amount*IF(TODAY,("DDEDATA@BIGORDER"(1,2))/10000,(BIGORDER(1,2)))/10000,colorred,linethick0;
一日资金流出:amount*IF(TODAY,("DDEDATA@BIGORDER"(2,2))/10000,(BIGORDER(2,2)))/10000,colorgreen,linethick0;
净额:一日资金流入-一日资金流出,colorred,linethick0;
stickline(净额>0,0,净额,3,0),colorred,linethick4;
stickline(净额<0,净额,0,3,0),colorgreen,linethick4;
HS:=vol/capital;
DD:=IF(TODAY,("DDEDATA@BIGORDER"(2,2)-"DDEDATA@BIGORDER"(2,2)),(BIGORDER(1,2)-BIGORDER(2,2)));
DT:=HS*DD*100;
当日增减度:DT,linethick0;
当日成交:=(DT*capital)*DYNAINFO(11)/10000;
买入手数:=(capital*DT)/100;
if(当日成交>=0)then
begin
Str1:='主力净买入：'+NUMTOSTRN(当日成交,0)+'万元,';
Str2:='净买入：'+NUMTOSTRN(买入手数,0)+'手,';
Str3:='当日增减度：'+NUMTOSTRN(DT,3);
end;
if 当日成交<0then
begin
Str1:='主力净卖出：'+NUMTOSTRN(当日成交,0)+'万元,';
Str2:='净卖出：'+NUMTOSTRN(买入手数,0)+'手,';
Str3:='当日增减度：'+NUMTOSTRN(DT,3);
end;
DRAWFLAGTEXT(DT>=0,净额,Str1+str2+str3),COLORRED;
DRAWFLAGTEXT(DT<0,净额,Str1+str2+str3),COLORGREEN;