 | |  |  |
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当日成交<0then
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当日成交<0then
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当日成交<0then
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当日成交<0then
begin
Str1:='净卖出：'+NUMTOSTRN(当日成交,0)+'万元,';
Str2:='净卖出：'+NUMTOSTRN(买入手数,0)+'手,';
Str3:='当日增减度：'+NUMTOSTRN(DT,3);
end;
| |  | |  |
|
