主力持仓
HS:=vol/capital;
DD:=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;
净买比:买入手数/vol*100,linethick0;
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;
==========================================================
特大持仓
HS:=vol/capital;
DD:=BIGORDER(1,3)-BIGORDER(2,3);
DT:=HS*DD*100;
机构持仓: 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;
==========================================================
大户持仓
HS:=vol/capital;
DD:=(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;
================================================
中户持仓
HS:=vol/capital;
DD:=(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;
=========================================
散户持仓
HS:=vol/capital;
DD:=-(BIGORDER(1,1)-BIGORDER(2,1));
DT:=HS*DD*100;
散户持仓: 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;
=============================================================
超赢资金流《就是日线BBD》
一日资金净流入:amount*BIGORDER(1,2)/10000,linethick0;
一日资金净流出:amount*BIGORDER(2,2)/10000,linethick0;
净额:一日资金净流入-一日资金净流出,linethick0;
STICKLINE(净额>0,0,净额,6,0),COLORRED;
STICKLINE(净额<0,0,净额,6,0),COLOR00ff00;
【本网提示：本文仅仅提供源码，并无公式提供下载，需要公式的，请参考下面的公式编辑录像自己编辑一下】{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
