机构持仓公式源码(大智慧)

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;