runmode:0;
bkname:='连续合约';
stks:=stkcount(bkname);
variable:zf[stks]=0;
for i=1 to stks do begin
code:=stkfromblk(bkname,i);
code:=strremove(code,0,2);
zf[i]:=(callstock(code,vtclose,6,0)-callstock(code,vtopen,6,0))/callstock(code,vtopen,6,0)*100;
if valid(zf[i])=0 then
zf[i]:=0;
end
myzf:=(close-open)/open*100;
排名:hod2(zf,stks,myzf),linethick0;