主题：[原创]成交比与持仓比

runmode:1;

bkname:='指数合约';
stks:=stkcount(bkname);

variable:totalamounts=0;
variable:totalpositions=0;

for i=1 to stks do begin
 code:=stkfromblk(bkname,i);
 code:=strremove(code,0,2);

 len:=strlen(code);
 prefix:=strleft(code,len-2);
 
 amounts:=callstock(code,vtclose,6,-1)*dynainfo2(209,code)*callstock(code,vtvol,6,-1);
 positions:=callstock(code,vtclose,6,-1)*dynainfo2(209,code)*callstock(code,vtopenint,6,-1);
 
 if stricmp(prefix,'if')=0 then begin
  amounts:=2*amounts;
  positions:=2*positions;
 end 
  
 totalamounts:=totalamounts+amounts;
 totalpositions:=totalpositions+positions;
end

myamounts:=ref(close,1)*multiplier*ref(vol,1);
mypositions:=ref(close,1)*multiplier*ref(openint,1);

len1:=strlen(stklabel);
prefix1:=strleft(stklabel,len-2);

if stricmp(prefix1,'if')=0 then begin
 myamounts:=2*myamounts;
 mypositions:=2*mypositions;
end 
 
成交比:myamounts/totalamounts*100,linethick0; 
持仓比:mypositions/totalpositions*100,linethick0;