{主力持倉};
HS:=vol/capital;
DD1:=BIGORDER(1,2)-BIGORDER(2,2);
DT1:=HS*DD1*100;
主力持倉:=50+Sum(DT1,0);
三日1:=SUM(主力持倉,3);
五日1:=SUM(主力持倉,5);
十日1:=SUM(主力持倉,10);
當日增減度1:= DT1;
{機構持倉};
DD2:=BIGORDER(1,3)-BIGORDER(2,3);
DT2:=HS*DD2*100;
機構持倉:= Sum(DT2,0);
三日2:=SUM(機構持倉,3);
五日2:=SUM(機構持倉,5);
十日2:=SUM(機構持倉,10);
當日增減度2:= DT2;
DD:=DD1+DD2;
DT:=DT1+DT2;
綜合持倉:(主力持倉+機構持倉),linethick1;
三日:=三日1+三日2;
五日:=五日1+五日2;
十日:=十日1+十日2;
當日增減度:= DT1+DT2;
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;