HS:=vol/capital; DD:=BIGORDER(1,3)-BIGORDER(2,3); DT:=HS*DD*100; 特大持仓: Sum(DT,0),linethick2; 当日增减度: 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 当日成交<0 then begin Str1:= '净卖出：'+ NUMTOSTRN(当日成交,0)+'万元,'; Str2 := '净卖出：'+ NUMTOSTRN(买入手数,0)+'手,'; Str3 := '当日增减度：' + NUMTOSTRN(DT,3); end; 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; 当日成交 := (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; 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; 当日成交 := (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; HS:=vol/capital; DD:=-(BIGORDER(1,1)-BIGORDER(2,1)); DT:=HS*DD*100; 散户持仓: Sum(DT,0),linethick2; 当日增减度:= DT; 当日成交 := (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;
