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;
bkname:='指数合约';
这里面的指数合约是不是需要把特定的品种指数合约代码放进去?
无法运行